/[emacs]/emacs/lisp/emacs-lisp/find-func.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/find-func.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by rost, Sat May 4 15:40:34 2002 UTC revision 1.32 by rost, Mon May 6 21:11:58 2002 UTC
# Line 139  If VARIABLE-P is nil, `find-function-reg Line 139  If VARIABLE-P is nil, `find-function-reg
139                                    find-variable-regexp                                    find-variable-regexp
140                                  find-function-regexp)                                  find-function-regexp)
141                                (regexp-quote (symbol-name symbol))))                                (regexp-quote (symbol-name symbol))))
               (syn-table (syntax-table))  
142                (case-fold-search))                (case-fold-search))
143            (unwind-protect            (with-syntax-table emacs-lisp-mode-syntax-table
144                (progn              (goto-char (point-min))
145                  (set-syntax-table emacs-lisp-mode-syntax-table)              (if (or (re-search-forward regexp nil t)
146                  (goto-char (point-min))                      (re-search-forward
147                  (if (or (re-search-forward regexp nil t)                       (concat "^([^ ]+ +"
148                          (re-search-forward                               (regexp-quote (symbol-name symbol))
149                           (concat "^([^ ]+ +"                               "\\>")
150                                   (regexp-quote (symbol-name symbol))                       nil t))
151                                   "\\>")                  (progn
152                           nil t))                    (beginning-of-line)
153                      (progn                    (cons (current-buffer) (point)))
154                        (beginning-of-line)                (error "Cannot find definition of `%s' in library `%s'"
155                        (cons (current-buffer) (point)))                       symbol library))))))))
                   (error "Cannot find definition of `%s' in library `%s'"  
                          symbol library)))  
             (set-syntax-table syn-table)))))))  
156    
157  ;;;###autoload  ;;;###autoload
158  (defun find-function-noselect (function)  (defun find-function-noselect (function)

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26