[Emacs-diffs] /srv/bzr/emacs/trunk r108518: * lisp/bindings.el (global-map): Bind XF86Forward to next-buffer and

[Sam Steingold]

------------------------------------------------------------
revno: 108518
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Fri 2012-06-08 00:23:26 -0400
message:
  * lisp/bindings.el (global-map): Bind XF86Forward to next-buffer and
  XF86Back to previous-buffer.
  (minibuffer-local-map): Bind them to next-history-element and
  previous-history-element respectively.
  * lisp/help-mode.el (help-mode-map): Bind them to help-go-forward and
  help-go-back respectively.
  * lisp/info.el (Info-mode-map): Bind them to Info-history-forward and
  Info-history-back respectively.
  These are the keys next to Up on the ThinkPad keyboard.
modified:
  lisp/ChangeLog
  lisp/bindings.el
  lisp/help-mode.el
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-08 02:54:35 +0000
+++ b/lisp/ChangeLog    2012-06-08 04:23:26 +0000
@@ -1,3 +1,15 @@
+2012-06-08  Sam Steingold  <address@hidden>
+
+       * bindings.el (global-map): Bind XF86Forward to next-buffer and
+       XF86Back to previous-buffer.
+       (minibuffer-local-map): Bind them to next-history-element and
+       previous-history-element respectively.
+       * help-mode.el (help-mode-map): Bind them to help-go-forward and
+       help-go-back respectively.
+       * info.el (Info-mode-map): Bind them to Info-history-forward and
+       Info-history-back respectively.
+       These are the keys next to Up on the ThinkPad keyboard.
+
 2012-06-08  Stefan Monnier  <address@hidden>
 
        Get rid of cl-lexical-let, keeping only lexical-let for compatibility.

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2012-06-03 10:54:22 +0000
+++ b/lisp/bindings.el  2012-06-08 04:23:26 +0000
@@ -784,16 +784,20 @@
 
 (define-key ctl-x-map [right] 'next-buffer)
 (define-key ctl-x-map [C-right] 'next-buffer)
+(define-key global-map [XF86Forward] 'next-buffer)
 (define-key ctl-x-map [left] 'previous-buffer)
 (define-key ctl-x-map [C-left] 'previous-buffer)
+(define-key global-map [XF86Back] 'previous-buffer)
 
 (let ((map minibuffer-local-map))
   (define-key map "\en"   'next-history-element)
   (define-key map [next]  'next-history-element)
   (define-key map [down]  'next-history-element)
+  (define-key map [XF86Forward] 'next-history-element)
   (define-key map "\ep"   'previous-history-element)
   (define-key map [prior] 'previous-history-element)
   (define-key map [up]    'previous-history-element)
+  (define-key map [XF86Back] 'previous-history-element)
   (define-key map "\es"   'next-matching-history-element)
   (define-key map "\er"   'previous-matching-history-element)
   ;; Override the global binding (which calls indent-relative via

=== modified file 'lisp/help-mode.el'
--- a/lisp/help-mode.el 2012-01-19 07:21:25 +0000
+++ b/lisp/help-mode.el 2012-06-08 04:23:26 +0000
@@ -40,6 +40,8 @@
     (define-key map [mouse-2] 'help-follow-mouse)
     (define-key map "\C-c\C-b" 'help-go-back)
     (define-key map "\C-c\C-f" 'help-go-forward)
+    (define-key map [XF86Back] 'help-go-back)
+    (define-key map [XF86Forward] 'help-go-forward)
     (define-key map "\C-c\C-c" 'help-follow-symbol)
     (define-key map "\r" 'help-follow)
     map)

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-05-29 09:09:38 +0000
+++ b/lisp/info.el      2012-06-08 04:23:26 +0000
@@ -3758,6 +3758,8 @@
     (define-key map "\177" 'Info-scroll-down)
     (define-key map [mouse-2] 'Info-mouse-follow-nearest-node)
     (define-key map [follow-link] 'mouse-face)
+    (define-key map [XF86Back] 'Info-history-back)
+    (define-key map [XF86Forward] 'Info-history-forward)
     map)
   "Keymap containing Info commands.")