diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-21 02:28:02 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-21 02:28:02 +0000 |
| commit | 5ac4271539bc666668a8d9545138ff86a7cb426d (patch) | |
| tree | 35344e36b3364adb33e0f93668fad278d4600c35 /lisp/net/dig.el | |
| parent | 6b4df8a67f6f6a0cb4025b925acd30deb33e7b67 (diff) | |
| download | emacs-5ac4271539bc666668a8d9545138ff86a7cb426d.tar.gz | |
(dig-mode): Use define-derived-mode.
Diffstat (limited to 'lisp/net/dig.el')
| -rw-r--r-- | lisp/net/dig.el | 13 |
1 files changed, 3 insertions, 10 deletions
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." |