diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-08 11:50:24 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-08 11:50:24 +0000 |
| commit | 20e3d3f1cad9f6b6c69f04fb613a5d2ad2232566 (patch) | |
| tree | d8c654c809c0a474f37c703ff671404b687bb044 /lisp/emacs-lisp | |
| parent | 66e9f105e0db4fea80738db3613afe0207dba945 (diff) | |
| download | emacs-20e3d3f1cad9f6b6c69f04fb613a5d2ad2232566.tar.gz emacs-20e3d3f1cad9f6b6c69f04fb613a5d2ad2232566.tar.bz2 emacs-20e3d3f1cad9f6b6c69f04fb613a5d2ad2232566.zip | |
(get-setf-method): Use `string-match-p'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 1 insertions, 2 deletions
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) |