Commit 961c963d authored by Karl Heuer's avatar Karl Heuer
Browse files

(find-function-noselect): Don't call

format twice with the error message.  Quote the function name
before splicing into regexp.
parent 13cef08d
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment