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

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/04/08 11:48:35

Index: cl-macs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- cl-macs.el  3 Apr 2008 13:42:25 -0000       1.72
+++ cl-macs.el  8 Apr 2008 11:48:35 -0000       1.73
@@ -1894,8 +1894,7 @@
                            method
                          (error "Setf-method for %s returns malformed method"
                                 func)))
-                  (and (save-match-data
-                         (string-match "\\`c[ad][ad][ad]?[ad]?r\\'" name))
+                  (and (string-match-p "\\`c[ad][ad][ad]?[ad]?r\\'" name)
                        (get-setf-method (compiler-macroexpand place)))
                   (and (eq func 'edebug-after)
                        (get-setf-method (nth (1- (length place)) place)