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

(Info-fontify-node): Downcase node header keywords Node,

Browse source 
Prev, Next, Up before comparison.
(Info-history): Insert absolute directory name, and put invisible
property on it.
This commit is contained in:
Juri Linkov 2005-11-01 09:56:07 +00:00
parent 94b10022bf
commit 993159761a
2 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-11-01 Juri Linkov <juri@jurta.org>
* info.el (Info-fontify-node): Downcase node header keywords Node,
Prev, Next, Up before comparison.
(Info-history): Insert absolute directory name, and put invisible
property on it.
2005-11-01 Juri Linkov <juri@jurta.org>
* info.el (Info-file-supports-index-cookies): New variable.

17
lisp/info.el
View file

@ -1961,7 +1961,9 @@ If SAME-FILE is non-nil, do not move to a different Info file."
(if (and (string-equal file curr-file)
(string-equal node curr-node))
(setq p (point)))
(insert "* " node ": (" (file-name-nondirectory file)
(insert "* " node ": ("
(propertize (or (file-name-directory file) "") 'invisible t)
(file-name-nondirectory file)
")" node ".\n"))
(setq hl (cdr hl))))))
(Info-find-node "history" "Top")
@ -3662,7 +3664,7 @@ the variable `Info-file-list-for-emacs'."
(nend (match-end 2))
(tbeg (match-beginning 1))
(tag (match-string 1)))
(if (string-equal tag "Node")
(if (string-equal (downcase tag) "node")
(put-text-property nbeg nend 'font-lock-face 'info-header-node)
(put-text-property nbeg nend 'font-lock-face 'info-header-xref)
(put-text-property tbeg nend 'mouse-face 'highlight)
@ -3673,11 +3675,12 @@ the variable `Info-file-list-for-emacs'."
;; Always set up the text property keymap.
;; It will either be used in the buffer
;; or copied in the header line.
(put-text-property tbeg nend 'keymap
(cond
((equal tag "Prev") Info-prev-link-keymap)
((equal tag "Next") Info-next-link-keymap)
((equal tag "Up") Info-up-link-keymap))))))
(put-text-property
tbeg nend 'keymap
(cond
((string-equal (downcase tag) "prev") Info-prev-link-keymap)
((string-equal (downcase tag) "next") Info-next-link-keymap)
((string-equal (downcase tag) "up" ) Info-up-link-keymap))))))
(when Info-use-header-line
(goto-char (point-min))
(let* ((header-end (line-end-position))