Function: dictionary-display-tooltip

dictionary-display-tooltip is an interactive and byte-compiled function defined in dictionary.el.gz.

Signature

(dictionary-display-tooltip _)

Documentation

Search the current word in the dictionary-tooltip-dictionary.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/dictionary.el.gz
(defun dictionary-display-tooltip (_)
  "Search the current word in the `dictionary-tooltip-dictionary'."
  (interactive "e")
  (if (and dictionary-tooltip-mode dictionary-tooltip-dictionary)
      ;; This function runs from the tooltip timer.  We don't want to
      ;; signal errors from the timer due to "Unknown server answers",
      ;; we prefer not to show anything in that case.  FIXME: Perhaps
      ;; use with-demoted-errors, to show the unknown answers in the
      ;; echo-area?
      (ignore-errors
        (let* ((word (dictionary-word-at-mouse-event
                      dictionary-tooltip-mouse-event))
               (dict (if (eq dictionary-tooltip-dictionary t)
                         dictionary-default-dictionary
                       dictionary-tooltip-dictionary)))
          (if word
              (let ((definition (dictionary-definition word dict)))
                (if definition
                    (tooltip-show (dictionary-decode-charset
                                   definition dict)))))
          t)
        nil)))