[Emacs-diffs] emacs/lisp ChangeLog net/dig.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/21 02:28:05

Modified files:
        lisp           : ChangeLog 
        lisp/net       : dig.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16223&r2=1.16224
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/dig.el?cvsroot=emacs&r1=1.7&r2=1.8

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16223
retrieving revision 1.16224
diff -u -b -r1.16223 -r1.16224
--- ChangeLog   20 Sep 2009 19:55:36 -0000      1.16223
+++ ChangeLog   21 Sep 2009 02:28:02 -0000      1.16224
@@ -1,3 +1,7 @@
+2009-09-21  Stefan Monnier  <address@hidden>
+
+       * net/dig.el (dig-mode): Use define-derived-mode.
+
 2009-09-20  Dan Nicolaescu  <address@hidden>
 
        * vc-dispatcher.el (vc-do-command): Return the process object in

Index: net/dig.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/dig.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- net/dig.el  25 Aug 2009 03:21:17 -0000      1.7
+++ net/dig.el  21 Sep 2009 02:28:04 -0000      1.8
@@ -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."