# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1216511799 0
# Node ID 9ebcc98e40f80000a8ef76aeda8b42de154f4e33
# Parent  00ef92c4a50afb81dfbe6b19f6fad07ffe08bcad
(proced-mode, proced): Add \\<proced-mode-map> to docstrings.

diff -r 00ef92c4a50a -r 9ebcc98e40f8 lisp/proced.el
--- a/lisp/proced.el	Sat Jul 19 23:56:17 2008 +0000
+++ b/lisp/proced.el	Sat Jul 19 23:56:39 2008 +0000
@@ -307,7 +307,7 @@
 
 (define-derived-mode proced-mode nil "Proced"
   "Mode for displaying UNIX system processes and sending signals to them.
-Type \\[proced-mark-process] to mark a process for later commands.
+Type \\<proced-mode-map>\\[proced-mark] to mark a process for later commands.
 Type \\[proced-send-signal] to send signals to marked processes.
 
 \\{proced-mode-map}"
@@ -327,7 +327,7 @@
 ;;;###autoload
 (defun proced (&optional arg)
   "Mode for displaying UNIX system processes and sending signals to them.
-Type \\[proced-mark-process] to mark a process for later commands.
+Type \\<proced-mode-map>\\[proced-mark] to mark a process for later commands.
 Type \\[proced-send-signal] to send signals to marked processes.
 
 If invoked with optional ARG the window displaying the process
@@ -346,8 +346,9 @@
     (if arg
 	(display-buffer buffer)
       (pop-to-buffer buffer)
-      (message (substitute-command-keys
-                "type \\[quit-window] to quit, \\[proced-help] for help")))))
+      (message
+       (substitute-command-keys
+        "Type \\<proced-mode-map>\\[quit-window] to quit, \\[proced-help] for help")))))
 
 (defun proced-next-line (arg)
   "Move down lines then position at `proced-goal-column'.