Mercurial > emacs

comparison lisp/cvs-status.el @ 28250:3cfb9a01a935

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-status-mode): Use define-derived-mode.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 22 Mar 2000 01:08:08 +0000
parents 090fad6a7bcb
children 3ec1142abebd
comparison
equal deleted inserted replaced
28249:090fad6a7bcb 28250:3cfb9a01a935
3 ;; Copyright (C) 1999-2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999-2000 Free Software Foundation, Inc.
4 4
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
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
90 '(cvs-status-font-lock-keywords t nil nil nil)) 90 '(cvs-status-font-lock-keywords t nil nil nil))
91 91
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))
101 99
102 ;; Define cvs-status-next and cvs-status-prev 100 ;; Define cvs-status-next and cvs-status-prev
505 503
506 504
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