Mercurial > emacs

changeset 51731:6b3b6b76e307

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Disable paragraph refilling. (Info-refill-paragraphs): New defcustom. (Info-fontify-node): Use it.
author Kim F. Storm <storm@cua.dk>
date Fri, 04 Jul 2003 21:40:22 +0000
parents c260f6b63ced
children f43bd5204ab4
files lisp/info.el
diffstat 1 files changed, 29 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Fri Jul 04 21:40:04 2003 +0000
+++ b/lisp/info.el	Fri Jul 04 21:40:22 2003 +0000
@@ -162,6 +162,14 @@
 		 (other :tag "Replace only tag" tag))
   :group 'info)
 
+(defcustom Info-refill-paragraphs nil
+  "*If non-nil, attempt to refill paragraphs with hidden references.
+This refilling may accidentally remove explicit line breaks in the info
+file, so be prepared for a few surprises if you enable this feature."
+  :version "21.4"
+  :type 'boolean
+  :group 'info)
+
 (defcustom Info-mode-hook
   ;; Try to obey obsolete Info-fontify settings.
   (unless (and (boundp 'Info-fontify) (null Info-fontify))
@@ -2905,27 +2913,30 @@
 		(save-excursion
 		  (goto-char (match-beginning 1))
 		  (insert other-tag)))
-	      (when (or hide-tag (eq Info-hide-note-references t))
+	      (when (and Info-refill-paragraphs
+			 (or hide-tag (eq Info-hide-note-references t)))
 		(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]*\n[ \t]\\|[ \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)
-		(beginning-of-line)
-		(let ((beg (point)))
-		  (when (zerop (forward-paragraph))
-		    (fill-individual-paragraphs beg (point) nil nil)
-		    (goto-char beg))))
-	      (set-marker m nil))))
+	(when (and Info-refill-paragraphs
+		   paragraph-markers)
+	  (let ((fill-nobreak-invisible t)
+		(fill-individual-varying-indent nil)
+		(paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")
+		(paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \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)
+		  (beginning-of-line)
+		  (let ((beg (point)))
+		    (when (zerop (forward-paragraph))
+		      (fill-individual-paragraphs beg (point) nil nil)
+		      (goto-char beg))))
+		(set-marker m nil)))))
 
 	(goto-char (point-min))
 	(when (and (search-forward "\n* Menu:" nil t)