/[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.359 by teirllm, Wed Jul 2 00:57:20 2003 UTC revision 1.360 by kfstorm, Fri Jul 4 21:40:22 2003 UTC
# Line 162  If value is non-nil but not t, the refer Line 162  If value is non-nil but not t, the refer
162                   (other :tag "Replace only tag" tag))                   (other :tag "Replace only tag" tag))
163    :group 'info)    :group 'info)
164    
165    (defcustom Info-refill-paragraphs nil
166      "*If non-nil, attempt to refill paragraphs with hidden references.
167    This refilling may accidentally remove explicit line breaks in the info
168    file, so be prepared for a few surprises if you enable this feature."
169      :version "21.4"
170      :type 'boolean
171      :group 'info)
172    
173  (defcustom Info-mode-hook  (defcustom Info-mode-hook
174    ;; Try to obey obsolete Info-fontify settings.    ;; Try to obey obsolete Info-fontify settings.
175    (unless (and (boundp 'Info-fontify) (null Info-fontify))    (unless (and (boundp 'Info-fontify) (null Info-fontify))
# Line 2905  the variable `Info-file-list-for-emacs'. Line 2913  the variable `Info-file-list-for-emacs'.
2913                  (save-excursion                  (save-excursion
2914                    (goto-char (match-beginning 1))                    (goto-char (match-beginning 1))
2915                    (insert other-tag)))                    (insert other-tag)))
2916                (when (or hide-tag (eq Info-hide-note-references t))                (when (and Info-refill-paragraphs
2917                             (or hide-tag (eq Info-hide-note-references t)))
2918                  (push (set-marker (make-marker) start)                  (push (set-marker (make-marker) start)
2919                        paragraph-markers)))))                        paragraph-markers)))))
2920    
2921          (let ((fill-nobreak-invisible t)          (when (and Info-refill-paragraphs
2922                (fill-individual-varying-indent nil)                     paragraph-markers)
2923                (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")            (let ((fill-nobreak-invisible t)
2924                (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$")                  (fill-individual-varying-indent nil)
2925                (adaptive-fill-mode nil))                  (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")
2926            (goto-char (point-max))                  (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$")
2927            (while paragraph-markers                  (adaptive-fill-mode nil))
2928              (let ((m (car paragraph-markers)))              (goto-char (point-max))
2929                (setq paragraph-markers (cdr paragraph-markers))              (while paragraph-markers
2930                (when (< m (point))                (let ((m (car paragraph-markers)))
2931                  (goto-char m)                  (setq paragraph-markers (cdr paragraph-markers))
2932                  (beginning-of-line)                  (when (< m (point))
2933                  (let ((beg (point)))                    (goto-char m)
2934                    (when (zerop (forward-paragraph))                    (beginning-of-line)
2935                      (fill-individual-paragraphs beg (point) nil nil)                    (let ((beg (point)))
2936                      (goto-char beg))))                      (when (zerop (forward-paragraph))
2937                (set-marker m nil))))                        (fill-individual-paragraphs beg (point) nil nil)
2938                          (goto-char beg))))
2939                    (set-marker m nil)))))
2940    
2941          (goto-char (point-min))          (goto-char (point-min))
2942          (when (and (search-forward "\n* Menu:" nil t)          (when (and (search-forward "\n* Menu:" nil t)

Legend:
Removed from v.1.359  
changed lines
  Added in v.1.360

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