Mercurial > emacs
changeset 93854:8497df25d6b1
(get-setf-method): Use `string-match-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 08 Apr 2008 11:48:35 +0000 |
| parents | 8fc3183d5a63 |
| children | d24a63d8d3d8 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Tue Apr 08 11:47:48 2008 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Tue Apr 08 11:48:35 2008 +0000 @@ -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)