Mercurial > emacs
comparison lisp/info.el @ 52688:14464676b697
(Info-mode): Double each `%' in header line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Sep 2003 12:48:19 +0000 |
| parents | 928f0fb38bfa |
| children | 371ac8b3328e |
comparison
equal
deleted
inserted
replaced
| 52687:fb1ccaa34830 | 52688:14464676b697 |
|---|---|
| 2520 (setq Info-tag-table-buffer nil) | 2520 (setq Info-tag-table-buffer nil) |
| 2521 (make-local-variable 'Info-history) | 2521 (make-local-variable 'Info-history) |
| 2522 (make-local-variable 'Info-index-alternatives) | 2522 (make-local-variable 'Info-index-alternatives) |
| 2523 (setq header-line-format | 2523 (setq header-line-format |
| 2524 (if Info-use-header-line | 2524 (if Info-use-header-line |
| 2525 '(:eval (get-text-property (point-min) 'header-line)) | 2525 '(:eval |
| 2526 (replace-regexp-in-string | |
| 2527 "%" "%%" | |
| 2528 (get-text-property (point-min) 'header-line))) | |
| 2526 nil)) ; so the header line isn't displayed | 2529 nil)) ; so the header line isn't displayed |
| 2527 (set (make-local-variable 'tool-bar-map) info-tool-bar-map) | 2530 (set (make-local-variable 'tool-bar-map) info-tool-bar-map) |
| 2528 ;; This is for the sake of the invisible text we use handling titles. | 2531 ;; This is for the sake of the invisible text we use handling titles. |
| 2529 (make-local-variable 'line-move-ignore-invisible) | 2532 (make-local-variable 'line-move-ignore-invisible) |
| 2530 (setq line-move-ignore-invisible t) | 2533 (setq line-move-ignore-invisible t) |