Mercurial > emacs
changeset 46682:7a836df2d686
(ibuffer-mouse-popup-menu): Allow point to be moved by menu functions.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Thu, 25 Jul 2002 06:25:51 +0000 |
| parents | fee02075d43a |
| children | 060f433ebf11 |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 15 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuffer.el Thu Jul 25 06:25:37 2002 +0000 +++ b/lisp/ibuffer.el Thu Jul 25 06:25:51 2002 +0000 @@ -861,26 +861,23 @@ (defun ibuffer-mouse-popup-menu (event) "Display a menu of operations." (interactive "e") - (let ((origline (count-lines (point-min) (point)))) + (let ((eventpt (save-excursion + (mouse-set-point event) + (point)))) (unwind-protect - (progn - (mouse-set-point event) - (if (get-text-property (point) 'ibuffer-filter-group-name) - (save-excursion - (popup-menu ibuffer-mode-groups-popup)) - (setq buffer-read-only nil) + (if (get-text-property eventpt 'ibuffer-filter-group-name) + (popup-menu ibuffer-mode-groups-popup) + (let ((inhibit-read-only t)) (ibuffer-save-marks - ;; hm. we could probably do this in a better fashion - (ibuffer-unmark-all ?\r) - (setq buffer-read-only nil) - (ibuffer-set-mark ibuffer-marked-char) - (setq buffer-read-only nil) - (save-excursion - (popup-menu ibuffer-mode-operate-map))))) - (progn - (setq buffer-read-only t) - (goto-line (1+ origline)))))) - + ;; hm. we could probably do this in a better fashion + (ibuffer-unmark-all ?\r) + (save-excursion + (goto-char eventpt) + (ibuffer-set-mark ibuffer-marked-char)) + (save-excursion + (popup-menu ibuffer-mode-operate-map))))) + (setq buffer-read-only t)))) + (defun ibuffer-skip-properties (props direction) (while (and (not (eobp)) (let ((hit nil))