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

Diff of /emacs/lisp/help-fns.el

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

revision 1.58 by jhd, Tue Nov 9 08:20:44 2004 UTC revision 1.59 by jurta, Thu Dec 16 13:06:05 2004 UTC
# Line 478  Return 0 if there is no such symbol." Line 478  Return 0 if there is no such symbol."
478                  (and (symbolp obj) (boundp obj) obj))))                  (and (symbolp obj) (boundp obj) obj))))
479          (error nil))          (error nil))
480        (let* ((str (find-tag-default))        (let* ((str (find-tag-default))
481               (obj (if str (intern str))))               (sym (if str (intern-soft str))))
482          (and (symbolp obj) (boundp obj) obj))          (if (and sym (boundp sym))
483                sym
484              (save-match-data
485                (when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
486                  (setq sym (intern-soft (match-string 1 str)))
487                  (and (boundp sym) sym)))))
488        0))        0))
489    
490  ;;;###autoload  ;;;###autoload

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

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