* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3085da7ee79889251710973b063428d055ddbcf5..5d9ccc0cd3276542c1dbc50bfbbb04c1d9d88296 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2012-06-08  Sam Steingold  <sds@gnu.org>
+
+       * 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  <monnier@iro.umontreal.ca>
 
        Get rid of cl-lexical-let, keeping only lexical-let for compatibility.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 2a37bfd19a77dca9675ab00fd45794512bd63efd..b92d5e9a1ee36cac511693b1cd5e50020c5788e9 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -784,16 +784,20 @@ if `inhibit-field-text-motion' is non-nil."
 
 (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

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index b471962f21de1ee487e5ce3f4f5dce6330b79809..eb0834e243a495c2d98e8dfbaa2fa6343e817afc 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -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)

diff --git a/lisp/info.el b/lisp/info.el
index fca36a17fb54b0e62ec3988984b3b502c7d138c7..112c90683534b81cc363a234aaafc38d006bc5cd 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3758,6 +3758,8 @@ If FORK is non-nil, it is passed to `Info-goto-node'."
     (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.")