* lisp/ibuffer.el (ibuffer): Use substitute-command-keys for help.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 65430d7d11ab1eabe68513a12f7f1dfc12b3f135..d6870aab5dda3ae794bf694cfd4a471b2ce1525e 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2332,7 +2332,18 @@ FORMATS is the value to use for `ibuffer-formats'.
              (run-hooks 'ibuffer-hook))
          (setq buffer-read-only t))
        (unless ibuffer-expert
-         (message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help"))))))
+          (message (substitute-command-keys
+                    (concat "Commands: \\[ibuffer-mark-forward], "
+                            "\\[ibuffer-unmark-forward], "
+                            "\\[ibuffer-toggle-marks], "
+                            "\\[ibuffer-visit-buffer], "
+                            "\\[ibuffer-update], "
+                            "\\[ibuffer-do-kill-lines], "
+                            "\\[ibuffer-do-save], "
+                            "\\[ibuffer-do-delete], "
+                            "\\[ibuffer-do-query-replace]; "
+                            "\\[quit-window] to quit; "
+                            "\\[describe-mode] for help"))))))))
 
 ;;;###autoload
 (defun ibuffer-jump (&optional other-window)