mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(cus-test-libs): Use equal instead of =.

Browse Source
This commit is contained in:
Markus Rost 2002-10-15 05:15:40 +00:00
parent a80d729082
commit e170d16cb0
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
admin/ChangeLog
View File

@ -1,3 +1,7 @@
2002-10-15 Markus Rost <rost@math.ohio-state.edu>
* cus-test.el (cus-test-libs): Use equal instead of =.
2002-10-14 Markus Rost <rost@math.ohio-state.edu> 2002-10-14 Markus Rost <rost@math.ohio-state.edu>
* cus-test.el (cus-test-opts): Call cus-test-load-libs. * cus-test.el (cus-test-opts): Call cus-test-load-libs.

3
admin/cus-test.el
View File

@ -109,6 +109,7 @@
;; (ada-xref error 255) ;; (ada-xref error 255)
;; (ada-stmt error 255) ;; (ada-stmt error 255)
;;; Code: ;;; Code:
;;; Workarounds. For a smooth run and to avoid some side effects. ;;; Workarounds. For a smooth run and to avoid some side effects.
@ -458,7 +459,7 @@ in the emacs source directory."
(setq cmd (concat "src/emacs -batch -l " fn)) (setq cmd (concat "src/emacs -batch -l " fn))
(setq status (call-process shell-file-name nil nil nil (setq status (call-process shell-file-name nil nil nil
shell-command-switch cmd)) shell-command-switch cmd))
(if (= status 0) (if (equal status 0)
(message "%s" file) (message "%s" file)
(error "%s" status)) (error "%s" status))
(push file cus-test-libs-loaded)) (push file cus-test-libs-loaded))