[Emacs-diffs] /srv/bzr/emacs/trunk r104158: * lisp/emacs-lisp/eieio.el (defmethod): Fix typo in last change.

[Stefan Monnier]

------------------------------------------------------------
revno: 104158
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-07 23:33:28 -0300
message:
  * lisp/emacs-lisp/eieio.el (defmethod): Fix typo in last change.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/eieio.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-07 17:58:40 +0000
+++ b/lisp/ChangeLog    2011-05-08 02:33:28 +0000
@@ -1,10 +1,14 @@
+2011-05-08  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/eieio.el (defmethod): Fix typo in last change.
+
 2011-05-07  Eli Zaretskii  <address@hidden>
 
        * mail/sendmail.el (send-mail-function): On MS-Windows, default to
        mailclient-send-it even if window-system is nil.  (Bug#8595)
 
-       * term/w32console.el (terminal-init-w32console): Call
-       get-screen-color and use its output to set the frame
+       * term/w32console.el (terminal-init-w32console):
+       Call get-screen-color and use its output to set the frame
        background-mode.  (Bug#8597)
 
 2011-05-07  Stefan Monnier  <address@hidden>
@@ -65,8 +69,8 @@
 
 2011-05-05  Michael Albinus  <address@hidden>
 
-       * net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Fix
-       port computation bug.  (Bug#8618)
+       * net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band):
+       Fix port computation bug.  (Bug#8618)
 
 2011-05-05  Glenn Morris  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/eieio.el'
--- a/lisp/emacs-lisp/eieio.el  2011-05-07 04:03:49 +0000
+++ b/lisp/emacs-lisp/eieio.el  2011-05-08 02:33:28 +0000
@@ -1298,11 +1298,11 @@
   (let* ((key (if (keywordp (car args)) (pop args)))
         (params (car args))
         (arg1 (car params))
-         (args (if (consp arg1)
+         (fargs (if (consp arg1)
                    (cons (car arg1) (cdr params))
                  params))
         (class (if (consp arg1) (nth 1 arg1)))
-         (code `(lambda ,args ,@(cdr args))))
+         (code `(lambda ,fargs ,@(cdr args))))
     `(progn
        ;; Make sure there is a generic and the byte-compiler sees it.
        (defgeneric ,method ,args