* lisp/simple.el (completion-list-mode-map): Navigate with tab and backtab.

Fixes: debbugs:17767

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c338149603544ecafd63b6cfa4d2017b9fef7b0..a8fc42e92eb9ba5a4c91efb30c65046815af39fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-06-13  Matthias Meulien  <orontee@gmail.com>
+
+       * simple.el (completion-list-mode-map): Navigate with tab and backtab
+       (bug#17767).
+
+2014-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (set-mark-command): Simplify a bit.
+
 2014-06-12  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
 
        * help.el (help--key-binding-keymap): New function.

diff --git a/lisp/simple.el b/lisp/simple.el
index cde169982cbda3f1866ac6202fac314d9d8da177..031aac3a49c6991d8e4052806489609f25b9155f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3842,7 +3842,7 @@ some text between BEG and END, but we're killing the region."
          ;; Add that string to the kill ring, one way or another.
          (if (eq last-command 'kill-region)
              (kill-append string (< end beg))
-           (kill-new string nil)))
+           (kill-new string)))
        (when (or string (eq last-command 'kill-region))
          (setq this-command 'kill-region))
        (setq deactivate-mark t)
@@ -4741,16 +4741,14 @@ purposes.  See the documentation of `set-mark' for more information."
     (if arg
        (pop-to-mark-command)
       (push-mark-command t)))
-   ((and set-mark-command-repeat-pop
-        (eq last-command 'pop-to-mark-command))
-    (setq this-command 'pop-to-mark-command)
-    (pop-to-mark-command))
    ((and set-mark-command-repeat-pop
         (eq last-command 'pop-global-mark)
         (not arg))
     (setq this-command 'pop-global-mark)
     (pop-global-mark))
-   (arg
+   ((or (and set-mark-command-repeat-pop
+             (eq last-command 'pop-to-mark-command))
+        arg)
     (setq this-command 'pop-to-mark-command)
     (pop-to-mark-command))
    ((eq last-command 'set-mark-command)
@@ -6977,6 +6975,8 @@ 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 [?\t] 'next-completion)
+    (define-key map [backtab] 'previous-completion)
     (define-key map "q" 'quit-window)
     (define-key map "z" 'kill-this-buffer)
     map)