diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-06-03 14:39:19 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-06-03 14:39:19 +0000 |
| commit | 961c963df34e7cc193774b2c7d1956df129db8c3 (patch) | |
| tree | 157c084c696d7590bf7d102d84146bd18b9e9494 /lisp/emacs-lisp | |
| parent | 13cef08d9d28029c66622f8f2aeda2b1aa3c3a6f (diff) | |
| download | emacs-961c963df34e7cc193774b2c7d1956df129db8c3.tar.gz emacs-961c963df34e7cc193774b2c7d1956df129db8c3.tar.bz2 emacs-961c963df34e7cc193774b2c7d1956df129db8c3.zip | |
(find-function-noselect): Don't call
format twice with the error message. Quote the function name
before splicing into regexp.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 31ed83d331d..22b96ac6c51 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -115,7 +115,7 @@ defined is searched in PATH instead of `load-path' (see (nth 1 def)) ((describe-function-find-file function)))) (if (null library) - (error (format "`%s' is not in `load-history'" function))) + (error "`%s' is not in `load-history'" function)) (if (string-match "\\(\\.elc?\\'\\)" library) (setq library (substring library 0 (match-beginning 1)))) (let* ((path (or path find-function-source-path)) @@ -135,7 +135,8 @@ defined is searched in PATH instead of `load-path' (see (set-buffer (find-file-noselect filename)) (save-match-data (let (;; avoid defconst, defgroup, defvar (any others?) - (regexp (format "^\\s-*(def[^cgv\W]\\w+\\s-+%s\\s-" function)) + (regexp (format "^\\s-*(def[^cgv\W]\\w+\\s-+%s\\s-" + (regexp-quote (symbol-name function)))) (syntable (syntax-table))) (set-syntax-table emacs-lisp-mode-syntax-table) (goto-char (point-min)) |