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

[Richard M. Stallman]

Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.8 emacs/lisp/help-mode.el:1.9
*** emacs/lisp/help-mode.el:1.8 Tue Dec 25 06:02:43 2001
--- emacs/lisp/help-mode.el     Tue Dec 25 17:02:25 2001
***************
*** 463,483 ****
            (set-syntax-table emacs-lisp-mode-syntax-table)
            (narrow-to-region from to)
            (goto-char (point-min))
!           (while (not (eobp))
!             (cond
!              ((looking-at "\"") (forward-sexp 1))
!              ((looking-at "#<") (search-forward ">" nil 'move))
!              ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
!               (let* ((sym (intern-soft (match-string 1)))
!                      (type (cond ((fboundp sym) 'help-function)
!                                ((or (memq sym '(t nil))
!                                     (keywordp sym))
!                                 nil)
!                                ((and sym (boundp sym))
!                                 'help-variable))))
!                 (when type (help-xref-button 1 type sym)))
!               (goto-char (match-end 1)))
!              (t (forward-char 1))))))
        (set-syntax-table ost))))
  
  
--- 463,485 ----
            (set-syntax-table emacs-lisp-mode-syntax-table)
            (narrow-to-region from to)
            (goto-char (point-min))
!           (condition-case nil
!               (while (not (eobp))
!                 (cond
!                  ((looking-at "\"") (forward-sexp 1))
!                  ((looking-at "#<") (search-forward ">" nil 'move))
!                  ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
!                   (let* ((sym (intern-soft (match-string 1)))
!                          (type (cond ((fboundp sym) 'help-function)
!                                      ((or (memq sym '(t nil))
!                                           (keywordp sym))
!                                       nil)
!                                      ((and sym (boundp sym))
!                                       'help-variable))))
!                     (when type (help-xref-button 1 type sym)))
!                   (goto-char (match-end 1)))
!                  (t (forward-char 1))))
!             (error nil))))
        (set-syntax-table ost))))