Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
192350af
Commit
192350af
authored
May 14, 2008
by
Eric S. Raymond
Browse files
Make vc-deduce-fileset do the right thing in derived buffers.
parent
26a3b310
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
1 deletion
+13
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/vc.el
lisp/vc.el
+8
-1
No files found.
lisp/ChangeLog
View file @
192350af
2008-05-14 Eric S. Raymond <esr@snark.thyrsus.com>
* vc.el (vc-deduce-fileset): Do the right thing when visting a
buffer (say, a log buffer or diff buffer) with a vc-dir buffer as parent.
2008-05-14 John Paul Wallington <jpw@pobox.com>
* international/mule.el (convert-define-charset-argument): Remove
...
...
lisp/vc.el
View file @
192350af
...
...
@@ -982,12 +982,19 @@ Within directories, only files already under version control are noticed."
(
push
node
flattened
))
(
nreverse
flattened
)))
(
defun
vc-derived-from-dir-mode
(
&optional
buffer
)
"Are we in a VC-directory buffer, or do we have one as an ancestor?"
(
let
((
buffer
(
or
buffer
(
current-buffer
))))
(
cond
((
derived-mode-p
'vc-dir-mode
)
t
)
(
vc-parent-buffer
(
vc-derived-from-dir-mode
vc-parent-buffer
))
(
t
nil
))))
(
defun
vc-deduce-fileset
(
&optional
observer
)
"Deduce a set of files and a backend to which to apply an operation and
the common state of the fileset. Return (BACKEND . FILESET)."
(
let*
((
fileset
(
vc-dispatcher-selection-set
observer
))
;; FIXME: Store the backend in a buffer-local variable.
(
backend
(
if
(
derived-
mode-p
'vc-dir-mode
)
(
backend
(
if
(
vc-
derived-
from-dir-mode
(
current-buffer
)
)
(
vc-responsible-backend
default-directory
)
(
assert
(
and
(
=
1
(
length
fileset
))
(
not
(
file-directory-p
(
car
fileset
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment