summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-01-25 00:54:59 +0000
committerKarl Heuer <kwzh@gnu.org>1996-01-25 00:54:59 +0000
commit8ab3e50b3414e98273626dce9e19f7b5db470613 (patch)
tree20b4403cd7f3c367facc65f6d2e892670f060bd8 /lisp
parenteec5a2e4bbde9d80679c90d9a04e81b7970ec3f9 (diff)
downloademacs-8ab3e50b3414e98273626dce9e19f7b5db470613.tar.gz
(Info-edit, Info-goto-emacs-command-node): Pass proper format string to message.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/info.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 4c6c89daae3..67b3bb023f3 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1632,7 +1632,7 @@ Allowed only if variable `Info-enable-edit' is non-nil."
(or Info-enable-edit
(error "Editing info nodes is not enabled"))
(Info-edit-mode)
- (message (substitute-command-keys
+ (message "%s" (substitute-command-keys
"Editing: Type \\<Info-edit-map>\\[Info-cease-edit] to return to info")))
(defun Info-cease-edit ()
@@ -1730,10 +1730,10 @@ the variable `Info-file-list-for-emacs'."
;; Info-history. Put the other nodes that were found on
;; the history.
(setq Info-history (nconc (cdr where) Info-history))
- (message (substitute-command-keys
- "Found %d other entr%s. Use \\[Info-last] to see %s.")
+ (message "Found %d other entr%s. Use %s to see %s."
(1- num-matches)
(if (> num-matches 2) "ies" "y")
+ (substitute-command-keys "\\[Info-last]")
(if (> num-matches 2) "them" "it")))))
(error "Couldn't find documentation for %s." command))))