procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-fontify-node): Don't hide indentation before the

Browse source 
reference name.  Don't process a reference twice when a new tag is
inserted.
(Info-hide-note-references): Fix doc and customize type.
This commit is contained in:
Andreas Schwab 2003-03-02 23:33:56 +00:00
parent 6bdb309af9
commit 0452a274d2
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/info.el
View file

@ -154,11 +154,11 @@ when you hit the end of the current node."
(defcustom Info-hide-note-references t
"*If non-nil, hide the tag and section reference in *note and * menu items.
Also replaces the \"*note\" text with \"see\".
If value is a number, the reference section is still shown."
If value is non-nil but not t, the reference section is still shown."
:version "21.4"
:type '(choice (const :tag "Replace tag and hide reference" t)
(const :tag "Replace only tag" tag)
(const :tag "No reformatting" nil))
:type '(choice (const :tag "No reformatting" nil)
(const :tag "Replace tag and hide reference" t)
(other :tag "Replace only tag" tag))
:group 'info)
(defcustom Info-mode-hook '(turn-on-font-lock)
@ -2789,7 +2789,7 @@ the variable `Info-file-list-for-emacs'."
(add-text-properties (match-beginning 2) (1+ (match-end 2))
'(invisible t))))
(goto-char (point-min))
(while (re-search-forward "\\(\\*Note[ \n\t]*\\)\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)
(while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)
(unless (= (char-after (1- (match-beginning 0))) ?\") ; hack
(let ((start (match-beginning 0))
(next (point))
@ -2819,8 +2819,9 @@ the variable `Info-file-list-for-emacs'."
(add-text-properties (match-beginning 3) (match-end 3)
'(invisible t)))
(when other-tag
(goto-char (match-beginning 1))
(insert other-tag))
(save-excursion
(goto-char (match-beginning 1))
(insert other-tag)))
(when (or hide-tag (eq Info-hide-note-references t))
(setq paragraph-markers (cons (set-marker (make-marker) start)
paragraph-markers))))))