[Erbot-cvs] Changes to erbot/contrib/wtf.el

[Michael W . Olson]

Index: erbot/contrib/wtf.el
diff -u erbot/contrib/wtf.el:1.6 erbot/contrib/wtf.el:1.7
--- erbot/contrib/wtf.el:1.6    Fri Jul 22 05:50:36 2005
+++ erbot/contrib/wtf.el        Fri Jul 22 05:59:40 2005
@@ -627,11 +627,12 @@
                                       (downcase (car term)))
                                   wtf-alist))))
   (when (stringp term)
-    (let ((def (upcase-initials (cdr (assoc (upcase term)
-                                            wtf-alist)))))
-      (if (and def (interactive-p))
-          (message (concat term " is " def))
-        def))))
+    (let ((def (cdr (assoc (upcase term) wtf-alist))))
+      (when def
+        (setq def (upcase-initials def))
+        (if (and def (interactive-p))
+            (message (concat term " is " def))
+          def)))))
 
 (provide 'wtf)