Mercurial > emacs

comparison lisp/info.el @ 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 02d430615dd4
children 204ae43066d1
comparison
equal deleted inserted replaced
51730:c260f6b63ced 51731:6b3b6b76e307
158 If value is non-nil but not t, the reference section is still shown." 158 If value is non-nil but not t, the reference section is still shown."
159 :version "21.4" 159 :version "21.4"
160 :type '(choice (const :tag "No reformatting" nil) 160 :type '(choice (const :tag "No reformatting" nil)
161 (const :tag "Replace tag and hide reference" t) 161 (const :tag "Replace tag and hide reference" t)
162 (other :tag "Replace only tag" tag)) 162 (other :tag "Replace only tag" tag))
163 :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
163 :group 'info) 171 :group 'info)
164 172
165 (defcustom Info-mode-hook 173 (defcustom Info-mode-hook
166 ;; Try to obey obsolete Info-fontify settings. 174 ;; Try to obey obsolete Info-fontify settings.
167 (unless (and (boundp 'Info-fontify) (null Info-fontify)) 175 (unless (and (boundp 'Info-fontify) (null Info-fontify))
2903 '(invisible t front-sticky nil rear-nonsticky t))) 2911 '(invisible t front-sticky nil rear-nonsticky t)))
2904 (when other-tag 2912 (when other-tag
2905 (save-excursion 2913 (save-excursion
2906 (goto-char (match-beginning 1)) 2914 (goto-char (match-beginning 1))
2907 (insert other-tag))) 2915 (insert other-tag)))
2908 (when (or hide-tag (eq Info-hide-note-references t)) 2916 (when (and Info-refill-paragraphs
2917 (or hide-tag (eq Info-hide-note-references t)))
2909 (push (set-marker (make-marker) start) 2918 (push (set-marker (make-marker) start)
2910 paragraph-markers))))) 2919 paragraph-markers)))))
2911 2920
2912 (let ((fill-nobreak-invisible t) 2921 (when (and Info-refill-paragraphs
2913 (fill-individual-varying-indent nil) 2922 paragraph-markers)
2914 (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$") 2923 (let ((fill-nobreak-invisible t)
2915 (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$") 2924 (fill-individual-varying-indent nil)
2916 (adaptive-fill-mode nil)) 2925 (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$")
2917 (goto-char (point-max)) 2926 (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$")
2918 (while paragraph-markers 2927 (adaptive-fill-mode nil))
2919 (let ((m (car paragraph-markers))) 2928 (goto-char (point-max))
2920 (setq paragraph-markers (cdr paragraph-markers)) 2929 (while paragraph-markers
2921 (when (< m (point)) 2930 (let ((m (car paragraph-markers)))
2922 (goto-char m) 2931 (setq paragraph-markers (cdr paragraph-markers))
2923 (beginning-of-line) 2932 (when (< m (point))
2924 (let ((beg (point))) 2933 (goto-char m)
2925 (when (zerop (forward-paragraph)) 2934 (beginning-of-line)
2926 (fill-individual-paragraphs beg (point) nil nil) 2935 (let ((beg (point)))
2927 (goto-char beg)))) 2936 (when (zerop (forward-paragraph))
2928 (set-marker m nil)))) 2937 (fill-individual-paragraphs beg (point) nil nil)
2938 (goto-char beg))))
2939 (set-marker m nil)))))
2929 2940
2930 (goto-char (point-min)) 2941 (goto-char (point-min))
2931 (when (and (search-forward "\n* Menu:" nil t) 2942 (when (and (search-forward "\n* Menu:" nil t)
2932 (not (string-match "\\<Index\\>" Info-current-node)) 2943 (not (string-match "\\<Index\\>" Info-current-node))
2933 ;; Don't take time to annotate huge menus 2944 ;; Don't take time to annotate huge menus