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

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06d2a8270a8..963fd58dbed 100644
--- 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 b70414a850d..db7662496ff 100644
--- 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)