/[emacs]/emacs/lisp/emacs-lisp/find-func.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/find-func.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by jurta, Wed Mar 16 07:41:19 2005 UTC revision 1.57 by jet, Mon May 30 18:06:01 2005 UTC
# Line 246  searched for in `find-function-source-pa Line 246  searched for in `find-function-source-pa
246  in `load-path'."  in `load-path'."
247    (if (not function)    (if (not function)
248        (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))  
249    (let ((def (symbol-function function))    (let ((def (symbol-function function))
250          aliases)          aliases)
251      (while (symbolp def)      (while (symbolp def)
# Line 265  in `load-path'." Line 263  in `load-path'."
263      (let ((library      (let ((library
264             (cond ((eq (car-safe def) 'autoload)             (cond ((eq (car-safe def) 'autoload)
265                    (nth 1 def))                    (nth 1 def))
266                     ((subrp def)
267                      (help-C-file-name def 'subr))
268                   ((symbol-file function 'defun)))))                   ((symbol-file function 'defun)))))
269        (find-function-search-for-symbol function nil library))))        (find-function-search-for-symbol function nil library))))
270    

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26