[Emacs-diffs] scratch/backports-25.2 90262cc 40/46: Allow `global-set-key' to bind keys under the `M-o' map

[Noam Postavsky]

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))