(completion-list-mode-map): Bind "q" to quit-window,

just like in all other read-only buffers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c41d3f4268386c0d89301caf5099c4973f16ff8..4b6d1517d6f3e436c4ff9e55d0228dc11cae2341 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-06  Sam Steingold  <sds@gnu.org>
+
+       * simple.el (completion-list-mode-map): Bind "q" to quit-window,
+       just like in all other read-only buffers.
+
 2009-04-05  Chong Yidong  <cyd@stupidchicken.com>
 
        * simple.el (handle-shift-selection): Clarify docstring.

diff --git a/lisp/simple.el b/lisp/simple.el
index 0b7ed49a3a0f962f69d25da76222866a10bf284a..fd28142903232d514e0f7ccf6747b9406957c82b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5614,6 +5614,7 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
     (define-key map "\e\e\e" 'delete-completion-window)
     (define-key map [left] 'previous-completion)
     (define-key map [right] 'next-completion)
+    (define-key map "q" 'quit-window)
     map)
   "Local map for completion list buffers.")