* lisp/emacs-lisp/cl-generic.el (cl--generic-member-method): Fix paren typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a76d83a69dd25a37fc6141dd508a82b47b733b86..9e473e216265a411f84f8fbec1e1040dbf04a6d1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2015-02-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/cl-generic.el (cl--generic-member-method): Fix paren typo.
+
        * textmodes/flyspell.el: Use lexical-binding and cl-lib.
        (mail-mode-flyspell-verify): Fix last change.
        (flyspell-external-point-words, flyspell-large-region):

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 72ec8ec1801439017827ec4e6e0cc15768ce25b5..42e637958b157315df90bf23630ff6a5cff0fcd9 100644 (file)
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -355,8 +355,8 @@ which case this method will be invoked when the argument is `eql' to VAL.
            (let ((m (car methods)))
              (not (and (equal (cl--generic-method-specializers m) specializers)
                        (equal (cl--generic-method-qualifiers m) qualifiers)))))
-    (setq methods (cdr methods))
-    methods))
+    (setq methods (cdr methods)))
+  methods)
 
 ;;;###autoload
 (defun cl-generic-define-method (name qualifiers args uses-cnm function)