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

(Info-hide-cookies-node): New function.

Browse source 
(Info-select-node): Use it.
(Info-display-images-node): Remove message with image file name.
This commit is contained in:
Juri Linkov 2004-04-08 03:12:16 +00:00
parent 0aa8368b2e
commit 0c1b7af5c5
2 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2004-04-07 Jan Nieuwenhuizen <janneke@gnu.org>
* info.el (Info-hide-cookies-node): New function.
(Info-select-node): Use it.
(Info-display-images-node): Remove message with image file name.
2004-04-07 Daniel Pfeiffer <occitan@esperanto.org>
* progmodes/compile.el (compilation-warning-face)
@ -186,7 +192,7 @@
2004-03-31 H,Ae(Bkan Granath <hakan.granath@kau.se> (tiny change)
* dired.el (dired-move-to-filename-regexp): Add . to HH:MM.
* dired.el (dired-move-to-filename-regexp): Add `.' to HH:MM.
2004-03-30 Vinicius Jose Latorre <viniciusjl@ig.com.br>

19
lisp/info.el
View file

@ -1146,12 +1146,28 @@ any double quotes or backslashes must be escaped (\\\",\\\\)."
(image (if (file-exists-p image-file)
(create-image image-file)
"[broken image]")))
(message "Found image: %S" image-file)
(if (not (get-text-property start 'display))
(add-text-properties
start (point) `(display ,image rear-nonsticky (display)))))))
(set-buffer-modified-p nil)))
;; Texinfo 4.7 adds cookies of the form ^@^H[NAME CONTENTS ^@^H].
;; Hide any construct of the general form ^@[^@-^_][ ... ^@[^@-^_]],
;; including one optional trailing newline.
(defun Info-hide-cookies-node ()
"Hide unrecognised cookies in current node."
(save-excursion
(let ((inhibit-read-only t)
(case-fold-search t))
(goto-char (point-min))
(while (re-search-forward
"\\(\0[\0-\37][[][^\0]*\0[\0-\37][]]\n?\\)"
nil t)
(let* ((start (match-beginning 1)))
(if (not (get-text-property start 'invisible))
(put-text-property start (point) 'invisible t)))))
(set-buffer-modified-p nil)))
(defun Info-select-node ()
"Select the info node that point is in."
;; Bind this in case the user sets it to nil.
@ -1188,6 +1204,7 @@ any double quotes or backslashes must be escaped (\\\",\\\\)."
(if Info-enable-active-nodes (eval active-expression))
(Info-fontify-node)
(Info-display-images-node)
(Info-hide-cookies-node)
(run-hooks 'Info-selection-hook)))))
(defun Info-set-mode-line ()