/[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.270 by kfstorm, Tue Oct 26 12:59:44 2004 UTC revision 1.271 by jurta, Sat Oct 30 01:07:20 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.270  
changed lines
  Added in v.1.271

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