projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright year to 2016
[gnus]
/
lisp
/
dig.el
diff --git
a/lisp/dig.el
b/lisp/dig.el
index
c3b5db1
..
02cb627
100644
(file)
--- a/
lisp/dig.el
+++ b/
lisp/dig.el
@@
-1,7
+1,6
@@
;;; dig.el --- Domain Name System dig interface
;;; dig.el --- Domain Name System dig interface
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2016 Free Software Foundation, Inc.
;; Author: Simon Josefsson <simon@josefsson.org>
;; Keywords: DNS BIND dig comm
;; Author: Simon Josefsson <simon@josefsson.org>
;; Keywords: DNS BIND dig comm
@@
-129,12
+128,11
@@
Buffer should contain output generated by `dig-invoke'."
(put 'dig-mode 'mode-class 'special)
(put 'dig-mode 'mode-class 'special)
-(defvar dig-mode-map nil)
-(unless dig-mode-map
- (setq dig-mode-map (make-sparse-keymap))
- (suppress-keymap dig-mode-map)
-
- (define-key dig-mode-map "q" 'dig-exit))
+(defvar dig-mode-map
+ (let ((map (make-sparse-keymap)))
+ (suppress-keymap map)
+ (define-key map "q" 'dig-exit)
+ map))
(define-derived-mode dig-mode nil "Dig"
"Major mode for displaying dig output."
(define-derived-mode dig-mode nil "Dig"
"Major mode for displaying dig output."
@@
-184,5
+182,4
@@
Returns nil for domain/class/type queries that result in no data."
(provide 'dig)
(provide 'dig)
-;; arch-tag: 1d61726e-9400-4013-9ae7-4035e0c7f7d6
;;; dig.el ends here
;;; dig.el ends here