[Emacs-diffs] trunk r117327: * lisp/simple.el (completion-list-mode-map): Navigate with tab and backtab.

[Stefan Monnier]

------------------------------------------------------------
revno: 117327
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17767
author: Matthias Meulien <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2014-06-13 11:50:38 -0400
message:
  * lisp/simple.el (completion-list-mode-map): Navigate with tab and backtab.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-12 15:54:37 +0000
+++ b/lisp/ChangeLog    2014-06-13 15:50:38 +0000
@@ -1,3 +1,12 @@
+2014-06-13  Matthias Meulien  <address@hidden>
+
+       * simple.el (completion-list-mode-map): Navigate with tab and backtab
+       (bug#17767).
+
+2014-06-13  Stefan Monnier  <address@hidden>
+
+       * simple.el (set-mark-command): Simplify a bit.
+
 2014-06-12  Nicolas Richard  <address@hidden>
 
        * help.el (help--key-binding-keymap): New function.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-06-02 00:18:22 +0000
+++ b/lisp/simple.el    2014-06-13 15:50:38 +0000
@@ -3842,7 +3842,7 @@
          ;; 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)
@@ -4742,15 +4742,13 @@
        (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 @@
     (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)