emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

(find-function-search-for-symbol): Use with-syntax-table.

Browse source
This commit is contained in:
Markus Rost 2002-05-06 21:12:42 +00:00
parent 21936ea51e
commit fe75e6d023
2 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,10 +1,15 @@
2002-05-06 Markus Rost <rost@math.ohio-state.edu>
* emacs-lisp/find-func.el (find-function-search-for-symbol): Use
with-syntax-table.
2002-05-06 Francesco Potorti` <pot@gnu.org>
* mail/rmail.el (rmail-font-lock-keywords): Highlight Resent-[Ff]rom:.
2002-05-05 Markus Rost <rost@math.ohio-state.edu>
* time-stamp.el (time-stamp-format): Doc fix: escape open
* time-stamp.el (time-stamp-format): Doc fix: escape open
parenthesis in column 0.
2002-05-04 Richard M. Stallman <rms@gnu.org>

30
lisp/emacs-lisp/find-func.el
View file

@ -139,24 +139,20 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise
find-variable-regexp
find-function-regexp)
(regexp-quote (symbol-name symbol))))
(syn-table (syntax-table))
(case-fold-search))
(unwind-protect
(progn
(set-syntax-table emacs-lisp-mode-syntax-table)
(goto-char (point-min))
(if (or (re-search-forward regexp nil t)
(re-search-forward
(concat "^([^ ]+ +"
(regexp-quote (symbol-name symbol))
"\\>")
nil t))
(progn
(beginning-of-line)
(cons (current-buffer) (point)))
(error "Cannot find definition of `%s' in library `%s'"
symbol library)))
(set-syntax-table syn-table)))))))
(with-syntax-table emacs-lisp-mode-syntax-table
(goto-char (point-min))
(if (or (re-search-forward regexp nil t)
(re-search-forward
(concat "^([^ ]+ +"
(regexp-quote (symbol-name symbol))
"\\>")
nil t))
(progn
(beginning-of-line)
(cons (current-buffer) (point)))
(error "Cannot find definition of `%s' in library `%s'"
symbol library))))))))
;;;###autoload
(defun find-function-noselect (function)