diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
commit | 07fcbb558d797272b9f43547da60beda485873a3 (patch) | |
tree | 77d5da14e9f9d9d8b1d877c70c01296fd3893796 /lisp/emulation/edt-mapper.el | |
parent | c9bdeff3e45a7ac84a74a81bb048046f82dddc91 (diff) | |
parent | fb81c8c3adf8633f2f617c82f6019aef630860c7 (diff) | |
download | emacs-07fcbb558d797272b9f43547da60beda485873a3.tar.gz |
Merge remote-tracking branch 'origin/master' into athena/unstable
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] |