diff options
| author | Masatake YAMATO <jet@gyve.org> | 2005-05-30 18:06:02 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2005-05-30 18:06:02 +0000 |
| commit | 6dfa731f20bc5702c88f99297e60e41f1e27cbea (patch) | |
| tree | 76bde4e676d315ea982a048ae45d4efbd879112b /lisp/emacs-lisp | |
| parent | e9bd5782648b11fce3900f34c14ddea46394e501 (diff) | |
| download | emacs-6dfa731f20bc5702c88f99297e60e41f1e27cbea.tar.gz emacs-6dfa731f20bc5702c88f99297e60e41f1e27cbea.tar.bz2 emacs-6dfa731f20bc5702c88f99297e60e41f1e27cbea.zip | |
* emacs-lisp/find-func.el (find-function-noselect): Handle
subroutines.
* help-fns.el (help-C-file-name): Added autoload mark for
`find-function-noselect'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index eab957e5671..9a0a1606953 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -246,8 +246,6 @@ searched for in `find-function-source-path' if non nil, otherwise in `load-path'." (if (not function) (error "You didn't specify a function")) - (and (subrp (symbol-function function)) - (error "%s is a primitive function" function)) (let ((def (symbol-function function)) aliases) (while (symbolp def) @@ -265,6 +263,8 @@ in `load-path'." (let ((library (cond ((eq (car-safe def) 'autoload) (nth 1 def)) + ((subrp def) + (help-C-file-name def 'subr)) ((symbol-file function 'defun))))) (find-function-search-for-symbol function nil library)))) |