diff options
| author | Stefan Monnier | 2000-03-22 01:08:08 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-03-22 01:08:08 +0000 |
| commit | 43e56cba2ad79487bdd21415db54f6cf5afcbc40 (patch) | |
| tree | 1528bebd63825e0711f7dba263a257349fbb45cb | |
| parent | 184c50918ef6086f320e41058292accc41f09c7e (diff) | |
| download | emacs-43e56cba2ad79487bdd21415db54f6cf5afcbc40.tar.gz emacs-43e56cba2ad79487bdd21415db54f6cf5afcbc40.zip | |
(cvs-status-mode): Use define-derived-mode.
| -rw-r--r-- | lisp/cvs-status.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el index ed52d0fea82..b89bc6d2867 100644 --- a/lisp/cvs-status.el +++ b/lisp/cvs-status.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
| 6 | ;; Keywords: pcl-cvs cvs status tree | 6 | ;; Keywords: pcl-cvs cvs status tree |
| 7 | ;; Version: $Name: $ | 7 | ;; Version: $Name: $ |
| 8 | ;; Revision: $Id: cvs-status.el,v 1.1 2000/03/11 03:42:28 monnier Exp $ | 8 | ;; Revision: $Id: cvs-status.el,v 1.2 2000/03/22 01:01:36 monnier Exp $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -92,9 +92,7 @@ | |||
| 92 | 92 | ||
| 93 | (put 'cvs-status-mode 'mode-class 'special) | 93 | (put 'cvs-status-mode 'mode-class 'special) |
| 94 | ;;;###autoload | 94 | ;;;###autoload |
| 95 | (autoload 'cvs-status-mode "cvs-status" "Mode used for cvs status output." t) | 95 | (define-derived-mode cvs-status-mode fundamental-mode "CVS-Status" |
| 96 | (eval-when-compile (autoload 'easy-mmode-define-derived-mode "easy-mmode")) | ||
| 97 | (easy-mmode-define-derived-mode cvs-status-mode fundamental-mode "CVS-Status" | ||
| 98 | "Mode used for cvs status output." | 96 | "Mode used for cvs status output." |
| 99 | (set (make-local-variable 'font-lock-defaults) cvs-status-font-lock-defaults) | 97 | (set (make-local-variable 'font-lock-defaults) cvs-status-font-lock-defaults) |
| 100 | (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-status-minor-wrap)) | 98 | (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-status-minor-wrap)) |
| @@ -507,6 +505,12 @@ Optional prefix ARG chooses between two representations." | |||
| 507 | (provide 'cvs-status) | 505 | (provide 'cvs-status) |
| 508 | 506 | ||
| 509 | ;;; Change Log: | 507 | ;;; Change Log: |
| 510 | ;; $Log$ | 508 | ;; $Log: cvs-status.el,v $ |
| 509 | ;; Revision 1.2 2000/03/22 01:01:36 monnier | ||
| 510 | ;; (cvs-status-(prev|next)): Rename from | ||
| 511 | ;; cvs-status-(prev|next)-entry and use easy-mmode-define-navigation. | ||
| 512 | ;; (cvs-tree-dstr-*): Rename from cvstree-dstr-* and use two ascii chars | ||
| 513 | ;; to let the output "breathe" a little more (more readable). | ||
| 514 | ;; | ||
| 511 | 515 | ||
| 512 | ;;; cvs-status.el ends here | 516 | ;;; cvs-status.el ends here |