From 2e21074efd01ad4cd79c70be2f45896af8bc2cdf Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 30 Jul 2022 11:22:19 +0200 Subject: [PATCH] Prefer defvar-keymap in dns-mode-map * lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap. --- lisp/textmodes/dns-mode.el | 26 +++++++++----------------- 1 file 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 ;; 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. -- 2.39.2