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

[Kim F. Storm]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.350 emacs/lisp/info.el:1.351
*** emacs/lisp/info.el:1.350    Tue Jun  3 17:44:53 2003
--- emacs/lisp/info.el  Wed Jun  4 19:14:34 2003
***************
*** 2869,2874 ****
--- 2869,2876 ----
                (skip-syntax-backward " ")
                (setq other-tag
                      (cond
+                      ((<= (point) (point-min))
+                       "See ")
                       ((memq (char-before) '(nil ?\. ?! ))
                        "See ")
                       ((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: ))
***************
*** 2896,2910 ****
                (push (set-marker (make-marker) start)
                      paragraph-markers)))))
  
!       (let ((fill-nobreak-invisible t))
          (goto-char (point-max))
          (while paragraph-markers
            (let ((m (car paragraph-markers)))
              (setq paragraph-markers (cdr paragraph-markers))
              (when (< m (point))
                (goto-char m)
!               (fill-paragraph nil)
!               (backward-paragraph 1))
              (set-marker m nil))))
  
        (goto-char (point-min))
--- 2898,2920 ----
                (push (set-marker (make-marker) start)
                      paragraph-markers)))))
  
!       (let ((fill-nobreak-invisible t)
!             (fill-individual-varying-indent nil)
!             (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")
!             (paragraph-separate "[ \t]*[-*]\\|[ \t\f]*$")
!             (adaptive-fill-mode nil))
          (goto-char (point-max))
          (while paragraph-markers
            (let ((m (car paragraph-markers)))
              (setq paragraph-markers (cdr paragraph-markers))
              (when (< m (point))
                (goto-char m)
!               (move-to-left-margin)
!               (when (zerop (forward-paragraph))
!                 (let ((end (point))
!                       (beg (progn (backward-paragraph) (point))))
!                   (fill-individual-paragraphs beg end nil nil)
!                   (goto-char beg))))
              (set-marker m nil))))
  
        (goto-char (point-min))
***************
*** 2919,2925 ****
                                              "\\([ \t]*\\)\\)")
                                      nil t)
              (setq n (1+ n))
!             (if (zerop (% n 3))       ; visual aids to help with 1-9 keys
                  (put-text-property (match-beginning 0)
                                     (1+ (match-beginning 0))
                                     'font-lock-face 'info-menu-5))
--- 2929,2935 ----
                                              "\\([ \t]*\\)\\)")
                                      nil t)
              (setq n (1+ n))
!             (if (and (<= n 9) (zerop (% n 3))) ; visual aids to help with 1-9 
keys
                  (put-text-property (match-beginning 0)
                                     (1+ (match-beginning 0))
                                     'font-lock-face 'info-menu-5))