Mercurial > emacs
comparison admin/cus-test.el @ 47889:9553f9fe9ad3
(cus-test-libs): Use equal instead of =.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Tue, 15 Oct 2002 05:15:25 +0000 |
| parents | 02c982b64945 |
| children | 11b74e54eddf |
comparison
equal
deleted
inserted
replaced
| 47888:91409c579766 | 47889:9553f9fe9ad3 |
|---|---|
| 107 ;; The following load problems appeared: | 107 ;; The following load problems appeared: |
| 108 ;; (eudc-export error 255) | 108 ;; (eudc-export error 255) |
| 109 ;; (ada-xref error 255) | 109 ;; (ada-xref error 255) |
| 110 ;; (ada-stmt error 255) | 110 ;; (ada-stmt error 255) |
| 111 | 111 |
| 112 | |
| 112 ;;; Code: | 113 ;;; Code: |
| 113 | 114 |
| 114 ;;; Workarounds. For a smooth run and to avoid some side effects. | 115 ;;; Workarounds. For a smooth run and to avoid some side effects. |
| 115 | 116 |
| 116 (defvar cus-test-after-load-libs-hook nil | 117 (defvar cus-test-after-load-libs-hook nil |
| 456 (if (not fn) | 457 (if (not fn) |
| 457 (error "Library %s not found" file)) | 458 (error "Library %s not found" file)) |
| 458 (setq cmd (concat "src/emacs -batch -l " fn)) | 459 (setq cmd (concat "src/emacs -batch -l " fn)) |
| 459 (setq status (call-process shell-file-name nil nil nil | 460 (setq status (call-process shell-file-name nil nil nil |
| 460 shell-command-switch cmd)) | 461 shell-command-switch cmd)) |
| 461 (if (= status 0) | 462 (if (equal status 0) |
| 462 (message "%s" file) | 463 (message "%s" file) |
| 463 (error "%s" status)) | 464 (error "%s" status)) |
| 464 (push file cus-test-libs-loaded)) | 465 (push file cus-test-libs-loaded)) |
| 465 (error | 466 (error |
| 466 (push (cons file alpha) cus-test-libs-errors) | 467 (push (cons file alpha) cus-test-libs-errors) |