Mercurial > emacs

comparison lisp/emacs-lisp/find-func.el @ 45120:254bce531056

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-function-search-for-symbol): Bind case-fold-search when searching.
author Markus Rost <rost@math.uni-bielefeld.de>
date Sat, 04 May 2002 15:40:34 +0000
parents 5ebd79883369
children 4a2bcce6b13a
comparison
equal deleted inserted replaced
45119:bb7bdd25e045 45120:254bce531056
137 (with-current-buffer (find-file-noselect filename) 137 (with-current-buffer (find-file-noselect filename)
138 (let ((regexp (format (if variable-p 138 (let ((regexp (format (if variable-p
139 find-variable-regexp 139 find-variable-regexp
140 find-function-regexp) 140 find-function-regexp)
141 (regexp-quote (symbol-name symbol)))) 141 (regexp-quote (symbol-name symbol))))
142 (syn-table (syntax-table))) 142 (syn-table (syntax-table))
143 (case-fold-search))
143 (unwind-protect 144 (unwind-protect
144 (progn 145 (progn
145 (set-syntax-table emacs-lisp-mode-syntax-table) 146 (set-syntax-table emacs-lisp-mode-syntax-table)
146 (goto-char (point-min)) 147 (goto-char (point-min))
147 (if (or (re-search-forward regexp nil t) 148 (if (or (re-search-forward regexp nil t)