/[emacs]/emacs/lisp/help.el
ViewVC logotype

Diff of /emacs/lisp/help.el

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

revision 1.259.4.6 by miles, Wed Oct 27 05:41:58 2004 UTC revision 1.259.4.7 by miles, Thu Nov 4 08:55:35 2004 UTC
# Line 267  If that doesn't give a function, return Line 267  If that doesn't give a function, return
267                        (and (symbolp obj) (fboundp obj) obj))))                        (and (symbolp obj) (fboundp obj) obj))))
268                (error nil))))                (error nil))))
269        (let* ((str (find-tag-default))        (let* ((str (find-tag-default))
270               (obj (if str (read str))))               (obj (if str (intern str))))
271          (and (symbolp obj) (fboundp obj) obj))))          (and (symbolp obj) (fboundp obj) obj))))
272    
273    

Legend:
Removed from v.1.259.4.6  
changed lines
  Added in v.1.259.4.7

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