Function: ibuffer-mouse-popup-menu
ibuffer-mouse-popup-menu is an interactive and byte-compiled function
defined in ibuffer.el.gz.
Signature
(ibuffer-mouse-popup-menu EVENT)
Documentation
Display a menu of operations.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/ibuffer.el.gz
(defun ibuffer-mouse-popup-menu (event)
"Display a menu of operations."
(interactive "e")
(let ((eventpt (posn-point (event-end event)))
(origpt (point)))
(unwind-protect
(if (get-text-property eventpt 'ibuffer-filter-group-name)
(progn
(goto-char eventpt)
(popup-menu ibuffer-mode-groups-popup))
(let ((inhibit-read-only t))
(ibuffer-save-marks
(ibuffer-unmark-all-marks)
(save-excursion
(goto-char eventpt)
(ibuffer-set-mark ibuffer-marked-char))
(save-excursion
(popup-menu ibuffer-mode-operate-menu)))))
(setq buffer-read-only t)
(if (= eventpt (point))
(goto-char origpt)))))