/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

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

revision 1.350 by monnier, Tue Jun 3 21:44:53 2003 UTC revision 1.351 by kfstorm, Wed Jun 4 23:14:34 2003 UTC
# Line 2869  the variable `Info-file-list-for-emacs'. Line 2869  the variable `Info-file-list-for-emacs'.
2869                  (skip-syntax-backward " ")                  (skip-syntax-backward " ")
2870                  (setq other-tag                  (setq other-tag
2871                        (cond                        (cond
2872                           ((<= (point) (point-min))
2873                            "See ")
2874                         ((memq (char-before) '(nil ?\. ?! ))                         ((memq (char-before) '(nil ?\. ?! ))
2875                          "See ")                          "See ")
2876                         ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))                         ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
# Line 2896  the variable `Info-file-list-for-emacs'. Line 2898  the variable `Info-file-list-for-emacs'.
2898                  (push (set-marker (make-marker) start)                  (push (set-marker (make-marker) start)
2899                        paragraph-markers)))))                        paragraph-markers)))))
2900    
2901          (let ((fill-nobreak-invisible t))          (let ((fill-nobreak-invisible t)
2902                  (fill-individual-varying-indent nil)
2903                  (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")
2904                  (paragraph-separate "[ \t]*[-*]\\|[ \t\f]*$")
2905                  (adaptive-fill-mode nil))
2906            (goto-char (point-max))            (goto-char (point-max))
2907            (while paragraph-markers            (while paragraph-markers
2908              (let ((m (car paragraph-markers)))              (let ((m (car paragraph-markers)))
2909                (setq paragraph-markers (cdr paragraph-markers))                (setq paragraph-markers (cdr paragraph-markers))
2910                (when (< m (point))                (when (< m (point))
2911                  (goto-char m)                  (goto-char m)
2912                  (fill-paragraph nil)                  (move-to-left-margin)
2913                  (backward-paragraph 1))                  (when (zerop (forward-paragraph))
2914                      (let ((end (point))
2915                            (beg (progn (backward-paragraph) (point))))
2916                        (fill-individual-paragraphs beg end nil nil)
2917                        (goto-char beg))))
2918                (set-marker m nil))))                (set-marker m nil))))
2919    
2920          (goto-char (point-min))          (goto-char (point-min))
# Line 2919  the variable `Info-file-list-for-emacs'. Line 2929  the variable `Info-file-list-for-emacs'.
2929                                                "\\([ \t]*\\)\\)")                                                "\\([ \t]*\\)\\)")
2930                                        nil t)                                        nil t)
2931                (setq n (1+ n))                (setq n (1+ n))
2932                (if (zerop (% n 3))       ; visual aids to help with 1-9 keys                (if (and (<= n 9) (zerop (% n 3))) ; visual aids to help with 1-9 keys
2933                    (put-text-property (match-beginning 0)                    (put-text-property (match-beginning 0)
2934                                       (1+ (match-beginning 0))                                       (1+ (match-beginning 0))
2935                                       'font-lock-face 'info-menu-5))                                       'font-lock-face 'info-menu-5))

Legend:
Removed from v.1.350  
changed lines
  Added in v.1.351

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