Mercurial > emacs
changeset 22867:7e35e50acaa4
(find-function-search-for-symbol): Ignore directories
when looking for a library file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 01 Aug 1998 19:15:12 +0000 |
| parents | 011361a15bac |
| children | 79e11bd92691 |
| files | lisp/emacs-lisp/find-func.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el Sat Aug 01 19:12:59 1998 +0000 +++ b/lisp/emacs-lisp/find-func.el Sat Aug 01 19:15:12 1998 +0000 @@ -28,10 +28,6 @@ ;; ;; The funniest thing about this is that I can't imagine why a package ;; so obviously useful as this hasn't been written before!! -;; -;; Put this file in your `load-path', byte-compile it and add the -;; following code in your init file: -;; ;; ;;; find-func ;; (find-function-setup-keys) ;; @@ -115,7 +111,8 @@ (if (string-match "\\.el\\(c\\)\\'" library) (setq library (substring library 0 (match-beginning 1)))) (let* ((path find-function-source-path) - (filename (if (file-exists-p library) + (filename (if (and (file-exists-p library) + (not (file-directory-p library))) library ;; use `file-name-sans-extension' here? (if it gets fixed) (if (string-match "\\(\\.el\\)\\'" library)