[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Juri Linkov]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.58 emacs/lisp/help-fns.el:1.59
*** emacs/lisp/help-fns.el:1.58 Tue Nov  9 08:20:44 2004
--- emacs/lisp/help-fns.el      Thu Dec 16 13:06:05 2004
***************
*** 478,485 ****
                (and (symbolp obj) (boundp obj) obj))))
        (error nil))
        (let* ((str (find-tag-default))
!            (obj (if str (intern str))))
!       (and (symbolp obj) (boundp obj) obj))
        0))
  
  ;;;###autoload
--- 478,490 ----
                (and (symbolp obj) (boundp obj) obj))))
        (error nil))
        (let* ((str (find-tag-default))
!            (sym (if str (intern-soft str))))
!       (if (and sym (boundp sym))
!           sym
!         (save-match-data
!           (when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
!             (setq sym (intern-soft (match-string 1 str)))
!             (and (boundp sym) sym)))))
        0))
  
  ;;;###autoload