Mercurial > emacs
comparison lisp/log-view.el @ 41137:98cd2e32a438
(log-view-mode): Don't mark the buffer unmodified.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 16 Nov 2001 13:53:05 +0000 |
parents | 4b4504c5aa56 |
children | be985e4c1430 |
comparison
equal
deleted
inserted
replaced
41136:76fbe1b154a2 | 41137:98cd2e32a438 |
---|---|
2 | 2 |
3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
6 ;; Keywords: rcs sccs cvs log version-control | 6 ;; Keywords: rcs sccs cvs log version-control |
7 ;; Revision: $Id: log-view.el,v 1.8 2001/11/12 20:34:45 sds Exp $ | 7 ;; Revision: $Id: log-view.el,v 1.9 2001/11/12 23:01:17 sds Exp $ |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
99 ;;;; | 99 ;;;; |
100 | 100 |
101 ;;;###autoload | 101 ;;;###autoload |
102 (define-derived-mode log-view-mode fundamental-mode "Log-View" | 102 (define-derived-mode log-view-mode fundamental-mode "Log-View" |
103 "Major mode for browsing CVS log output." | 103 "Major mode for browsing CVS log output." |
104 (set-buffer-modified-p nil) | |
105 (setq buffer-read-only t) | 104 (setq buffer-read-only t) |
106 (set (make-local-variable 'font-lock-defaults) log-view-font-lock-defaults) | 105 (set (make-local-variable 'font-lock-defaults) log-view-font-lock-defaults) |
107 (set (make-local-variable 'cvs-minor-wrap-function) 'log-view-minor-wrap)) | 106 (set (make-local-variable 'cvs-minor-wrap-function) 'log-view-minor-wrap)) |
108 | 107 |
109 ;;;; | 108 ;;;; |
193 (setq to (log-view-current-tag)))) | 192 (setq to (log-view-current-tag)))) |
194 (vc-version-diff (log-view-current-file) to fr))) | 193 (vc-version-diff (log-view-current-file) to fr))) |
195 | 194 |
196 (provide 'log-view) | 195 (provide 'log-view) |
197 | 196 |
198 ;;; Change Log: | |
199 ;; $Log: log-view.el,v $ | |
200 ;; Revision 1.8 2001/11/12 20:34:45 sds | |
201 ;; updated (C) | |
202 ;; | |
203 ;; Revision 1.7 2001/10/29 15:46:46 kai | |
204 ;; (log-view-mode-map): Bind `M-n' and `M-p', not `M n' | |
205 ;; and `M p'. | |
206 ;; | |
207 ;; Revision 1.6 2000/12/18 03:17:31 monnier | |
208 ;; Remove useless Version. | |
209 ;; | |
210 ;; Revision 1.5 2000/12/06 19:49:40 fx | |
211 ;; Fix copyright years. | |
212 ;; | |
213 ;; Revision 1.4 2000/05/21 02:12:34 monnier | |
214 ;; Fix file description. | |
215 ;; (log-view-mode-map): Unsatisfying fix for when cvs-mode-map is not | |
216 ;; available. | |
217 ;; (log-view-font-lock-keywords): Only use cvs-filename-face if present. | |
218 ;; (log-view-current-file): Only use cvs-pcl-cvs-dirchange-re if present. | |
219 ;; | |
220 ;; Revision 1.3 2000/05/10 22:22:21 monnier | |
221 ;; (log-view-goto-rev): New function for the new VC. | |
222 ;; (log-view-minor-wrap): Use mark-active. | |
223 ;; | |
224 ;; Revision 1.2 2000/03/22 01:10:09 monnier | |
225 ;; (log-view-(msg|file)-(prev|next)): Rename from | |
226 ;; log-view-*-(message|file) and use easy-mmode-define-navigation. | |
227 ;; (log-view-message-re): Match SCCS format as well. | |
228 ;; And match the revision line rather than the dashed separator line. | |
229 ;; (log-view-mode): Use the new define-derived-mode. | |
230 ;; (log-view-current-tag): Fill in with an actual implementation. | |
231 ;; | |
232 | |
233 ;;; log-view.el ends here | 197 ;;; log-view.el ends here |