mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
* emacs-lisp/find-func.el (find-function-noselect): Handle
subroutines. * help-fns.el (help-C-file-name): Added autoload mark for `find-function-noselect'.
This commit is contained in:
parent
e9bd578264
commit
6dfa731f20
@ -1,3 +1,11 @@
|
||||
2005-05-31 Masatake YAMATO <jet@gyve.org>
|
||||
|
||||
* emacs-lisp/find-func.el (find-function-noselect): Handle
|
||||
subroutines.
|
||||
|
||||
* help-fns.el (help-C-file-name): Added autoload mark for
|
||||
`find-function-noselect'.
|
||||
|
||||
2005-05-30 Glenn Morris <gmorris@ast.cam.ac.uk>
|
||||
|
||||
* calendar/diary-lib.el (mark-included-diary-files): Only kill
|
||||
|
@ -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))))
|
||||
|
||||
|
@ -224,7 +224,7 @@ ARGLIST can also be t or a string of the form \"(FUN ARG1 ARG2 ...)\"."
|
||||
;;; (symbol-file (if (symbolp subr-or-var) subr-or-var
|
||||
;;; (subr-name subr-or-var))
|
||||
;;; (if (eq kind 'var) 'defvar 'defun)))
|
||||
|
||||
;;;###autoload
|
||||
(defun help-C-file-name (subr-or-var kind)
|
||||
"Return the name of the C file where SUBR-OR-VAR is defined.
|
||||
KIND should be `var' for a variable or `subr' for a subroutine."
|
||||
|
Loading…
Reference in New Issue
Block a user