(get-setf-method): Use `string-match-p'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ff7f3d94b259be9df22deefe818527f77184681..9c156e542656104d3899ced72486809a726e24e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-08  Juanma Barranquero  <lekktu@gmail.com>
+
+       * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
+       * emacs-lisp/cl-macs.el (get-setf-method): Use `string-match-p'.
+
+       * emacs-lisp/copyright.el (copyright-update-year): Use `looking-at-p'.
+
 2008-04-08  Glenn Morris  <rgm@gnu.org>
 
        * calendar/calendar.el (calendar-date-style): Remove autoload cookie.
@@ -42,9 +49,9 @@
        * faces.el (font-slant-table): Change numeric values for `r',
        `roman', and `normal'.
 
-2008-04-07  Vincent Belaïche <vincent.b.1@hotmail.fr>
+2008-04-07  Vincent Belaïche  <vincent.b.1@hotmail.fr>
 
-       * calc/calc-vec.el(calcFunc-kron, calc-kron): New functions.
+       * calc/calc-vec.el (calcFunc-kron, calc-kron): New functions.
 
 2008-04-07  Jay Belanger  <jay.p.belanger@gmail.com>
 
@@ -6985,7 +6992,6 @@
 
        * international/fontset.el (setup-default-fontset): Specify fonts
        for `symbol' script.
-
        * international/characters.el (script-list): Include `currency'
        in `symbol'.
 
@@ -8934,7 +8940,7 @@
        1.101 situated the original body of the error handling code as
        bogus condition-case handlers.  I've returned to just about the
        working code that was originally there, removing an unnecessary -
-       but benign - enclosing 'progn'.  \(Automated or cursory code fixes
+       but benign - enclosing 'progn'.  (Automated or cursory code fixes
        often aren't.)
 
        (allout-region-active-p): Fallback to value of mark-active if

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 1b3252189345f9c752e75c7ff0017f42d33c416d..51e97326bec2a60d7e98eaea23e46e042dcf0b57 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1894,8 +1894,7 @@ a macro like `setf' or `incf'."
                            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)