bug#50256: thing-at-mouse

[Lars Ingebrigtsen]

Juri Linkov <juri@linkov.net> writes:

> This looks like the right signature.  Then the implementation
> and an example of usage could look like this:

[...]

> +(defun context-menu-dictionary (menu)
> +  "Dictionary context menu."
> +  (when (thing-at-mouse last-input-event 'word)
> +    (define-key menu [dictionary-separator] menu-bar-separator)
> +    (define-key menu [dictionary-search-word-at-mouse]
> +      '(menu-item "Dictionary Search" dictionary-search-word-at-mouse
> +                  :help "Search the word at mouse click in dictionary")))
> +  menu)

Ah, I see.  Yes, that makes perfect sense to me -- go ahead and push
(perhaps with some documentation).

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no