comparison lisp/vc-rcs.el @ 91005:424b655804ca

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 846-851) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 88-92) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 242-244) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-246

91004:f72cf5b2ab11

          (error "rcsdiff failed"))
      (if (not vc-rcsdiff-knows-brief) (setq vc-rcsdiff-knows-brief 'yes)))
    ;; The workfile is unchanged if rcsdiff found no differences.
    (zerop status)))


;;;
;;; State-changing functions
;;;

91005:424b655804ca

          (error "rcsdiff failed"))
      (if (not vc-rcsdiff-knows-brief) (setq vc-rcsdiff-knows-brief 'yes)))
    ;; The workfile is unchanged if rcsdiff found no differences.
    (zerop status)))

(defun vc-rcs-find-file-not-found-hook ()
  (if (yes-or-no-p
       (format "File %s was lost; check out from version control? "
	       (file-name-nondirectory buffer-file-name)))
      (save-excursion
	(require 'vc)
	(let ((default-directory (file-name-directory buffer-file-name)))
          (not (vc-error-occurred (vc-checkout buffer-file-name)))))))

;;;
;;; State-changing functions
;;;