[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog net/dig.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog net/dig.el |
Date: |
Mon, 21 Sep 2009 02:28:05 +0000 |
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."
- [Emacs-diffs] emacs/lisp ChangeLog net/dig.el,
Stefan Monnier <=