[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el

[Markus Rost]

Index: emacs/lisp/emacs-lisp/find-func.el
diff -c emacs/lisp/emacs-lisp/find-func.el:1.31 
emacs/lisp/emacs-lisp/find-func.el:1.32
*** emacs/lisp/emacs-lisp/find-func.el:1.31     Sat May  4 11:40:34 2002
--- emacs/lisp/emacs-lisp/find-func.el  Mon May  6 17:11:58 2002
***************
*** 139,162 ****
                                  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)))))))
  
  ;;;###autoload
  (defun find-function-noselect (function)
--- 139,158 ----
                                  find-variable-regexp
                                find-function-regexp)
                              (regexp-quote (symbol-name symbol))))
              (case-fold-search))
!         (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)