diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-18 14:06:00 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-18 14:06:30 +0200 |
| commit | 0dc75daf1189d2327c6efa4d747fa98fcba03ea3 (patch) | |
| tree | ff53b16faa9c8fef8530590abca8f8e99ba44ccb /lisp/term/common-win.el | |
| parent | d7265d58f8dbab8049be4be0fa3f474e7fef7be6 (diff) | |
| download | emacs-0dc75daf1189d2327c6efa4d747fa98fcba03ea3.tar.gz emacs-0dc75daf1189d2327c6efa4d747fa98fcba03ea3.tar.bz2 emacs-0dc75daf1189d2327c6efa4d747fa98fcba03ea3.zip | |
Filter out NS non-key events from `where-is-internal'
* doc/lispref/keymaps.texi (Scanning Keymaps): Document it.
* lisp/keymap.el (make-non-key-event): New function.
* lisp/term/common-win.el (x-setup-function-keys): Mark ns events
as not being keys (bug#55940).
* src/keymap.c (Fwhere_is_internal): Filter out key sequences that
are marked as being non-keys.
Diffstat (limited to 'lisp/term/common-win.el')
| -rw-r--r-- | lisp/term/common-win.el | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el index 6f1e322aba5..f7faba9cb7c 100644 --- a/lisp/term/common-win.el +++ b/lisp/term/common-win.el @@ -59,20 +59,19 @@ (setq system-key-alist (list ;; These are special "keys" used to pass events from C to lisp. - (cons 1 'ns-power-off) - (cons 2 'ns-open-file) - (cons 3 'ns-open-temp-file) - (cons 4 'ns-drag-file) - (cons 5 'ns-drag-color) - (cons 6 'ns-drag-text) - (cons 8 'ns-open-file-line) -;;; (cons 9 'ns-insert-working-text) -;;; (cons 10 'ns-delete-working-text) - (cons 11 'ns-spi-service-call) - (cons 12 'ns-new-frame) - (cons 13 'ns-toggle-toolbar) - (cons 14 'ns-show-prefs) - )))) + (cons 1 (make-non-key-event 'ns-power-off)) + (cons 2 (make-non-key-event 'ns-open-file)) + (cons 3 (make-non-key-event 'ns-open-temp-file)) + (cons 4 (make-non-key-event 'ns-drag-file)) + (cons 5 (make-non-key-event 'ns-drag-color)) + (cons 6 (make-non-key-event 'ns-drag-text)) + (cons 8 (make-non-key-event 'ns-open-file-line)) +;;; (cons 9 (make-non-key-event 'ns-insert-working-text)) +;;; (cons 10 (make-non-key-event 'ns-delete-working-text)) + (cons 11 (make-non-key-event 'ns-spi-service-call)) + (cons 12 (make-non-key-event 'ns-new-frame)) + (cons 13 (make-non-key-event 'ns-toggle-toolbar)) + (cons 14 (make-non-key-event 'ns-show-prefs)))))) (set-terminal-parameter frame 'x-setup-function-keys t))) (defvar x-invocation-args) |