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)