[Emacs-diffs] emacs/lisp ChangeLog simple.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/19 20:58:45

Modified files:
        lisp           : ChangeLog simple.el 

Log message:
        (with-wrapper-hook): Fix thinko.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16673&r2=1.16674
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1032&r2=1.1033

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16673
retrieving revision 1.16674
diff -u -b -r1.16673 -r1.16674
--- ChangeLog   19 Nov 2009 20:47:40 -0000      1.16673
+++ ChangeLog   19 Nov 2009 20:58:42 -0000      1.16674
@@ -1,5 +1,7 @@
 2009-11-19  Stefan Monnier  <address@hidden>
 
+       * simple.el (with-wrapper-hook): Fix thinko.
+
        * hfy-cmap.el (hfy-rgb-file): Use locate-file.
        (htmlfontify-load-rgb-file): Remove unnused var `ff'.
        Use with-current-buffer and string-to-number.

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1032
retrieving revision 1.1033
diff -u -b -r1.1032 -r1.1033
--- simple.el   19 Nov 2009 17:39:54 -0000      1.1032
+++ simple.el   19 Nov 2009 20:58:45 -0000      1.1033
@@ -6520,11 +6520,11 @@
                                (global ,global))
                    (if (consp funs)
                        (if (eq t (car funs))
-                           (apply 'runrestofhook
+                           (runrestofhook
                                   (append global (cdr funs)) nil ,argssym)
                          (apply (car funs)
-                                (lambda (&rest args)
-                                    (runrestofhook (cdr funs) global args))
+                                (lambda (&rest ,argssym)
+                                 (runrestofhook (cdr funs) global ,argssym))
                                 ,argssym))
                      ;; Once there are no more functions on the hook, run
                      ;; the original body.