diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-30 11:22:19 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-30 12:07:49 +0200 |
| commit | 2e21074efd01ad4cd79c70be2f45896af8bc2cdf (patch) | |
| tree | 89099145073d1822f65a351c6a3892958e8b9286 | |
| parent | 7e84db9484f59f3409d5c4e0d9b8a432381c2f15 (diff) | |
| download | emacs-2e21074efd01ad4cd79c70be2f45896af8bc2cdf.tar.gz emacs-2e21074efd01ad4cd79c70be2f45896af8bc2cdf.tar.bz2 emacs-2e21074efd01ad4cd79c70be2f45896af8bc2cdf.zip | |
Prefer defvar-keymap in dns-mode-map
* lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap.
| -rw-r--r-- | lisp/textmodes/dns-mode.el | 26 |
1 files changed, 9 insertions, 17 deletions
diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el index 42d547504c1..86da09c2168 100644 --- a/lisp/textmodes/dns-mode.el +++ b/lisp/textmodes/dns-mode.el @@ -1,6 +1,6 @@ ;;; dns-mode.el --- a mode for viewing/editing Domain Name System master files -*- lexical-binding: t -*- -;; Copyright (C) 2000-2001, 2004-2022 Free Software Foundation, Inc. +;; Copyright (C) 2000-2022 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Keywords: DNS master zone file SOA comm @@ -22,11 +22,11 @@ ;;; Commentary: -;; Use M-x dns-mode RET to invoke in master files. +;; Use `M-x dns-mode' to invoke in master files. ;; -;; C-c C-s Increment SOA serial. -;; Understands YYYYMMDDNN, Unix time, and serial number formats, -;; and complains if it fail to find SOA serial. +;; `C-c C-s' Increment SOA serial. +;; Understands YYYYMMDDNN, Unix time, and serial number +;; formats, and complains if it fail to find SOA serial. ;;; References: @@ -37,12 +37,6 @@ ;; Transport Layer Security (TLS) Protocol: TLSA" ;; RFC 6844, "DNS Certification Authority Authorization (CAA) Resource Record" -;;; Release history: - -;; 2004-09-11 Posted on gnu.emacs.sources. -;; 2004-09-13 Ported to XEmacs. -;; 2004-09-14 Installed in Emacs CVS. - ;;; Code: (eval-when-compile (require 'cl-lib)) @@ -142,12 +136,10 @@ manually with \\[dns-mode-soa-increment-serial]." ;; Keymap. -(defvar dns-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\C-c\C-s" #'dns-mode-soa-increment-serial) - (define-key map "\C-c\C-e" #'dns-mode-ipv6-to-nibbles) - map) - "Keymap for DNS master file mode.") +(defvar-keymap dns-mode-map + :doc "Keymap for DNS master file mode." + "C-c C-s" #'dns-mode-soa-increment-serial + "C-c C-e" #'dns-mode-ipv6-to-nibbles) ;; Menu. |