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