/[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.14 by monnier, Tue Jul 16 16:02:35 2002 UTC revision 1.15 by monnier, Mon Feb 10 21:52:30 2003 UTC
# Line 443  See `help-make-xrefs'." Line 443  See `help-make-xrefs'."
443  ;;;###autoload  ;;;###autoload
444  (defun help-xref-on-pp (from to)  (defun help-xref-on-pp (from to)
445    "Add xrefs for symbols in `pp's output between FROM and TO."    "Add xrefs for symbols in `pp's output between FROM and TO."
446    (let ((ost (syntax-table)))    (if (> (- to from) 5000) nil
447      (unwind-protect      (with-syntax-table emacs-lisp-mode-syntax-table
448          (save-excursion        (save-excursion
449            (save-restriction          (save-restriction
450              (set-syntax-table emacs-lisp-mode-syntax-table)            (narrow-to-region from to)
451              (narrow-to-region from to)            (goto-char (point-min))
452              (goto-char (point-min))            (condition-case nil
453              (condition-case nil                (while (not (eobp))
454                  (while (not (eobp))                  (cond
455                    (cond                   ((looking-at "\"") (forward-sexp 1))
456                     ((looking-at "\"") (forward-sexp 1))                   ((looking-at "#<") (search-forward ">" nil 'move))
457                     ((looking-at "#<") (search-forward ">" nil 'move))                   ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
458                     ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")                    (let* ((sym (intern-soft (match-string 1)))
459                      (let* ((sym (intern-soft (match-string 1)))                           (type (cond ((fboundp sym) 'help-function)
460                             (type (cond ((fboundp sym) 'help-function)                                       ((or (memq sym '(t nil))
461                                         ((or (memq sym '(t nil))                                            (keywordp sym))
462                                              (keywordp sym))                                        nil)
463                                          nil)                                       ((and sym (boundp sym))
464                                         ((and sym (boundp sym))                                        'help-variable))))
465                                          'help-variable))))                      (when type (help-xref-button 1 type sym)))
466                        (when type (help-xref-button 1 type sym)))                    (goto-char (match-end 1)))
467                      (goto-char (match-end 1)))                   (t (forward-char 1))))
468                     (t (forward-char 1))))              (error nil)))))))
               (error nil))))  
       (set-syntax-table ost))))  
469    
470    
471  ;; Additional functions for (re-)creating types of help buffers.  ;; Additional functions for (re-)creating types of help buffers.

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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