(when (string= word "") (setq word (read-input "Word: ")))
- (setq word (replace-regexp-in-string "[^a-zA-Z\- ]" "" (or word "")))
+ (setq word (replace-regexp-in-string "[^a-zA-Z\- \.]" "" (or word "")))
(let ((name (concat "*definition " word "*")))