Skip to content

GitLab

Commit c4662635 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/eieio.el (defmethod): Fix typo in last change.

parent 605c9376
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 6 deletions
lisp/ChangeLog
View file @ c4662635
2011-05-08 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/eieio.el (defmethod): Fix typo in last change.
2011-05-07 Eli Zaretskii <eliz@gnu.org>
* 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 <monnier@iro.umontreal.ca>
......@@ -65,8 +69,8 @@
2011-05-05 Michael Albinus <michael.albinus@gmx.de>
* 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 <rgm@gnu.org>
......
lisp/emacs-lisp/eieio.el
View file @ c4662635
......@@ -1298,11 +1298,11 @@ Summary:
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment