]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix bug#3224.
authorJuanma Barranquero <lekktu@gmail.com>
Thu, 7 Jan 2010 22:46:44 +0000 (23:46 +0100)
committerJuanma Barranquero <lekktu@gmail.com>
Thu, 7 Jan 2010 22:46:44 +0000 (23:46 +0100)
* vc-dir.el (vc-dir-prepare-status-buffer): Pass a (fake) filename
  to `create-file-buffer' as it expects, not just a buffer name.
  (vc-dir-mode): Include the buffer name in `list-buffers-directory',
  to help uniquify.

lisp/ChangeLog
lisp/vc-dir.el

index e64fa66c49035bf38f2647c9f780da77f461fecc..f9f748f751da17baf8a429310211bd304bde89f9 100644 (file)
@@ -1,3 +1,10 @@
+2010-01-07  Juanma Barranquero  <lekktu@gmail.com>
+
+       * vc-dir.el (vc-dir-prepare-status-buffer): Pass a (fake) filename
+       to `create-file-buffer' as it expects, not just a buffer name.
+       (vc-dir-mode): Include the buffer name in `list-buffers-directory',
+       to help uniquify.  (Bug#3224)
+
 2010-01-06  Jan Djärv  <jan.h.d@swipnet.se>
 
        * font-setting.el (font-setting-change-default-font): Use user-spec
index 61cc8575449448497d8ef3273e6f4b2b7635ed41..6563ac83550491c8969b68dfa31e59d0b9890f46 100644 (file)
@@ -101,7 +101,9 @@ See `run-hooks'."
                       (return buffer))))))))
     (or buf
         ;; Create a new buffer named BNAME.
-        (with-current-buffer (create-file-buffer bname)
+       ;; We pass a filename to create-file-buffer because it is what
+       ;; the function expects, and also what uniquify needs (if active)
+        (with-current-buffer (create-file-buffer (expand-file-name bname dir))
           (cd dir)
           (vc-setup-buffer (current-buffer))
           ;; Reset the vc-parent-buffer-name so that it does not appear
@@ -928,7 +930,7 @@ the *vc-dir* buffer.
     (set (make-local-variable 'vc-ewoc) (ewoc-create #'vc-dir-printer))
     (set (make-local-variable 'revert-buffer-function)
         'vc-dir-revert-buffer-function)
-    (setq list-buffers-directory default-directory)
+    (setq list-buffers-directory (expand-file-name "*vc-dir*" default-directory))
     (add-to-list 'vc-dir-buffers (current-buffer))
     ;; Make sure that if the directory buffer is killed, the update
     ;; process running in the background is also killed.