Prefer defvar-keymap in dns-mode-map

* lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap.

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.