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

Diff of /erbot/erbtrain.el

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

revision 1.14 by deego, Sat Jun 4 19:19:13 2005 UTC revision 1.15 by mwolson, Thu Jun 9 20:31:25 2005 UTC
# Line 380  advantage of being much faster. " Line 380  advantage of being much faster. "
380  ;;;====================================================  ;;;====================================================
381    
382  (defun erbtrain-utils-teach-acronyms (&optional botstring)  (defun erbtrain-utils-teach-acronyms (&optional botstring)
383    "This code comes from  Michael Olson.  you will need emacs-wiki-wtf.el for    "Teach the the bot from BOTSTRING some acronyms.
384  this function to work.  We are not sure about the license of that  You will need wtf.el (from the contrib directory) for this
385  file, if any.  Don't forget to connect to irc before running this  function to work.
386  function.  "  
387    Don't forget to connect to irc before running this function."
388    (interactive)    (interactive)
389    (idledo-nullify)    (idledo-nullify)
390    (require 'emacs-wiki)    (require 'wtf)
   (require 'emacs-wiki-wtf)  
391    (unless botstring (setq botstring ", "))    (unless botstring (setq botstring ", "))
392    (setq erbtrain-list    (setq erbtrain-list
393          (mapcar (lambda (ref)          (mapcar #'(lambda (ref)
394                    (concat botstring (car ref)                      (concat botstring (car ref)
395                            " is short for " (upcase-initials (cdr ref))))                              " is short for "
396                  emacs-wiki-wtf-alist))                              (upcase-initials (cdr ref))))
397                    wtf-alist))
398    (erbtrain-resume)    (erbtrain-resume)
399    (ignore-errors (idledo-start)))    (ignore-errors (idledo-start)))
400    
401    
   
   
   
   
   
   
   
   
402  (provide 'erbtrain)  (provide 'erbtrain)
403  (run-hooks 'erbtrain-after-load-hooks)  (run-hooks 'erbtrain-after-load-hooks)
404    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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