From 3d10db47a7a538696684a1f93f0f21509e688394 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Fri, 8 Jun 2012 00:23:26 -0400 Subject: [PATCH] * 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. --- lisp/ChangeLog | 12 ++++++++++++ lisp/bindings.el | 4 ++++ lisp/help-mode.el | 2 ++ lisp/info.el | 2 ++ 4 files changed, 20 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3085da7ee79..5d9ccc0cd32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2012-06-08 Sam Steingold + + * 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 Get rid of cl-lexical-let, keeping only lexical-let for compatibility. diff --git a/lisp/bindings.el b/lisp/bindings.el index 2a37bfd19a7..b92d5e9a1ee 100644 --- 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 b471962f21d..eb0834e243a 100644 --- 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 fca36a17fb5..112c9068353 100644 --- 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.") -- 2.39.2