(dig-mode): Use define-derived-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11a5f69e4524bb190d940af3d03981bfd7ec358d..db810d0252f6b6d30b04fd4b1807deaad5ec5038 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/net/dig.el b/lisp/net/dig.el
index ecf66c61fd5ff8af3882197ee65afadaf474c441..e62e51e8e19cb5c1f58d4e40badb6c4c6ea3f6ea 100644 (file)
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -136,23 +136,16 @@ Buffer should contain output generated by `dig-invoke'."
 
   (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."