/[erbot]/erbot/contrib/wtf.el
ViewVC logotype

Diff of /erbot/contrib/wtf.el

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

revision 1.6 by mwolson, Fri Jul 22 05:50:36 2005 UTC revision 1.7 by mwolson, Fri Jul 22 05:59:40 2005 UTC
# Line 627  DEF refers to the definition associated Line 627  DEF refers to the definition associated
627                                        (downcase (car term)))                                        (downcase (car term)))
628                                    wtf-alist))))                                    wtf-alist))))
629    (when (stringp term)    (when (stringp term)
630      (let ((def (upcase-initials (cdr (assoc (upcase term)      (let ((def (cdr (assoc (upcase term) wtf-alist))))
631                                              wtf-alist)))))        (when def
632        (if (and def (interactive-p))          (setq def (upcase-initials def))
633            (message (concat term " is " def))          (if (and def (interactive-p))
634          def))))              (message (concat term " is " def))
635              def)))))
636    
637  (provide 'wtf)  (provide 'wtf)
638    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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