From 20e3d3f1cad9f6b6c69f04fb613a5d2ad2232566 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 8 Apr 2008 11:50:24 +0000 Subject: [PATCH] (get-setf-method): Use `string-match-p'. --- lisp/ChangeLog | 14 ++++++++++---- lisp/emacs-lisp/cl-macs.el | 3 +-- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1ff7f3d94b2..9c156e54265 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-04-08 Juanma Barranquero + + * 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 * 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 +2008-04-07 Vincent Belaïche - * 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 @@ -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 1b325218934..51e97326bec 100644 --- 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) -- 2.39.5