Mercurial > emacs
diff lisp/emacs-lisp/advice.el @ 90614:8dd8c8286063
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 460-475)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 145-152)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-118
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 15 Oct 2006 02:54:13 +0000 |
parents | a8190f7e546e 25e1db3fd0ed |
children | 6588c6259dfb |
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el Thu Oct 05 12:20:23 2006 +0000 +++ b/lisp/emacs-lisp/advice.el Sun Oct 15 02:54:13 2006 +0000 @@ -2409,7 +2409,7 @@ in that CLASS." (interactive (ad-read-advice-specification "Remove advice of")) (if (ad-is-advised function) - (let* ((advice-to-remove (ad-find-advice function class name))) + (let ((advice-to-remove (ad-find-advice function class name))) (if advice-to-remove (ad-set-advice-info-field function class @@ -2747,7 +2747,7 @@ A three-element list is returned, where the 1st element is the list of required arguments, the 2nd is the list of optional arguments, and the 3rd is the name of an optional rest parameter (or nil)." - (let* (required optional rest) + (let (required optional rest) (setq rest (car (cdr (memq '&rest arglist)))) (if rest (setq arglist (reverse (cdr (memq '&rest (reverse arglist)))))) (setq optional (cdr (memq '&optional arglist))) @@ -2958,7 +2958,7 @@ (defun ad-make-mapped-call (source-arglist target-arglist target-function) "Make form to call TARGET-FUNCTION with args from SOURCE-ARGLIST." - (let* ((mapped-form (ad-map-arglists source-arglist target-arglist))) + (let ((mapped-form (ad-map-arglists source-arglist target-arglist))) (if (eq (car mapped-form) 'funcall) (cons target-function (cdr (cdr mapped-form))) (prog1 mapped-form