[Emacs-diffs] trunk r114767: * lisp/vc/vc.el (vc-print-root-log): Always set `default-directory'

[Dmitry Gutov]

------------------------------------------------------------
revno: 114767
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Thu 2013-10-24 05:27:29 +0400
message:
  * lisp/vc/vc.el (vc-print-root-log): Always set `default-directory'
  value, whether we could auto-deduce `backend', or not.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/vc.el                  vc.el-20091113204419-o5vbwnq5f7feedwu-502

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-24 00:47:28 +0000
+++ b/lisp/ChangeLog    2013-10-24 01:27:29 +0000
@@ -1,5 +1,8 @@
 2013-10-24  Dmitry Gutov  <address@hidden>
 
+       * vc/vc.el (vc-print-root-log): Always set `default-directory'
+       value, whether we could auto-deduce `backend', or not.
+
        * progmodes/ruby-mode.el (ruby-smie-rules): Fix the "curly block
        with parameters" example.  Simplify the "is it block or is it
        hash" check, but also make it more thorough.

=== modified file 'lisp/vc/vc.el'
--- a/lisp/vc/vc.el     2013-10-10 14:59:09 +0000
+++ b/lisp/vc/vc.el     2013-10-24 01:27:29 +0000
@@ -2330,10 +2330,10 @@
        (setq rootdir (vc-call-backend backend 'root default-directory))
       (setq rootdir (read-directory-name "Directory for VC root-log: "))
       (setq backend (vc-responsible-backend rootdir))
-      (if backend
-         (setq default-directory rootdir)
-       (error "Directory is not version controlled")))
-    (setq working-revision (vc-working-revision rootdir))
+      (unless backend
+        (error "Directory is not version controlled")))
+    (setq working-revision (vc-working-revision rootdir)
+          default-directory rootdir)
     (vc-print-log-internal backend (list rootdir) working-revision nil limit)))
 
 ;;;###autoload