erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Michael W . Olson
Subject: [Erbot-cvs] Changes to erbot/erbtrain.el
Date: Thu, 09 Jun 2005 16:31:27 -0400

Index: erbot/erbtrain.el
diff -u erbot/erbtrain.el:1.14 erbot/erbtrain.el:1.15
--- erbot/erbtrain.el:1.14      Sat Jun  4 19:19:13 2005
+++ erbot/erbtrain.el   Thu Jun  9 20:31:25 2005
@@ -380,32 +380,25 @@
 ;;;====================================================
 
 (defun erbtrain-utils-teach-acronyms (&optional botstring)
-  "This code comes from  Michael Olson.  you will need emacs-wiki-wtf.el for
-this function to work.  We are not sure about the license of that
-file, if any.  Don't forget to connect to irc before running this
-function.  "
+  "Teach the the bot from BOTSTRING some acronyms.
+You will need wtf.el (from the contrib directory) for this
+function to work.
+
+Don't forget to connect to irc before running this function."
   (interactive)
   (idledo-nullify)
-  (require 'emacs-wiki)
-  (require 'emacs-wiki-wtf)
+  (require 'wtf)
   (unless botstring (setq botstring ", "))
   (setq erbtrain-list
-       (mapcar (lambda (ref)
-                 (concat botstring (car ref)
-                         " is short for " (upcase-initials (cdr ref))))
-               emacs-wiki-wtf-alist))
+        (mapcar #'(lambda (ref)
+                    (concat botstring (car ref)
+                            " is short for "
+                            (upcase-initials (cdr ref))))
+                wtf-alist))
   (erbtrain-resume)
   (ignore-errors (idledo-start)))
 
 
-
-
-
-
-
-
-
-
 (provide 'erbtrain)
 (run-hooks 'erbtrain-after-load-hooks)
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]