# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1115417988 0
# Node ID f43815bbb3033c255f674860f303fbeeedb95644
# Parent  4ca8167b730452a21da21c88f08ff5fb83001eb7
(cvs-mode-commit, cvs-mode-edit-log): Don't fiddle with
list-buffers-directory.  This caused the *cvs-commit* buffer to be
sometimes mistakenly reused as a *cvs* buffer.

diff -r 4ca8167b7304 -r f43815bbb303 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 06 22:17:30 2005 +0000
+++ b/lisp/ChangeLog	Fri May 06 22:19:48 2005 +0000
@@ -1,3 +1,9 @@
+2005-05-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* pcvs.el (cvs-mode-commit, cvs-mode-edit-log): Don't fiddle with
+	list-buffers-directory.  This caused the *cvs-commit* buffer to be
+	sometimes mistakenly reused as a *cvs* buffer.
+
 2005-05-07  Nick Roberts  <nickrob@snap.net.nz>
 
 	* tooltip.el: Move code for GUD tooltips into gud.el.
@@ -33,9 +39,9 @@
 	(gud-tooltip-original-filter, gud-tooltip-dereference)
 	(gud-tooltip-event, tooltip-toggle-gud-tips)
 	(gud-tooltip-process-output, gud-tooltip-print-command)
-	(gud-tooltip-tips): Moved from tooltip.el.
-
-	* progmodes/gdb-ui.el (gdb-tooltip-print): Moved from tooltip.el.
+	(gud-tooltip-tips): Move from tooltip.el.
+
+	* progmodes/gdb-ui.el (gdb-tooltip-print): Move from tooltip.el.
 	(gdb-cpp-define-alist-flags): Doc fix.
 	(gdb-set-gud-minor-mode-1): Only prepare GUD tooltips if
 	gud-tooltip-mode is t.
diff -r 4ca8167b7304 -r f43815bbb303 lisp/pcvs.el
--- a/lisp/pcvs.el	Fri May 06 22:17:30 2005 +0000
+++ b/lisp/pcvs.el	Fri May 06 22:19:48 2005 +0000
@@ -1438,12 +1438,10 @@
   ;; displayed in the wrong minibuffer).
   (cvs-mode!)
   (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
-	(lbd list-buffers-directory)
 	(setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
 		      'log-edit)))
     (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf)
     (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-commit-minor-wrap)
-    (set (make-local-variable 'list-buffers-directory) lbd)
     (run-hooks 'cvs-mode-commit-hook)))
 
 (defun cvs-commit-minor-wrap (buf f)
@@ -1494,14 +1492,12 @@
   ;; displayed in the wrong minibuffer).
   (cvs-mode!)
   (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
-	(lbd list-buffers-directory)
 	(setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
 		      'log-edit)))
     (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)
     (when text (erase-buffer) (insert text))
     (set (make-local-variable 'cvs-edit-log-revision) rev)
     (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-edit-log-minor-wrap)
-    (set (make-local-variable 'list-buffers-directory) lbd)
     ;; (run-hooks 'cvs-mode-commit-hook)
     ))