# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1253500082 0
# Node ID 4640c3af38ada5cb3bb60ee983198f1a23117833
# Parent  04a7d9439cd07bdc4ced00fc863dacb21e6980c4
(dig-mode): Use define-derived-mode.

diff -r 04a7d9439cd0 -r 4640c3af38ad lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 20 19:59:38 2009 +0000
+++ b/lisp/ChangeLog	Mon Sep 21 02:28:02 2009 +0000
@@ -1,3 +1,7 @@
+2009-09-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* net/dig.el (dig-mode): Use define-derived-mode.
+
 2009-09-20  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-dispatcher.el (vc-do-command): Return the process object in
diff -r 04a7d9439cd0 -r 4640c3af38ad lisp/net/dig.el
--- a/lisp/net/dig.el	Sun Sep 20 19:59:38 2009 +0000
+++ b/lisp/net/dig.el	Mon Sep 21 02:28:02 2009 +0000
@@ -136,23 +136,16 @@
 
   (define-key dig-mode-map "q" 'dig-exit))
 
-(defun dig-mode ()
+(define-derived-mode dig-mode nil "Dig"
   "Major mode for displaying dig output."
-  (interactive)
-  (kill-all-local-variables)
-  (setq mode-name "dig")
-  (setq major-mode 'dig-mode)
-  (use-local-map dig-mode-map)
   (buffer-disable-undo)
   (unless (featurep 'xemacs)
     (set (make-local-variable 'font-lock-defaults)
 	 '(dig-font-lock-keywords t)))
   (when (featurep 'font-lock)
+    ;; FIXME: what is this for??  --Stef
     (font-lock-set-defaults))
-  (save-current-buffer
-    (if (fboundp 'run-mode-hooks)
-        (run-mode-hooks 'dig-mode-hook)
-      (run-hooks 'dig-mode-hook))))
+  )
 
 (defun dig-exit ()
   "Quit dig output buffer."