procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-function-search-for-symbol): Ignore directories

Browse source 
when looking for a library file.
This commit is contained in:
Richard M. Stallman 1998-08-01 19:15:12 +00:00
parent 68cf9ca116
commit aa8c396e4a
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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 VARIABLE-P is nil, `find-function-regexp' is used, otherwise
(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)