workgroups2 Changeset - 8aa775c8a240

Changeset - 8aa775c8a240

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-09-11 13:17:05
sergey@pashinin.com

Small message fix

1 file changed with 1 insertions and 1 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -3446,13 +3446,13 @@ Or scream unless NOERROR." @@
   "Return the workgroup on which ACCESSOR returns VALUE or error."
   (let ((accessor (cl-ecase slotkey
                     (:name 'wg-workgroup-name)
                     (:uid  'wg-workgroup-uid))))
     (or (cl-find value (wg-workgroup-list-or-error noerror) :test 'equal :key accessor)
         (unless noerror
-          (error "No are no workgroups with a %S of %S"
+          (error "There are no workgroups with a %S of %S"
                  accessor value)))))
 (defun wg-cyclic-nth-from-workgroup (workgroup &optional n)
   "Return the workgroup N places from WORKGROUP in `wg-workgroup-list'."
   (wg-cyclic-nth-from-elt workgroup (wg-workgroup-list-or-error) (or n 1)))

0 comments (0 inline, 0 general)