diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-04-26 01:00:39 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-04-26 01:11:05 +0200 |
| commit | 7b82650c60bd044c046601fc337c8a46b4fb853c (patch) | |
| tree | 0c11be32408477af80bcd3c14787230e15571b7f /lisp/net/dig.el | |
| parent | 0e2cd5f5ab8e3e870fde7c70cbc75fdd2b405746 (diff) | |
| download | emacs-7b82650c60bd044c046601fc337c8a46b4fb853c.tar.gz emacs-7b82650c60bd044c046601fc337c8a46b4fb853c.tar.bz2 emacs-7b82650c60bd044c046601fc337c8a46b4fb853c.zip | |
Use lexical-binding in dig.el and add tests
* lisp/net/dig.el: Use lexical-binding.
(dig-program, dig-dns-server, dig-font-lock-keywords): Remove
redundant :group args.
* test/lisp/net/dig-tests.el: New file.
Diffstat (limited to 'lisp/net/dig.el')
| -rw-r--r-- | lisp/net/dig.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/net/dig.el b/lisp/net/dig.el index 852d8ae0491..f36999119f2 100644 --- a/lisp/net/dig.el +++ b/lisp/net/dig.el @@ -1,4 +1,4 @@ -;;; dig.el --- Domain Name System dig interface +;;; dig.el --- Domain Name System dig interface -*- lexical-binding:t -*- ;; Copyright (C) 2000-2020 Free Software Foundation, Inc. @@ -42,15 +42,13 @@ (defcustom dig-program "dig" "Name of dig (domain information groper) binary." - :type 'file - :group 'dig) + :type 'file) (defcustom dig-dns-server nil "DNS server to query. If nil, use system defaults." :type '(choice (const :tag "System defaults") - string) - :group 'dig) + string)) (defcustom dig-font-lock-keywords '(("^;; [A-Z]+ SECTION:" 0 font-lock-keyword-face) @@ -58,8 +56,7 @@ If nil, use system defaults." ("^; <<>>.*" 0 font-lock-type-face) ("^;.*" 0 font-lock-function-name-face)) "Default expressions to highlight in dig mode." - :type 'sexp - :group 'dig) + :type 'sexp) (defun dig-invoke (domain &optional query-type query-class query-option |