[Erbot-cvs] Changes to erbot/erball.el

[Michael W . Olson]

Index: erbot/erball.el
diff -u erbot/erball.el:1.26 erbot/erball.el:1.27
--- erbot/erball.el:1.26        Fri Jul  1 12:22:39 2005
+++ erbot/erball.el     Sat Jul  2 16:47:02 2005
@@ -33,7 +33,14 @@
 A trailing backslash is required.")
 
 (defvar erball-compiling-p
-  (if (assoc "--compile-erbot" command-line-args-left)
+  ;; For some reason, (assoc "--compile-erbot" command-line-args-left)
+  ;; doesn't seem to work with Emacs 22.  Maybe there's a stray space?
+  (if (save-match-data
+        (catch 'found
+          (dolist (arg command-line-args-left)
+            (when (string-match "\\b--compile-erbot\\b" arg)
+              (throw 'found t)))
+          nil))
       (progn
         (message (concat "\nCompiling source in "
                          (file-name-nondirectory (expand-file-name "."))