Mercurial > emacs

comparison lisp/vc.el @ 90037:0fe073a08cef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-65 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-634 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-639 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-640 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-641 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-59 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-60 Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 27 Oct 2004 05:42:04 +0000
parents ff0e824afa37 b324ca4df07c
children e24e2e78deda
comparison
equal deleted inserted replaced
90036:af754c88f187 90037:0fe073a08cef
951 ;;(set-process-sentinel proc (lambda (p msg) (delete-process p))) 951 ;;(set-process-sentinel proc (lambda (p msg) (delete-process p)))
952 (set-process-filter proc 'vc-process-filter) 952 (set-process-filter proc 'vc-process-filter)
953 (vc-exec-after 953 (vc-exec-after
954 `(unless (active-minibuffer-window) 954 `(unless (active-minibuffer-window)
955 (message "Running %s in the background... done" ',command)))) 955 (message "Running %s in the background... done" ',command))))
956 (setq status (apply 'call-process command nil t nil squeezed)) 956 (setq status (apply 'process-file command nil t nil squeezed))
957 (when (or (not (integerp status)) (and okstatus (< okstatus status))) 957 (when (or (not (integerp status)) (and okstatus (< okstatus status)))
958 (pop-to-buffer (current-buffer)) 958 (pop-to-buffer (current-buffer))
959 (goto-char (point-min)) 959 (goto-char (point-min))
960 (shrink-window-if-larger-than-buffer) 960 (shrink-window-if-larger-than-buffer)
961 (error "Running %s...FAILED (%s)" command 961 (error "Running %s...FAILED (%s)" command