(Info-insert-dir): Use printable escapes instead of embedding literal control

chars in the source.

diff --git a/lisp/info.el b/lisp/info.el
index 06496692f7581706587737992d425332c5ad82ba..be9850f0fff885f851b10b9ea3234eb257b2cb82 100644 (file)
--- 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\1f")
+               (search-backward "\n\^_")
                (search-forward "Node: ")
                (setq nodename (Info-following-node-name))
-               (search-forward "\n\1f" 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 "\1f" 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\1f.*\n.*Node: "
+         (if (re-search-forward (concat "\n\^_.*\n.*Node: "
                                         (regexp-quote nodename)
                                         "[,\n\t]")
                                 nil t)
              (progn
-               (search-forward "\n\1f" nil 'move)
+               (search-forward "\n\^_" nil 'move)
                (beginning-of-line))
            ;; If none exists, add one.
            (goto-char (point-max))
-           (insert "\1f\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)))