* indent.el (indent-rigidly): Use substitute-command-keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06d2a82..963fd58 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,8 @@
        * calendar/todo-mode.el (todo-insert-item--next-param):
        * progmodes/f90.el (f90-abbrev-start): Callers changed.
 
+       * indent.el (indent-rigidly): Use substitute-command-keys.
+
 2013-12-22  Kenjiro NAKAYAMA <nakayamakenjiro@gmail.com>
 
        * net/eww.el (eww-tag-select): Add text-property to jump to next

diff --git a/lisp/indent.el b/lisp/indent.el
index b70414a..db76624 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -194,8 +194,9 @@ indentation by specifying a large negative ARG."
   (interactive "r\nP\np")
   (if (and (not arg) interactive)
       (progn
-        (message "Edit region indentation with <left>, <right>, <S-left> \
-and <S-right>.")
+        (message
+        (substitute-command-keys
+         "Indent region with \\<indent-rigidly-map>\\[indent-rigidly-left], \\[indent-rigidly-right], \\[indent-rigidly-left-to-tab-stop], or \\[indent-rigidly-right-to-tab-stop]."))
         (set-transient-map indent-rigidly-map t))
     (save-excursion
       (goto-char end)