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
41dfb835
Commit
41dfb835
authored
Jun 28, 1993
by
Richard M. Stallman
Browse files
(vc-update-change-log): Restore previous default-directory
for running rcs2log.
parent
d05b1883
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
10 deletions
+12
-10
lisp/vc.el
lisp/vc.el
+12
-10
No files found.
lisp/vc.el
View file @
41dfb835
...
...
@@ -1129,16 +1129,18 @@ From a program, any arguments are passed to the `rcs2log' script."
(
setq
files
(
cons
(
file-relative-name
file
)
files
)))
(
setq
buffers
(
cdr
buffers
)))
files
))))
(
find-file-other-window
(
find-change-log
))
(
barf-if-buffer-read-only
)
(
vc-buffer-sync
)
(
undo-boundary
)
(
goto-char
(
point-min
))
(
push-mark
)
(
message
"Computing change log entries..."
)
(
message
"Computing change log entries... %s"
(
if
(
eq
0
(
apply
'call-process
"rcs2log"
nil
t
nil
args
))
"done"
"failed"
)))
(
let
((
odefault
default-directory
))
(
find-file-other-window
(
find-change-log
))
(
barf-if-buffer-read-only
)
(
vc-buffer-sync
)
(
undo-boundary
)
(
goto-char
(
point-min
))
(
push-mark
)
(
message
"Computing change log entries..."
)
(
let
((
default-directory
odefault
))
(
message
"Computing change log entries... %s"
(
if
(
eq
0
(
apply
'call-process
"rcs2log"
nil
t
nil
args
))
"done"
"failed"
)))))
;; Functions for querying the master and lock files.
...
...
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