[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/08/21 04:51:30

Index: lisp/emacs-lisp/cl-macs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- lisp/emacs-lisp/cl-macs.el  26 Jul 2007 05:26:45 -0000      1.65
+++ lisp/emacs-lisp/cl-macs.el  21 Aug 2007 04:51:26 -0000      1.66
@@ -272,15 +272,19 @@
             (nconc (nreverse simple-args)
                    (list '&rest (car (pop bind-lets))))
             (nconc (let ((hdr (nreverse header)))
+                      ;; Macro expansion can take place in the middle of
+                      ;; apparently harmless computation, so it should not
+                      ;; touch the match-data.
+                      (save-match-data
                      (require 'help-fns)
                      (cons (help-add-fundoc-usage
                             (if (stringp (car hdr)) (pop hdr))
-                            ;; orig-args can contain &cl-defs (an internal CL
-                            ;; thingy that I do not understand), so remove it.
+                               ;; orig-args can contain &cl-defs (an internal
+                               ;; CL thingy I don't understand), so remove it.
                             (let ((x (memq '&cl-defs orig-args)))
                               (if (null x) orig-args
                                 (delq (car x) (remq (cadr x) orig-args)))))
-                           hdr))
+                              hdr)))
                    (list (nconc (list 'let* bind-lets)
                                 (nreverse bind-forms) body)))))))