/[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.49 by jurta, Tue Nov 16 15:25:08 2004 UTC revision 1.50 by rms, Mon Dec 27 16:17:10 2004 UTC
# Line 242  in `load-path'." Line 242  in `load-path'."
242      (let ((library      (let ((library
243             (cond ((eq (car-safe def) 'autoload)             (cond ((eq (car-safe def) 'autoload)
244                    (nth 1 def))                    (nth 1 def))
245                   ((symbol-file function)))))                   ((symbol-file function 'defun)))))
246        (find-function-search-for-symbol function nil library))))        (find-function-search-for-symbol function nil library))))
247    
248  (defalias 'function-at-point 'function-called-at-point)  (defalias 'function-at-point 'function-called-at-point)
# Line 347  The library where VARIABLE is defined is Line 347  The library where VARIABLE is defined is
347  `find-function-source-path', if non nil, otherwise in `load-path'."  `find-function-source-path', if non nil, otherwise in `load-path'."
348    (if (not variable)    (if (not variable)
349        (error "You didn't specify a variable"))        (error "You didn't specify a variable"))
350    ;; Fixme: I think `symbol-file' should be fixed instead.  -- fx    (let ((library (or file (symbol-file variable 'defvar))))
   (let ((library (or file (symbol-file (cons 'defvar variable)))))  
351      (find-function-search-for-symbol variable 'variable library)))      (find-function-search-for-symbol variable 'variable library)))
352    
353  ;;;###autoload  ;;;###autoload

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

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