forked from Github/emacs
Prefer defvar-keymap in dns-mode-map
* lisp/textmodes/dns-mode.el (dns-mode-map): Prefer defvar-keymap.
This commit is contained in:
parent
7e84db9484
commit
2e21074efd
1 changed files with 9 additions and 17 deletions
|
|
@ -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.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue