diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:27:13 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:27:13 +0000 |
| commit | 3a6ade8ab3991522e92aa7457c43fd74efade861 (patch) | |
| tree | a163ff6f655d96bfdd9543f2e456fb89615fec77 /lisp | |
| parent | e357be4cbeebbf7c03967c015ffe9a626ae4f5f1 (diff) | |
| download | emacs-3a6ade8ab3991522e92aa7457c43fd74efade861.tar.gz | |
(Info-insert-dir): Use printable escapes instead of embedding literal control
chars in the source.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index 06496692f75..be9850f0fff 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -391,10 +391,10 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (let (beg nodename end) (forward-line 1) (setq beg (point)) - (search-backward "\n ") + (search-backward "\n\^_") (search-forward "Node: ") (setq nodename (Info-following-node-name)) - (search-forward "\n " nil 'move) + (search-forward "\n\^_" nil 'move) (beginning-of-line) (setq end (point)) (setq nodes (cons (list nodename other beg end) nodes)))))) @@ -405,7 +405,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (let ((menu-items '("top")) (nodes nodes) (case-fold-search t) - (end (save-excursion (search-forward " " nil t) (point)))) + (end (save-excursion (search-forward "\^_" nil t) (point)))) (while nodes (let ((nodename (car (car nodes)))) (or (member (downcase nodename) menu-items) @@ -421,16 +421,16 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (let ((nodename (car (car nodes)))) (goto-char (point-min)) ;; Find the like-named node in the main buffer. - (if (re-search-forward (concat "\n .*\n.*Node: " + (if (re-search-forward (concat "\n\^_.*\n.*Node: " (regexp-quote nodename) "[,\n\t]") nil t) (progn - (search-forward "\n " nil 'move) + (search-forward "\n\^_" nil 'move) (beginning-of-line)) ;; If none exists, add one. (goto-char (point-max)) - (insert " \nFile: dir\tnode: " nodename "\n\n* Menu:\n\n")) + (insert "\^_\nFile: dir\tnode: " nodename "\n\n* Menu:\n\n")) ;; Merge the text from the other buffer's menu ;; into the menu in the like-named node in the main buffer. (apply 'insert-buffer-substring (cdr (car nodes))) |