[Emacs-diffs] trunk r115703: * indent.el (indent-rigidly): Use substitute-command-keys.

[Chong Yidong]

------------------------------------------------------------
revno: 115703
revision-id: address@hidden
parent: address@hidden
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2013-12-23 12:07:01 +0800
message:
  * indent.el (indent-rigidly): Use substitute-command-keys.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/indent.el                 indent.el-20091113204419-o5vbwnq5f7feedwu-230

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-23 03:59:10 +0000
+++ b/lisp/ChangeLog    2013-12-23 04:07:01 +0000
@@ -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 <address@hidden>
 
        * net/eww.el (eww-tag-select): Add text-property to jump to next

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2013-12-23 03:59:10 +0000
+++ b/lisp/indent.el    2013-12-23 04:07:01 +0000
@@ -194,8 +194,9 @@
   (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)