From 8f09a02fc8ed6742265260fb686597f95bcb99c5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 7 Sep 2009 02:35:29 +0000 Subject: [PATCH] (proced-mode-map): Bind "d" to proced-mark-alt. (proced-mark-alt): New alias, to control the advertised key. (Bug#4362) --- lisp/ChangeLog | 3 +++ lisp/proced.el | 6 +++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02fc18d671b..401d9618e6e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,9 @@ * files.el (auto-mode-alist): Use delphi-mode for .dpr files. + * proced.el (proced-mode-map): Bind "d" to proced-mark-alt. + (proced-mark-alt): New alias, to control the advertised key. (Bug#4362) + 2009-09-06 Nick Roberts * vc-git.el (vc-git-annotate-command): Use separator to parse diff --git a/lisp/proced.el b/lisp/proced.el index 1d11f71f216..ff571da4301 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -459,7 +459,7 @@ Important: the match ends just after the marker.") (define-key km [down] 'next-line) (define-key km [up] 'previous-line) ;; marking - (define-key km "d" 'proced-mark) ; Dired compatibility ("delete") + (define-key km "d" 'proced-mark-alt) ; Dired compatibility ("delete") (define-key km "m" 'proced-mark) (define-key km "u" 'proced-unmark) (define-key km "\177" 'proced-unmark-backward) @@ -716,6 +716,10 @@ The time interval for updates is specified via `proced-auto-update-interval'." (interactive "p") (proced-do-mark t count)) +;; So we can preferentially advertise the "m" binding in the mode help, +;; rather than the "d" one. +(defalias 'proced-mark-alt 'proced-mark) + (defun proced-unmark (&optional count) "Unmark the current (or next COUNT) processes." (interactive "p") -- 2.39.2