X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fdig.el;h=02cb627cfd33fd3e9ed9c1dad5dbf96a4827686a;hp=c3b5db19a4c461754a0a85fe59268814c2968a3c;hb=b52037f4a9c6bee1ff556c22750e158da1208d4b;hpb=fe594e071388508aa408f975b8d40c955cc3dbbd

diff --git a/lisp/dig.el b/lisp/dig.el
index c3b5db19a..02cb627cf 100644
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -1,7 +1,6 @@
 ;;; 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
@@ -129,12 +128,11 @@ Buffer should contain output generated by `dig-invoke'."
 
 (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."
@@ -184,5 +182,4 @@ Returns nil for domain/class/type queries that result in no data."
 
 (provide 'dig)
 
-;; arch-tag: 1d61726e-9400-4013-9ae7-4035e0c7f7d6
 ;;; dig.el ends here