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 |
|
|