diff -cr emacs/lisp/dired-aux.el em/lisp/dired-aux.el
*** emacs/lisp/dired-aux.el	Mon Dec  1 09:11:06 2003
--- em/lisp/dired-aux.el	Sun Dec  7 17:09:21 2003
***************
*** 561,568 ****
        (set-buffer err-buffer)
        (erase-buffer)
        (setq default-directory dir	; caller's default-directory
! 	    err (/= 0
! 		 (apply (function dired-call-process) program nil arguments)))
        (if err
  	  (progn
  	    (dired-log (concat program " " (prin1-to-string arguments) "\n"))
--- 561,568 ----
        (set-buffer err-buffer)
        (erase-buffer)
        (setq default-directory dir	; caller's default-directory
! 	    err (not (eq 0
! 		 (apply (function dired-call-process) program nil arguments))))
        (if err
  	  (progn
  	    (dired-log (concat program " " (prin1-to-string arguments) "\n"))
diff -cr emacs/lisp/ediff-diff.el em/lisp/ediff-diff.el
*** emacs/lisp/ediff-diff.el	Mon Sep  1 22:28:27 2003
--- em/lisp/ediff-diff.el	Sun Dec  7 17:10:35 2003
***************
*** 64,71 ****
  ;; The following functions needed for setting diff/diff3 options
  ;; test if diff supports the --binary option
  (defsubst ediff-test-utility (diff-util option &optional files)
!   (zerop (apply 'call-process
! 		(append (list diff-util nil nil nil option) files))))
  
  (defun ediff-diff-mandatory-option (diff-util)
    (let ((file (if (boundp 'null-device) null-device "/dev/null")))
--- 64,71 ----
  ;; The following functions needed for setting diff/diff3 options
  ;; test if diff supports the --binary option
  (defsubst ediff-test-utility (diff-util option &optional files)
!   (eq 0 (apply 'call-process
! 	       (append (list diff-util nil nil nil option) files))))
  
  (defun ediff-diff-mandatory-option (diff-util)
    (let ((file (if (boundp 'null-device) null-device "/dev/null")))
diff -cr emacs/lisp/ediff-ptch.el em/lisp/ediff-ptch.el
*** emacs/lisp/ediff-ptch.el	Mon Sep  1 22:28:27 2003
--- em/lisp/ediff-ptch.el	Sun Dec  7 17:11:43 2003
***************
*** 86,95 ****
  
  (defun ediff-test-patch-utility ()
    (condition-case nil
!       (cond ((zerop (call-process ediff-patch-program nil nil nil "-z." "-b"))
  	     ;; GNU `patch' v. >= 2.2
  	     'gnu)
! 	    ((zerop (call-process ediff-patch-program nil nil nil "-b"))
  	     'posix)
  	    (t 'traditional))
      (file-error nil)))
--- 86,95 ----
  
  (defun ediff-test-patch-utility ()
    (condition-case nil
!       (cond ((eq 0 (call-process ediff-patch-program nil nil nil "-z." "-b"))
  	     ;; GNU `patch' v. >= 2.2
  	     'gnu)
! 	    ((eq 0 (call-process ediff-patch-program nil nil nil "-b"))
  	     'posix)
  	    (t 'traditional))
      (file-error nil)))
diff -cr emacs/lisp/emacs-lisp/shadow.el em/lisp/emacs-lisp/shadow.el
*** emacs/lisp/emacs-lisp/shadow.el	Mon Sep  1 22:28:50 2003
--- em/lisp/emacs-lisp/shadow.el	Sun Dec  7 17:18:25 2003
***************
*** 161,167 ****
  		 ;; sizes.
  		 (and (= (nth 7 (file-attributes f1))
  			 (nth 7 (file-attributes f2)))
! 		      (zerop (call-process "cmp" nil nil nil "-s" f1 f2))))))))
  
  ;;;###autoload
  (defun list-load-path-shadows ()
--- 161,167 ----
  		 ;; sizes.
  		 (and (= (nth 7 (file-attributes f1))
  			 (nth 7 (file-attributes f2)))
! 		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))
  
  ;;;###autoload
  (defun list-load-path-shadows ()
diff -cr emacs/lisp/emulation/viper-util.el em/lisp/emulation/viper-util.el
*** emacs/lisp/emulation/viper-util.el	Mon Sep  1 22:28:53 2003
--- em/lisp/emulation/viper-util.el	Sun Dec  7 17:21:29 2003
***************
*** 394,410 ****
  			    command)))
        (goto-char (point-min))
        ;; Issue an error, if no match.
!       (if (> status 0)
! 	  (save-excursion
! 	    (skip-chars-forward " \t\n\j")
! 	    (if (looking-at "ls:")
! 		(viper-forward-Word 1))
! 	    (error "%s: %s"
! 		   (if (stringp  gshell)
! 		       gshell
! 		     "shell")
! 		   (buffer-substring (point) (viper-line-pos 'end)))
! 	    ))
        (goto-char (point-min))
        (viper-get-filenames-from-buffer 'one-per-line))
      ))
--- 394,410 ----
  			    command)))
        (goto-char (point-min))
        ;; Issue an error, if no match.
!       (unless (eq 0 status)
! 	(save-excursion
! 	  (skip-chars-forward " \t\n\j")
! 	  (if (looking-at "ls:")
! 	      (viper-forward-Word 1))
! 	  (error "%s: %s"
! 		 (if (stringp  gshell)
! 		     gshell
! 		   "shell")
! 		 (buffer-substring (point) (viper-line-pos 'end)))
! 	  ))
        (goto-char (point-min))
        (viper-get-filenames-from-buffer 'one-per-line))
      ))
diff -cr emacs/lisp/files.el em/lisp/files.el
*** emacs/lisp/files.el	Thu Nov  6 14:18:55 2003
--- em/lisp/files.el	Sun Dec  7 19:06:33 2003
***************
*** 4135,4144 ****
      (save-match-data
        (with-temp-buffer
  	(when (and directory-free-space-program
! 		   (zerop (call-process directory-free-space-program
! 					nil t nil
! 					directory-free-space-args
! 					dir)))
  	  ;; Usual format is a header line followed by a line of
  	  ;; numbers.
  	  (goto-char (point-min))
--- 4135,4144 ----
      (save-match-data
        (with-temp-buffer
  	(when (and directory-free-space-program
! 		   (eq 0 (call-process directory-free-space-program
! 				       nil t nil
! 				       directory-free-space-args
! 				       dir)))
  	  ;; Usual format is a header line followed by a line of
  	  ;; numbers.
  	  (goto-char (point-min))
***************
*** 4258,4278 ****
  				 file))))))))
  
  	  ;; If `insert-directory-program' failed, signal an error.
! 	  (if (/= result 0)
! 	      ;; On non-Posix systems, we cannot open a directory, so
! 	      ;; don't even try, because that will always result in
! 	      ;; the ubiquitous "Access denied".  Instead, show the
! 	      ;; command line so the user can try to guess what went wrong.
! 	      (if (and (file-directory-p file)
! 		       (memq system-type '(ms-dos windows-nt)))
! 		  (error
! 		   "Reading directory: \"%s %s -- %s\" exited with status %s"
! 		   insert-directory-program
! 		   (if (listp switches) (concat switches) switches)
! 		   file result)
! 		;; Unix.  Access the file to get a suitable error.
! 		(access-file file "Reading directory")
! 		(error "Listing directory failed but `access-file' worked")))
  
  	  (when (string-match "--dired\\>" switches)
  	    (forward-line -2)
--- 4258,4278 ----
  				 file))))))))
  
  	  ;; If `insert-directory-program' failed, signal an error.
! 	  (unless (eq 0 result)
! 	    ;; On non-Posix systems, we cannot open a directory, so
! 	    ;; don't even try, because that will always result in
! 	    ;; the ubiquitous "Access denied".  Instead, show the
! 	    ;; command line so the user can try to guess what went wrong.
! 	    (if (and (file-directory-p file)
! 		     (memq system-type '(ms-dos windows-nt)))
! 		(error
! 		 "Reading directory: \"%s %s -- %s\" exited with status %s"
! 		 insert-directory-program
! 		 (if (listp switches) (concat switches) switches)
! 		 file result)
! 	      ;; Unix.  Access the file to get a suitable error.
! 	      (access-file file "Reading directory")
! 	      (error "Listing directory failed but `access-file' worked")))
  
  	  (when (string-match "--dired\\>" switches)
  	    (forward-line -2)
diff -cr emacs/lisp/jka-compr.el em/lisp/jka-compr.el
*** emacs/lisp/jka-compr.el	Mon Sep  1 22:28:32 2003
--- em/lisp/jka-compr.el	Sun Dec  7 17:14:06 2003
***************
*** 356,362 ****
  
  	  (jka-compr-delete-temp-file err-file)))
  
!     (or (zerop
  	 (apply 'call-process
  		prog
  		infile
--- 356,362 ----
  
  	  (jka-compr-delete-temp-file err-file)))
  
!     (or (eq 0
  	 (apply 'call-process
  		prog
  		infile
diff -cr emacs/lisp/mail/sendmail.el em/lisp/mail/sendmail.el
*** emacs/lisp/mail/sendmail.el	Tue Sep 30 17:32:27 2003
--- em/lisp/mail/sendmail.el	Sun Dec  7 18:43:34 2003
***************
*** 1029,1035 ****
  			      )
  		      )
  		     (exit-value (apply 'call-process-region args)))
! 		(or (null exit-value) (zerop exit-value)
  		    (error "Sending...failed with exit value %d" exit-value)))
  	    (or fcc-was-found
  		(error "No recipients")))
--- 1029,1035 ----
  			      )
  		      )
  		     (exit-value (apply 'call-process-region args)))
! 		(or (null exit-value) (eq 0 exit-value)
  		    (error "Sending...failed with exit value %d" exit-value)))
  	    (or fcc-was-found
  		(error "No recipients")))
diff -cr emacs/lisp/man.el em/lisp/man.el
*** emacs/lisp/man.el	Sun Sep 28 20:12:29 2003
--- em/lisp/man.el	Sun Dec  7 17:14:58 2003
***************
*** 425,433 ****
  	  (cond
  	   (Man-fontify-manpage-flag
  	    nil)
! 	   ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
  	    Man-sysv-sed-script)
! 	   ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
  	    Man-berkeley-sed-script)
  	   (t
  	    nil))))
--- 425,433 ----
  	  (cond
  	   (Man-fontify-manpage-flag
  	    nil)
! 	   ((eq 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
  	    Man-sysv-sed-script)
! 	   ((eq 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
  	    Man-berkeley-sed-script)
  	   (t
  	    nil))))
diff -cr emacs/lisp/progmodes/idlwave.el em/lisp/progmodes/idlwave.el
*** emacs/lisp/progmodes/idlwave.el	Mon Sep  1 22:29:19 2003
--- em/lisp/progmodes/idlwave.el	Sun Dec  7 18:23:20 2003
***************
*** 3889,3897 ****
  		  (progn
  		    (message (concat "Tagging " item "..."))
  		    (setq errbuf (get-buffer-create "*idltags-error*"))
! 		    (setq status (+ status
! 				    (call-process "sh" nil errbuf nil "-c"
! 						  (concat cmd append item))))
  		    ;;
  		    ;; Append additional tags
  		    (setq append " --append ")
--- 3889,3900 ----
  		  (progn
  		    (message (concat "Tagging " item "..."))
  		    (setq errbuf (get-buffer-create "*idltags-error*"))
! 		    (setq status
! 			  (+ status
! 			     (if (eq 0 (call-process "sh" nil errbuf nil "-c"
! 						     (concat cmd append item)))
! 				 0
! 			       1)))
  		    ;;
  		    ;; Append additional tags
  		    (setq append " --append ")
diff -cr emacs/lisp/progmodes/make-mode.el em/lisp/progmodes/make-mode.el
*** emacs/lisp/progmodes/make-mode.el	Thu Nov 27 09:34:41 2003
--- em/lisp/progmodes/make-mode.el	Sun Dec  7 17:29:33 2003
***************
*** 1374,1380 ****
    (delete-file filename))		; remove the tmpfile
  
  (defun makefile-query-by-make-minus-q (target &optional filename)
!   (not (zerop
  	(call-process makefile-brave-make nil nil nil
  		      "-f" filename "-q" target))))
  
--- 1374,1380 ----
    (delete-file filename))		; remove the tmpfile
  
  (defun makefile-query-by-make-minus-q (target &optional filename)
!   (not (eq 0
  	(call-process makefile-brave-make nil nil nil
  		      "-f" filename "-q" target))))
  
diff -cr emacs/lisp/textmodes/flyspell.el em/lisp/textmodes/flyspell.el
*** emacs/lisp/textmodes/flyspell.el	Mon Sep  1 22:29:22 2003
--- em/lisp/textmodes/flyspell.el	Sun Dec  7 17:30:32 2003
***************
*** 1349,1355 ****
  					       ispell-personal-dictionary)))))
  		      (setq args (append args ispell-extra-args))
  		      args))))
!       (if (= c 0)
  	  (flyspell-external-point-words)
  	(error "Can't check region...")))))
  
--- 1349,1355 ----
  					       ispell-personal-dictionary)))))
  		      (setq args (append args ispell-extra-args))
  		      args))))
!       (if (eq c 0)
  	  (flyspell-external-point-words)
  	(error "Can't check region...")))))