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)) |
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) |