(dictionary-do-search word dictionary function))
-(defun dictionary-do-search (word dictionary function)
+(defun dictionary-do-search (word dictionary function)
"The workhorse for doing the search"
(message "Searching for %s in %s" word dictionary)
(let ((reply (dictionary-read-reply-and-split)))
(if (dictionary-check-reply reply 552)
- (insert "Word not found, maybe you look for one of these words\n\n")
- (dictionary-do-matching word
+ (insert "Word not found, maybe you look "
+ "for one of these words\n\n")
+ (dictionary-do-matching word
(if (dictionary-check-reply reply 550)
(error "Dictionary \"%s\" is unknown, please select an existing one."
(let ((dictionary (or dictionary dictionary-default-dictionary)))
- (dictionary-do-search word dictionary 'dictionary-read-definition))
+ (dictionary-do-search word dictionary 'dictionary-read-definition))
(defun dictionary-read-definition (reply)
(defun dictionary-display-tooltip (event)
"Search the current word in the `dictionary-tooltip-dictionary'."
(let ((word (save-window-excursion
- (dictionary-definition word
+ (dictionary-definition word dictionary-tooltip-dictionary)))
- (tooltip-show definition))
+ (dictionary-decode-charset definition