Re: Context menus and mouse-3 [was: Changes for emacs 28]

[Stefan Monnier]

Richard Stallman [2020-09-15 00:35:58] wrote:

> [[[ To any NSA and FBI agents reading my email: please consider    ]]]
> [[[ whether defending the US Constitution against all enemies,     ]]]
> [[[ foreign or domestic, requires you to follow Snowden's example. ]]]
>
>   > We don't need to choose, since we can get a context menu on
>   > `down-mouse-3` and 'mouse-save-then-kill' on `mouse-3`.
>
> Have you tried doing that?  How does it work in practice?

Here's the code I'm using:

    (let ((default-context-menu
            `(menu-item ,(purecopy "Menu Bar") ignore
              :filter (lambda (_)
                        (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0))
                            (mouse-menu-bar-map)
                          (mouse-menu-major-mode-map))))))
      (global-set-key [C-down-mouse-3] default-context-menu)
      (global-set-key [context-menu] default-context-menu))
    
    (global-set-key [down-mouse-3] #'mouse-maybe-context-menu)
    (defun mouse-maybe-context-menu (event)
      "Bring up a context menu for a long click.
    See `mouse-long-click-time' and `mouse-context-menu-function'."
      (interactive "@e")
      (if (let ((track-mouse t)) (sit-for (/ mouse-long-click-time 1000.0)))
          (push (cons 'context-menu (cdr event)) unread-command-events)))

It's not good enough for `master` (IIRC the sit-for tends to return nil
immediately in some circumstances), but I didn't pursue this any further
given the lack of interest at the time.  I can't think of any reason why
it should be hard to fix.


        Stefan