[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/backports-25.2 90262cc 40/46: Allow `global-set-ke
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] scratch/backports-25.2 90262cc 40/46: Allow `global-set-key' to bind keys under the `M-o' map |
Date: |
Sun, 2 Oct 2016 14:04:50 +0000 (UTC) |
branch: scratch/backports-25.2
commit 90262cc2c1b6f7a6f40d30b1a33c1a6f4a780b47
Author: Lars Ingebrigtsen <address@hidden>
Commit: Noam Postavsky <address@hidden>
Allow `global-set-key' to bind keys under the `M-o' map
* lisp/subr.el (global-set-key): Allow binding keys under the
`M-o' map (bug#9730).
(cherry picked from commit 5942c18e9a4f04996d80071b717049f55c1f69d8)
---
lisp/subr.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index e9e19d3..e9538fc 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -859,7 +859,12 @@ above 127 (such as ISO Latin-1) can be included if you use
a vector.
Note that if KEY has a local binding in the current buffer,
that local binding will continue to shadow any global binding
that you make with this function."
- (interactive "KSet key globally: \nCSet key %s to command: ")
+ (interactive
+ (let* ((menu-prompting nil)
+ (key (read-key-sequence "Set key globally: ")))
+ (list key
+ (read-command (format "Set key %s to command: "
+ (key-description key))))))
(or (vectorp key) (stringp key)
(signal 'wrong-type-argument (list 'arrayp key)))
(define-key (current-global-map) key command))
- [Emacs-diffs] scratch/backports-25.2 d95942f 29/46: Clean up custom-buffer-create code slightly, (continued)
- [Emacs-diffs] scratch/backports-25.2 d95942f 29/46: Clean up custom-buffer-create code slightly, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 18f1ab7 30/46: Have describe-variable output multi-line values better, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 f24a305 26/46: Make `undo' of `C-x r t' put point where it should be, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 33b69a1 37/46: Warning fix in jit-lock-mode, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 8fd0223 06/46: Make mail-extract-address-components return the user name more, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 7826f1f 32/46: Make ibuffer not break on newline-embedded buffer names, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 4af6945 39/46: Add `size-indication-mode' to the menu on `mouse-1' "Top", Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 5afea13 33/46: Rename "Directory Search" menu to "Servers", Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 d6f5232 34/46: Remove ": ?" from the read-face-name prompt, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 3713acd 36/46: Cancel the eldoc timer when switching off eldoc mode, Noam Postavsky, 2016/10/02
- [Emacs-diffs] scratch/backports-25.2 90262cc 40/46: Allow `global-set-key' to bind keys under the `M-o' map,
Noam Postavsky <=
- [Emacs-diffs] scratch/backports-25.2 c9443ca 38/46: Make describe-variable look up the variable in the current buffer, Noam Postavsky, 2016/10/02