diff options
| author | Sam Steingold <[email protected]> | 2012-06-08 00:23:26 -0400 |
|---|---|---|
| committer | Sam Steingold <[email protected]> | 2012-06-08 00:23:26 -0400 |
| commit | 3d10db47a7a538696684a1f93f0f21509e688394 (patch) | |
| tree | e5f205a3d0b9704425307843e63e281fe7bfd98d | |
| parent | de7e2b368752bfc3cef17a8c82f6b3aec72bc649 (diff) | |
* 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.
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/bindings.el | 4 | ||||
| -rw-r--r-- | lisp/help-mode.el | 2 | ||||
| -rw-r--r-- | lisp/info.el | 2 |
4 files changed, 20 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3085da7ee7..5d9ccc0cd3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2012-06-08 Sam Steingold <[email protected]> + + * 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 <[email protected]> Get rid of cl-lexical-let, keeping only lexical-let for compatibility. diff --git a/lisp/bindings.el b/lisp/bindings.el index 2a37bfd19a..b92d5e9a1e 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 b471962f21..eb0834e243 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 fca36a17fb..112c906835 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.") |