Commit 8297b2cf authored by Dmitry Gutov's avatar Dmitry Gutov
Browse files

* lisp/vc/vc.el (vc-print-root-log): Always set `default-directory'

value, whether we could auto-deduce `backend', or not.
parent 369bbf71
2013-10-24 Dmitry Gutov <dgutov@yandex.ru> 2013-10-24 Dmitry Gutov <dgutov@yandex.ru>
* 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 * progmodes/ruby-mode.el (ruby-smie-rules): Fix the "curly block
with parameters" example. Simplify the "is it block or is it with parameters" example. Simplify the "is it block or is it
hash" check, but also make it more thorough. hash" check, but also make it more thorough.
......
...@@ -2330,10 +2330,10 @@ When called interactively with a prefix argument, prompt for LIMIT." ...@@ -2330,10 +2330,10 @@ When called interactively with a prefix argument, prompt for LIMIT."
(setq rootdir (vc-call-backend backend 'root default-directory)) (setq rootdir (vc-call-backend backend 'root default-directory))
(setq rootdir (read-directory-name "Directory for VC root-log: ")) (setq rootdir (read-directory-name "Directory for VC root-log: "))
(setq backend (vc-responsible-backend rootdir)) (setq backend (vc-responsible-backend rootdir))
(if backend (unless backend
(setq default-directory rootdir) (error "Directory is not version controlled")))
(error "Directory is not version controlled"))) (setq working-revision (vc-working-revision rootdir)
(setq working-revision (vc-working-revision rootdir)) default-directory rootdir)
(vc-print-log-internal backend (list rootdir) working-revision nil limit))) (vc-print-log-internal backend (list rootdir) working-revision nil limit)))
;;;###autoload ;;;###autoload
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment