Mercurial > emacs
comparison lisp/dired-aux.el @ 53477:79093b308520
* progmodes/idlwave.el (idlwave-make-tags):
* textmodes/flyspell.el (flyspell-large-region):.
* progmodes/make-mode.el (makefile-query-by-make-minus-q):
* emulation/viper-util.el (viper-glob-unix-files):
* emacs-lisp/shadow.el (shadow-same-file-or-nonexistent):
* man.el (Man-init-defvars):
* jka-compr.el (jka-compr-call-process):
* files.el (get-free-disk-space,insert-directory):
* ediff-ptch.el (ediff-test-patch-utility):
* ediff-diff.el (ediff-test-utility):
* dired-aux.el (dired-check-process):
* mail/sendmail.el (sendmail-send-it): Don't use = or zerop to
test the return value of call-process, because it can be a string.
author | Eli Zaretskii <eliz@is.elta.co.il> |
---|---|
date | Sat, 03 Jan 2004 12:11:21 +0000 |
parents | 99f19d6d7aeb |
children | eccc0649ce27 |
comparison
equal
deleted
inserted
replaced
53476:e4771968b95f | 53477:79093b308520 |
---|---|
559 ;; Get a clean buffer for error output: | 559 ;; Get a clean buffer for error output: |
560 (setq err-buffer (get-buffer-create " *dired-check-process output*")) | 560 (setq err-buffer (get-buffer-create " *dired-check-process output*")) |
561 (set-buffer err-buffer) | 561 (set-buffer err-buffer) |
562 (erase-buffer) | 562 (erase-buffer) |
563 (setq default-directory dir ; caller's default-directory | 563 (setq default-directory dir ; caller's default-directory |
564 err (/= 0 | 564 err (not (eq 0 |
565 (apply (function dired-call-process) program nil arguments))) | 565 (apply (function dired-call-process) program nil arguments)))) |
566 (if err | 566 (if err |
567 (progn | 567 (progn |
568 (dired-log (concat program " " (prin1-to-string arguments) "\n")) | 568 (dired-log (concat program " " (prin1-to-string arguments) "\n")) |
569 (dired-log err-buffer) | 569 (dired-log err-buffer) |
570 (or arguments program t)) | 570 (or arguments program t)) |