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
2c4eea90
Commit
2c4eea90
authored
Mar 13, 1999
by
Karl Heuer
Browse files
(vc-delete-logbuf-window): New var.
(vc-finish-logentry): Use it.
parent
70e00413
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
6 deletions
+17
-6
lisp/vc.el
lisp/vc.el
+17
-6
No files found.
lisp/vc.el
View file @
2c4eea90
...
...
@@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
;; $Id: vc.el,v 1.24
2
1999/01/
0
2
21:54:32 rms Exp spiegel
$
;; $Id: vc.el,v 1.24
3
1999/01/
2
2
16:28:12 spiegel Exp kwzh
$
;; This file is part of GNU Emacs.
...
...
@@ -107,6 +107,14 @@ If FORM3 is `RCS', use FORM2 for CVS as well as RCS.
:type
'boolean
:group
'vc
)
(
defcustom
vc-delete-logbuf-window
t
"*If non-nil, delete the *VC-log* buffer and window after each logical action.
If nil, bury that buffer instead.
This is most useful if you have multiple windows on a frame and would like to
preserve the setting."
:type
'boolean
:group
'vc
)
(
defcustom
vc-initial-comment
nil
"*If non-nil, prompt for initial comment when a file is registered."
:type
'boolean
...
...
@@ -1242,7 +1250,6 @@ May be useful as a `vc-checkin-hook' to update change logs automatically."
(or (eobp) (looking-at "
\n\n
")
(insert "
\n
"))))
(defun vc-finish-logentry (&optional nocomment)
"
Complete
the
operation
implied
by
the
current
log
entry.
"
(interactive)
...
...
@@ -1266,7 +1273,8 @@ May be useful as a `vc-checkin-hook' to update change logs automatically."
(log-file vc-log-file)
(log-version vc-log-version)
(log-entry (buffer-string))
(after-hook vc-log-after-operation-hook))
(after-hook vc-log-after-operation-hook)
(tmp-vc-parent-buffer vc-parent-buffer))
(pop-to-buffer vc-parent-buffer)
;; OK, do it to it
(save-excursion
...
...
@@ -1277,10 +1285,13 @@ May be useful as a `vc-checkin-hook' to update change logs automatically."
;; Remove checkin window (after the checkin so that if that fails
;; we don't zap the *VC-log* buffer and the typing therein).
(let ((logbuf (get-buffer "
*VC-log*
")))
(cond (logbuf
(delete-windows-on logbuf (selected-frame))
(cond (
(and
logbuf
vc-delete-logbuf-window)
(delete-windows-on logbuf (selected-frame))
;; Kill buffer and delete any other dedicated windows/frames.
(kill-buffer logbuf))))
(kill-buffer logbuf))
(t (pop-to-buffer "
*VC-log*
")
(bury-buffer)
(pop-to-buffer tmp-vc-parent-buffer))))
;; Now make sure we see the expanded headers
(if buffer-file-name
(vc-resynch-window buffer-file-name vc-keep-workfiles t))
...
...
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