Prefer defvar-keymap in dns-mode-map

* lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap.
This commit is contained in:
Stefan Kangas 2022-07-30 11:22:19 +02:00
parent 7e84db9484
commit 2e21074efd

View file

@ -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.