Mercurial > emacs

comparison lisp/mouse.el @ 7901:28f9608f3c58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region): Bind last-command, not this-command.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Jun 1994 03:55:42 +0000
parents 44680acb5d14
children ac4b606bcfa2
comparison
equal deleted inserted replaced
7900:60795e826dad 7901:28f9608f3c58
250 (numberp (posn-point (event-end event)))) 250 (numberp (posn-point (event-end event))))
251 (let ((fun (key-binding (vector (car event))))) 251 (let ((fun (key-binding (vector (car event)))))
252 (if (memq fun '(mouse-set-region mouse-set-point)) 252 (if (memq fun '(mouse-set-region mouse-set-point))
253 (if (not (= (overlay-start mouse-drag-overlay) 253 (if (not (= (overlay-start mouse-drag-overlay)
254 (overlay-end mouse-drag-overlay))) 254 (overlay-end mouse-drag-overlay)))
255 (let (this-command) 255 (let (last-command)
256 (push-mark (overlay-start mouse-drag-overlay) t t) 256 (push-mark (overlay-start mouse-drag-overlay) t t)
257 (goto-char (overlay-end mouse-drag-overlay)) 257 (goto-char (overlay-end mouse-drag-overlay))
258 (copy-region-as-kill (point) (mark t))) 258 (copy-region-as-kill (point) (mark t)))
259 (goto-char (overlay-end mouse-drag-overlay)) 259 (goto-char (overlay-end mouse-drag-overlay))
260 (setq this-command 'mouse-set-point)) 260 (setq this-command 'mouse-set-point))