diff options
Diffstat (limited to 'lisp/emulation/edt-mapper.el')
| -rw-r--r-- | lisp/emulation/edt-mapper.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el index 98085c6214d..a723dbdbb90 100644 --- a/lisp/emulation/edt-mapper.el +++ b/lisp/emulation/edt-mapper.el @@ -1,4 +1,4 @@ -;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs +;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs -*- lexical-binding: t; -*- ;; Copyright (C) 1994-1995, 2000-2021 Free Software Foundation, Inc. @@ -26,7 +26,7 @@ ;; [Part of the GNU Emacs EDT Emulation.] -;; This emacs lisp program can be used to create an emacs lisp file +;; This Emacs Lisp program can be used to create an Emacs Lisp file ;; that defines the mapping of the user's keyboard to the LK-201 ;; keyboard function keys and keypad keys (around which EDT has been ;; designed). Please read the "Usage" AND "Known Problems" sections @@ -101,6 +101,8 @@ (define-obsolete-variable-alias 'edt-window-system 'window-system "27.1") (defconst edt-xserver (when (eq window-system 'x) + (declare-function x-server-vendor "xfns.c" + (&optional terminal)) ;; The Cygwin window manager has a `/' in its ;; name, which breaks the generated file name of ;; the custom key map file. Replace `/' with a @@ -176,7 +178,7 @@ (mapc (lambda (function-key) (if (not (lookup-key (current-global-map) function-key)) - (define-key (current-global-map) function-key 'forward-char))) + (define-key (current-global-map) function-key #'forward-char))) '([kp-0] [kp-1] [kp-2] [kp-3] [kp-4] [kp-5] [kp-6] [kp-7] [kp-8] [kp-9] [kp-space] |