1 |
;;; erball.el --- Functions on all files. |
;;; erball.el --- Functions on all files. |
2 |
;; Time-stamp: <2004-12-31 23:06:48 deego> |
;; Time-stamp: <2005-01-05 14:16:07 deego> |
3 |
;; Copyright (C) 2002 D. Goel |
;; Copyright (C) 2002 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc.el |
;; Filename: erbc.el |
13 |
;; not all of these may be required depending on how you use erbot.. |
;; not all of these may be required depending on how you use erbot.. |
14 |
(require 'cl) |
(require 'cl) |
15 |
|
|
16 |
(require 'doctor) |
(defmacro erball-ignore-errors-loudly (&rest body) |
17 |
(require 'erc) |
"Like ignore-errors, but tells the error.. |
18 |
(require 'erc-stamp) |
|
19 |
(unless noninteractive (require 'dunnet)) |
Copied from deego's 'ignore-errors-my', which owes some of its work |
20 |
(require 'erbot) |
to: Kalle on 7/3/01: |
21 |
(require 'erbcountry) |
* used backquote: something i was too lazy to convert my macro to.. |
22 |
(require 'erbutils) |
* removed the progn: condition-case automatically has one.. |
23 |
(require 'erblog) |
* made sure that the return is nil.. just as it is in ignore-errors. " |
24 |
(require 'erbeng) |
(let ((err (gensym))) |
25 |
(require 'erbdata) |
`(condition-case ,err (progn ,@body) |
26 |
(require 'erbkarma) |
(error |
27 |
(require 'erblisp) |
(ding t) |
28 |
(require 'erbc) |
(ding t) |
29 |
(require 'erbc2) |
(ding t) |
30 |
(require 'erbc3) |
(message "IGNORED ERROR: %s" (error-message-string ,err)) |
31 |
(require 'erbc4) |
(sit-for 1) |
32 |
(require 'erbc5) |
nil)))) |
33 |
(require 'erbc6) |
|
34 |
(require 'erbcspecial) |
|
35 |
(require 'erbbdb) |
|
36 |
(require 'erbforget) |
(erball-ignore-errors-loudly (require 'doctor)) |
37 |
(require 'erbedit) |
(erball-ignore-errors-loudly (require 'erc)) |
38 |
(require 'erbtrain) |
(erball-ignore-errors-loudly (require 'erc-stamp)) |
39 |
(ignore-errors (require 'erbwiki)) |
(unless noninteractive (erball-ignore-errors-loudly (require 'dunnet))) |
40 |
(require 'erbunlisp) |
(erball-ignore-errors-loudly (require 'erbot)) |
41 |
(require 'erbcompat) |
(erball-ignore-errors-loudly (require 'erbcountry)) |
42 |
|
(erball-ignore-errors-loudly (require 'erbutils)) |
43 |
|
(erball-ignore-errors-loudly (require 'erblog)) |
44 |
(ignore-errors |
(erball-ignore-errors-loudly (require 'erbeng)) |
45 |
(require 'erbmsg)) |
(erball-ignore-errors-loudly (require 'erbdata)) |
46 |
|
(erball-ignore-errors-loudly (require 'erbkarma)) |
47 |
(ignore-errors (require 'flame)) |
(erball-ignore-errors-loudly (require 'erblisp)) |
48 |
|
(erball-ignore-errors-loudly (require 'erbc)) |
49 |
(ignore-errors (require 'mkback)) |
(erball-ignore-errors-loudly (require 'erbc2)) |
50 |
(ignore-errors (require 'lines)) |
(erball-ignore-errors-loudly (require 'erbc3)) |
51 |
(ignore-errors (require 'google)) |
(erball-ignore-errors-loudly (require 'erbc4)) |
52 |
(ignore-errors (require 'oct)) |
(erball-ignore-errors-loudly (require 'erbc5)) |
53 |
|
(erball-ignore-errors-loudly (require 'erbc6)) |
54 |
|
(erball-ignore-errors-loudly (require 'erbcspecial)) |
55 |
|
(erball-ignore-errors-loudly (require 'erbbdb)) |
56 |
|
(erball-ignore-errors-loudly (require 'erbforget)) |
57 |
|
(erball-ignore-errors-loudly (require 'erbedit)) |
58 |
|
(erball-ignore-errors-loudly (require 'erbtrain)) |
59 |
|
(erball-ignore-errors-loudly (require 'erbwiki)) |
60 |
|
(erball-ignore-errors-loudly (require 'erbunlisp)) |
61 |
|
(erball-ignore-errors-loudly (require 'erbcompat)) |
62 |
|
|
63 |
|
(erball-ignore-errors-loudly (require 'erbmsg)) |
64 |
|
|
65 |
|
(erball-ignore-errors-loudly (require 'flame)) |
66 |
|
|
67 |
|
(erball-ignore-errors-loudly (require 'mkback)) |
68 |
|
(erball-ignore-errors-loudly (require 'lines)) |
69 |
|
(erball-ignore-errors-loudly (require 'google)) |
70 |
|
(erball-ignore-errors-loudly (require 'oct)) |
71 |
|
|
72 |
;; the rest of the commands here are useful to the author when editing erbot. |
;; the rest of the commands here are useful to the author when editing erbot. |
73 |
|
|