diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-03-09 10:03:47 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-03-09 10:03:47 +0100 |
| commit | 43b0df62cd5922df5495b3f4aee5b7beca14384f (patch) | |
| tree | 3c0bfa9526d08c9c85e646cd355467e3dfb439ac /lisp/emulation/keypad.el | |
| parent | 380ba045c48bfbb160da288b1bd50f82d3f999f0 (diff) | |
| parent | 9cbdf20316e1cec835a7dfe28877142e437976f4 (diff) | |
| download | emacs-43b0df62cd5922df5495b3f4aee5b7beca14384f.tar.gz emacs-43b0df62cd5922df5495b3f4aee5b7beca14384f.tar.bz2 emacs-43b0df62cd5922df5495b3f4aee5b7beca14384f.zip | |
Merge commit '9cbdf20316' into native-comp
Diffstat (limited to 'lisp/emulation/keypad.el')
| -rw-r--r-- | lisp/emulation/keypad.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el index e4f3c4d53ec..56202c7fff8 100644 --- a/lisp/emulation/keypad.el +++ b/lisp/emulation/keypad.el @@ -1,4 +1,4 @@ -;;; keypad.el --- simplified keypad bindings +;;; keypad.el --- simplified keypad bindings -*- lexical-binding: t; -*- ;; Copyright (C) 2002-2021 Free Software Foundation, Inc. @@ -101,10 +101,10 @@ "Specifies the keypad setup for unshifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified." - :set (lambda (symbol value) + :set (lambda (_symbol value) (if value (keypad-setup value nil nil value))) - :initialize 'custom-initialize-default + :initialize #'custom-initialize-default :link '(emacs-commentary-link "keypad.el") :version "22.1" :type '(choice (const :tag "Plain numeric keypad" numeric) @@ -124,10 +124,10 @@ decimal key must be specified." "Specifies the keypad setup for unshifted keypad keys when NumLock is on. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified." - :set (lambda (symbol value) + :set (lambda (_symbol value) (if value (keypad-setup value t nil value))) - :initialize 'custom-initialize-default + :initialize #'custom-initialize-default :link '(emacs-commentary-link "keypad.el") :version "22.1" :type '(choice (const :tag "Plain numeric keypad" numeric) @@ -147,10 +147,10 @@ decimal key must be specified." "Specifies the keypad setup for shifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified." - :set (lambda (symbol value) + :set (lambda (_symbol value) (if value (keypad-setup value nil t value))) - :initialize 'custom-initialize-default + :initialize #'custom-initialize-default :link '(emacs-commentary-link "keypad.el") :version "22.1" :type '(choice (const :tag "Plain numeric keypad" numeric) @@ -170,10 +170,10 @@ decimal key must be specified." "Specifies the keypad setup for shifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified." - :set (lambda (symbol value) + :set (lambda (_symbol value) (if value (keypad-setup value t t value))) - :initialize 'custom-initialize-default + :initialize #'custom-initialize-default :link '(emacs-commentary-link "keypad.el") :version "22.1" :type '(choice (const :tag "Plain numeric keypad" numeric) |