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

* emacs-lisp/find-func.el (find-function-noselect): Handle

Browse source 
subroutines.
* help-fns.el (help-C-file-name): Added autoload mark for
`find-function-noselect'.
This commit is contained in:
Masatake YAMATO 2005-05-30 18:06:02 +00:00
parent e9bd578264
commit 6dfa731f20
3 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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> 2005-05-30 Glenn Morris <gmorris@ast.cam.ac.uk>
* calendar/diary-lib.el (mark-included-diary-files): Only kill * calendar/diary-lib.el (mark-included-diary-files): Only kill

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

@ -246,8 +246,6 @@ searched for in `find-function-source-path' if non nil, otherwise
in `load-path'." in `load-path'."
(if (not function) (if (not function)
(error "You didn't specify a 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)) (let ((def (symbol-function function))
aliases) aliases)
(while (symbolp def) (while (symbolp def)
@ -265,6 +263,8 @@ in `load-path'."
(let ((library (let ((library
(cond ((eq (car-safe def) 'autoload) (cond ((eq (car-safe def) 'autoload)
(nth 1 def)) (nth 1 def))
((subrp def)
(help-C-file-name def 'subr))
((symbol-file function 'defun))))) ((symbol-file function 'defun)))))
(find-function-search-for-symbol function nil library)))) (find-function-search-for-symbol function nil library))))

2
lisp/help-fns.el
View file

@ -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 ;;; (symbol-file (if (symbolp subr-or-var) subr-or-var
;;; (subr-name subr-or-var)) ;;; (subr-name subr-or-var))
;;; (if (eq kind 'var) 'defvar 'defun))) ;;; (if (eq kind 'var) 'defvar 'defun)))
;;;###autoload
(defun help-C-file-name (subr-or-var kind) (defun help-C-file-name (subr-or-var kind)
"Return the name of the C file where SUBR-OR-VAR is defined. "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." KIND should be `var' for a variable or `subr' for a subroutine."