Mercurial > emacs

changeset 33195:d296e0e3cf43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-mode-add-change-log-entry-other-window): Bind change-log-default-mode to defeat the caching done on it. Don't bother saving excursion any more.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Nov 2000 22:34:26 +0000
parents cbfead93715d
children 447a9cc666dd
files lisp/pcvs.el
diffstat 1 files changed, 8 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/pcvs.el	Fri Nov 03 22:30:37 2000 +0000
+++ b/lisp/pcvs.el	Fri Nov 03 22:34:26 2000 +0000
@@ -14,7 +14,7 @@
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
 ;; Version: $Name:  $
-;; Revision: $Id: pcvs.el,v 1.12 2000/10/08 19:11:34 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.13 2000/10/15 05:18:33 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -57,6 +57,10 @@
 ;; ******** FIX THE DOCUMENTATION *********
 ;; 
 ;; - use UP-TO-DATE rather than DEAD when cleaning before `examine'.
+;; - Allow to flush messages only
+;; - Allow to protect files like ChangeLog from flushing
+;; - Automatically cvs-mode-insert files from find-file-hook
+;;   (and don't flush them as long as they are visited)
 ;; 
 ;; - hide fileinfos without getting rid of them (will require ewok work).
 ;; - add toolbar entries
@@ -1905,14 +1909,9 @@
   (interactive)
   (let* ((fi (cvs-mode-marked nil nil :one t))
 	 (default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
-	 (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
-    ;; This `save-excursion' is necessary because of interaction between
-    ;; dynamic scoping and buffer-local variables:
-    ;; the above binding of `buffer-file-name' has temporarily changed the
-    ;; buffer-local variable (same thing for `default-directory'), so we
-    ;; need to switch back to the original buffer before the unbinding
-    ;; restores the old value.
-    (save-excursion (add-change-log-entry-other-window))))
+	 (buffer-file-name (expand-file-name (cvs-fileinfo->file fi)))
+	 change-log-default-name)
+    (add-change-log-entry-other-window)))
 
 ;; interactive commands to set optional flags