/[erbot]/erbot/erball.el
ViewVC logotype

Diff of /erbot/erball.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by deego, Fri Jul 1 12:22:39 2005 UTC revision 1.27 by mwolson, Sat Jul 2 16:47:02 2005 UTC
# Line 33  This value is also added to the load-pat Line 33  This value is also added to the load-pat
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 "."))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26