comparison lisp/vc.el @ 13890:6e14467a9a9e

(vc-backend-checkin): Use vc-checkin-switches.
author Erik Naggum <erik@naggum.no>
date Fri, 29 Dec 1995 20:49:46 +0000
parents faf3e1b6f976
children ee57ee38cdb5
comparison
equal deleted inserted replaced
13889:1c65a1e5f099 13890:6e14467a9a9e
1979 (setq comment "*** empty log message ***")) 1979 (setq comment "*** empty log message ***"))
1980 (save-excursion 1980 (save-excursion
1981 ;; Change buffers to get local value of vc-checkin-switches. 1981 ;; Change buffers to get local value of vc-checkin-switches.
1982 (set-buffer (or (get-file-buffer file) (current-buffer))) 1982 (set-buffer (or (get-file-buffer file) (current-buffer)))
1983 (let ((switches 1983 (let ((switches
1984 (if (stringp vc-checkout-switches) 1984 (if (stringp vc-checkin-switches)
1985 (list vc-checkout-switches) 1985 (list vc-checkin-switches)
1986 vc-checkout-switches))) 1986 vc-checkin-switches)))
1987 ;; Clear the master-properties. Do that here, not at the 1987 ;; Clear the master-properties. Do that here, not at the
1988 ;; end, because if the check-in fails we want them to get 1988 ;; end, because if the check-in fails we want them to get
1989 ;; re-computed before the next try. 1989 ;; re-computed before the next try.
1990 (vc-file-clear-masterprops file) 1990 (vc-file-clear-masterprops file)
1991 (vc-backend-dispatch file 1991 (vc-backend-dispatch file