# HG changeset patch # User Karl Heuer # Date 820797273 0 # Node ID 90c87743d3baa82206a18c3637a02ce97a37fd2c # Parent de80a367ca08d566d05065248a9ef3def424315b (ediff-exec-process): Fix local var misspelling. diff -r de80a367ca08 -r 90c87743d3ba lisp/ediff-diff.el --- a/lisp/ediff-diff.el Thu Jan 04 23:13:09 1996 +0000 +++ b/lisp/ediff-diff.el Thu Jan 04 23:14:33 1996 +0000 @@ -984,11 +984,11 @@ )) -;; Execute PROGRAM asynchronously, unless OS/2 or unless SYNCH is non-nil. +;; Execute PROGRAM asynchronously, unless OS/2 or unless SYNC is non-nil. ;; BUFFER must be a buffer object, and must be alive. ;; All arguments in ARGS must be strings. The first arg may be a blank string, ;; in which case we delete it from ARGS list. We also delete nil from args. -(defun ediff-exec-process (program buffer synch &rest args) +(defun ediff-exec-process (program buffer sync &rest args) (let ((data (match-data))) (if (string-match "^[ \t]*$" (car args)) ; delete blank string (setq args (cdr args))) @@ -1001,11 +1001,11 @@ (set-buffer buffer) (erase-buffer) (setq default-directory directory) - (if (or (eq system-type 'emx) synch) + (if (or (eq system-type 'emx) sync) ;; In OS/2 do it synchronously, since OS/2 doesn't let us ;; delete files used by other processes. Thus, in ediff-buffers ;; and similar functions, we can't delete temp files because - ;; they might be used by the asynch process that computes + ;; they might be used by the async process that computes ;; custom diffs. So, we have to wait till custom diff ;; subprocess is done. (apply 'call-process program nil buffer nil args)