Commit 5ac42715 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 6b4df8a6
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
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment