comparison lisp/vc.el @ 83530:46b1096093f5

Merged from [e-mail]. Patches applied: * [e-mail]/emacs--devo--0--patch-294 Update from CVS * [e-mail]/emacs--devo--0--patch-295 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-296 Update from CVS: admin/FOR-RELEASE: Update refcard section. * [e-mail]/emacs--devo--0--patch-297 Update from CVS * [e-mail]/emacs--devo--0--patch-298 Update from CVS * [e-mail]/emacs--devo--0--patch-299 Update from CVS * [e-mail]/emacs--devo--0--patch-300 Update from CVS * [e-mail]/emacs--devo--0--patch-301 Update from CVS * [e-mail]/emacs--devo--0--patch-302 Update from CVS * [e-mail]/emacs--devo--0--patch-303 Update from CVS * [e-mail]/emacs--devo--0--patch-304 Update from CVS * [e-mail]/gnus--rel--5.10--patch-103 Update from CVS * [e-mail]/gnus--rel--5.10--patch-104 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-570

83529:0d9e16eab053

      (if (not (vc-backend buffer-file-name))
	  (error "File %s is not under version control" buffer-file-name)))))

(defun vc-process-filter (p s)
  "An alternative output filter for async process P.
The only difference with the default filter is to insert S after markers."
  (with-current-buffer (process-buffer p)
    (save-excursion
      (let ((inhibit-read-only t))
	(goto-char (process-mark p))
	(insert s)
	(set-marker (process-mark p) (point))))))

(defun vc-setup-buffer (&optional buf)

    (kill-all-local-variables)
    (set (make-local-variable 'vc-parent-buffer) camefrom)
    (set (make-local-variable 'vc-parent-buffer-name)
	 (concat " from " (buffer-name camefrom)))
    (setq default-directory olddir)
    (let ((inhibit-read-only t))
      (erase-buffer))))

(defun vc-exec-after (code)
  "Eval CODE when the current buffer's process is done.
If the current buffer has no process, just evaluate CODE.

	      ;;(set-process-sentinel proc (lambda (p msg) (delete-process p)))
	      (set-process-filter proc 'vc-process-filter)
	      (vc-exec-after
	       `(unless (active-minibuffer-window)
                  (message "Running %s in the background... done" ',command))))
	  (setq status (apply 'process-file command nil t nil squeezed))
	  (when (and (not (eq t okstatus))
                     (or (not (integerp status))
                         (and okstatus (< okstatus status))))
	    (pop-to-buffer (current-buffer))
	    (goto-char (point-min))

83530:46b1096093f5

      (if (not (vc-backend buffer-file-name))
	  (error "File %s is not under version control" buffer-file-name)))))

(defun vc-process-filter (p s)
  "An alternative output filter for async process P.
One difference with the default filter is that this inserts S after markers.
Another is that undo information is not kept."
  (with-current-buffer (process-buffer p)
    (save-excursion
      (let ((buffer-undo-list t)
            (inhibit-read-only t))
	(goto-char (process-mark p))
	(insert s)
	(set-marker (process-mark p) (point))))))

(defun vc-setup-buffer (&optional buf)

    (kill-all-local-variables)
    (set (make-local-variable 'vc-parent-buffer) camefrom)
    (set (make-local-variable 'vc-parent-buffer-name)
	 (concat " from " (buffer-name camefrom)))
    (setq default-directory olddir)
    (let ((buffer-undo-list t)
          (inhibit-read-only t))
      (erase-buffer))))

(defun vc-exec-after (code)
  "Eval CODE when the current buffer's process is done.
If the current buffer has no process, just evaluate CODE.

	      ;;(set-process-sentinel proc (lambda (p msg) (delete-process p)))
	      (set-process-filter proc 'vc-process-filter)
	      (vc-exec-after
	       `(unless (active-minibuffer-window)
                  (message "Running %s in the background... done" ',command))))
	  (let ((buffer-undo-list t))
            (setq status (apply 'process-file command nil t nil squeezed)))
	  (when (and (not (eq t okstatus))
                     (or (not (integerp status))
                         (and okstatus (< okstatus status))))
	    (pop-to-buffer (current-buffer))
	    (goto-char (point-min))