Re: Things I miss in GNU Emacs

[...] Mats> Yes. It does the job. Thanks. Hi Mats, shorter and streamlined version included below. First attempt which I posted from the wrong mail account and was delayed has hit the list now, so my answers are out of sequence. Sry about that. Mats> There is a default binding in GNU Emacs on control left click Mats> that I think is hidden by this version. Maybe it can't be Mats> avoided. [...] By default, control left click is bound to '(mouse-buffer-menu EVENT)' but there is no orthodoxy. If you do use 'msb.el' ("customizable buffer-selection with multiple menus") which is included in GNU Emacs, it is bound to '(msb EVENT)'. Therefor an 'xemacs[-{compat|features}].el' could become part of GNU Emacs and key-binding left up to customisation. Mats> A general observation since many years: With more standard Mats> bindings in GNU Emacs using one modifier together with mouse Mats> click I have moved over my personal bindings to use the combined Mats> control shift modifier together with mouse actions. That binding Mats> seems to be less used. The mouse-track-insert hack works with Mats> that binding as well of course. Thanks again! Because C-S-... is not used be GNU Emacs, I use it for window-management (LarsWM, keyboard driven and tiling window manager). Free key combinations are in short supply on my system... A German keyboard comes to the rescue, I have our funny 'Umlaut' keys for additional bindings :-) Here comes the shorter version. Still doesn't work with multiple frames. Still looking into this. It appears that GNU Emacs doesn't really keeps track of the order of selected frames. And even that may not be enough. Cycling through all frames in search for the thing to copy doesn't imply that I want to yank it in the last frame I looked at before I found the correct one; yanking should be done in the last frame I edited text in, I suppose. So maybe the command should only work in a single frame, but fail gracefully when tried with multiple frames. Toto (defvar old-point nil) (defun mouse-drag-region-insert (start-event) "This is a hack! Adapted from `mouse-drag-region' to implement the functionality of the XEmacs function `mouse-track-insert': \"Make a selection with the mouse and insert it at point.\" Set the region to the text that the mouse is dragged over. Highlight the drag area as you move the mouse. This must be bound to a button-down mouse event. In Transient Mark mode, the highlighting remains as long as the mark remains active. Otherwise, it remains until the next input event. If the click is in the echo area, display the `*Messages*' buffer. Safes point and mark of current buffer so that they can be restored in `mouse-set-region-insert'." (interactive "e") (setq old-point (point-marker)) (mouse-drag-region start-event)) (defun mouse-set-region-insert (click) "This is a hack! Adapted from `mouse-set-region' to implement the functionality of the XEmacs function `mouse-track-insert': \"Make a selection with the mouse and insert it at point.\" Set the region to the text dragged over, copy to kill ring (the `mouse-drag-copy-region' variable is lambda-bound for the duration of this call) and yank it at point in the buffer active before marking the region with the mouse. This should be bound to a mouse drag event." (interactive "e") (let ((mouse-drag-copy-region t)) (mouse-set-region click)) (let ((mouse-yank-at-point t)) (set-buffer (marker-buffer old-point)) (goto-char old-point) (mouse-yank-at-click click nil))) (define-key global-map [C-down-mouse-1] 'mouse-drag-region-insert) (define-key global-map [C-drag-mouse-1] 'mouse-set-region-insert) -- Sent from my GNU Emacs running on GNU/Linux _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta