33 |
A trailing backslash is required.") |
A trailing backslash is required.") |
34 |
|
|
35 |
(defvar erball-compiling-p |
(defvar erball-compiling-p |
36 |
(if (assoc "--compile-erbot" command-line-args-left) |
;; For some reason, (assoc "--compile-erbot" command-line-args-left) |
37 |
|
;; doesn't seem to work with Emacs 22. Maybe there's a stray space? |
38 |
|
(if (save-match-data |
39 |
|
(catch 'found |
40 |
|
(dolist (arg command-line-args-left) |
41 |
|
(when (string-match "\\b--compile-erbot\\b" arg) |
42 |
|
(throw 'found t))) |
43 |
|
nil)) |
44 |
(progn |
(progn |
45 |
(message (concat "\nCompiling source in " |
(message (concat "\nCompiling source in " |
46 |
(file-name-nondirectory (expand-file-name ".")) |
(file-name-nondirectory (expand-file-name ".")) |