Mercurial > emacs
comparison lisp/vc.el @ 12926:ecb9cf000265
Removed the comment that said we assume strict locking.
(vc-next-action-dired): Don't switch to vc-parent-buffer, because that
was already done.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Tue, 22 Aug 1995 17:53:14 +0000 |
parents | 0a7201b3c492 |
children | 10d0f42db2da |
comparison
equal
deleted
inserted
replaced
12925:77c9a594fe55 | 12926:ecb9cf000265 |
---|---|
39 ;; or newer. Currently (January 1994) that is only a beta test release. | 39 ;; or newer. Currently (January 1994) that is only a beta test release. |
40 ;; Even initial checkins will fail if your RCS version is so old that ci | 40 ;; Even initial checkins will fail if your RCS version is so old that ci |
41 ;; doesn't understand -t-; this has been known to happen to people running | 41 ;; doesn't understand -t-; this has been known to happen to people running |
42 ;; NExTSTEP 3.0. | 42 ;; NExTSTEP 3.0. |
43 ;; | 43 ;; |
44 ;; The RCS code assumes strict locking. You can support the RCS -x option | 44 ;; You can support the RCS -x option by adding pairs to the |
45 ;; by adding pairs to the vc-master-templates list. | 45 ;; vc-master-templates list. |
46 ;; | 46 ;; |
47 ;; Proper function of the SCCS diff commands requires the shellscript vcdiff | 47 ;; Proper function of the SCCS diff commands requires the shellscript vcdiff |
48 ;; to be installed somewhere on Emacs's path for executables. | 48 ;; to be installed somewhere on Emacs's path for executables. |
49 ;; | 49 ;; |
50 ;; If your site uses the ChangeLog convention supported by Emacs, the | 50 ;; If your site uses the ChangeLog convention supported by Emacs, the |
602 ))))) | 602 ))))) |
603 | 603 |
604 (defun vc-next-action-dired (file rev comment) | 604 (defun vc-next-action-dired (file rev comment) |
605 ;; We've accepted a log comment, now do a vc-next-action using it on all | 605 ;; We've accepted a log comment, now do a vc-next-action using it on all |
606 ;; marked files. | 606 ;; marked files. |
607 (set-buffer vc-parent-buffer) | |
608 (let ((configuration (current-window-configuration))) | 607 (let ((configuration (current-window-configuration))) |
609 (dired-map-over-marks | 608 (dired-map-over-marks |
610 (save-window-excursion | 609 (save-window-excursion |
611 (let ((file (dired-get-filename))) | 610 (let ((file (dired-get-filename))) |
612 (message "Processing %s..." file) | 611 (message "Processing %s..." file) |