procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
value, whether we could auto-deduce `backend', or not.
This commit is contained in:
Dmitry Gutov 2013-10-24 05:27:29 +04:00
parent 369bbf7198
commit 8297b2cfdd
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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
with parameters" example. Simplify the "is it block or is it
hash" check, but also make it more thorough.

8
lisp/vc/vc.el
View file

@ -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 (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