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) |