shr: Render td content with shr-descend

[gnus] / lisp / dig.el

diff --git a/lisp/dig.el b/lisp/dig.el
index 9392c73..d36247a 100644 (file)
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -129,12 +129,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."