From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Sep 2009 02:28:02 +0000 (+0000)
Subject: (dig-mode): Use define-derived-mode.
X-Git-Tag: emacs-pretest-23.1.90~1212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ac4271539bc666668a8d9545138ff86a7cb426d;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11a5f69e452..db810d0252f 100644
--- 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 ecf66c61fd5..e62e51e8e19 100644
--- 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."