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

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

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

revision 1.8 by pj, Tue Dec 25 11:02:43 2001 UTC revision 1.9 by rms, Tue Dec 25 22:02:25 2001 UTC
# Line 463  See `help-make-xrefs'." Line 463  See `help-make-xrefs'."
463              (set-syntax-table emacs-lisp-mode-syntax-table)              (set-syntax-table emacs-lisp-mode-syntax-table)
464              (narrow-to-region from to)              (narrow-to-region from to)
465              (goto-char (point-min))              (goto-char (point-min))
466              (while (not (eobp))              (condition-case nil
467                (cond                  (while (not (eobp))
468                 ((looking-at "\"") (forward-sexp 1))                    (cond
469                 ((looking-at "#<") (search-forward ">" nil 'move))                     ((looking-at "\"") (forward-sexp 1))
470                 ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")                     ((looking-at "#<") (search-forward ">" nil 'move))
471                  (let* ((sym (intern-soft (match-string 1)))                     ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
472                         (type (cond ((fboundp sym) 'help-function)                      (let* ((sym (intern-soft (match-string 1)))
473                                   ((or (memq sym '(t nil))                             (type (cond ((fboundp sym) 'help-function)
474                                        (keywordp sym))                                         ((or (memq sym '(t nil))
475                                    nil)                                              (keywordp sym))
476                                   ((and sym (boundp sym))                                          nil)
477                                    'help-variable))))                                         ((and sym (boundp sym))
478                    (when type (help-xref-button 1 type sym)))                                          'help-variable))))
479                  (goto-char (match-end 1)))                        (when type (help-xref-button 1 type sym)))
480                 (t (forward-char 1))))))                      (goto-char (match-end 1)))
481                       (t (forward-char 1))))
482                  (error nil))))
483        (set-syntax-table ost))))        (set-syntax-table ost))))
484    
485    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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