Mercurial > emacs

comparison lisp/mouse.el @ 83559:edf631bdbb7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-650 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-651 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-652 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-653 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-654 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-655 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-656 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-657 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-658 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-659 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-203 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-204 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-205 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-599
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 11:42:03 +0000
parents 2854cd09e515
children 91a6d7f7e1a7 dd7c098af727
comparison
equal deleted inserted replaced
83558:8e46638e99c7 83559:edf631bdbb7a
1274 (setq events nil))))))) 1274 (setq events nil)))))))
1275 ;; If we lost the selection, just turn off the highlighting. 1275 ;; If we lost the selection, just turn off the highlighting.
1276 (unless ignore 1276 (unless ignore
1277 ;; For certain special keys, delete the region. 1277 ;; For certain special keys, delete the region.
1278 (if (member key mouse-region-delete-keys) 1278 (if (member key mouse-region-delete-keys)
1279 (delete-region (mark t) (point)) 1279 (progn
1280 ;; Since notionally this is a separate command,
1281 ;; run all the hooks that would be run if it were
1282 ;; executed separately.
1283 (run-hooks 'post-command-hook)
1284 (setq last-command this-command)
1285 (setq this-original-command 'delete-region)
1286 (setq this-command (or (command-remapping this-original-command)
1287 this-original-command))
1288 (run-hooks 'pre-command-hook)
1289 (call-interactively this-command))
1280 ;; Otherwise, unread the key so it gets executed normally. 1290 ;; Otherwise, unread the key so it gets executed normally.
1281 (setq unread-command-events 1291 (setq unread-command-events
1282 (nconc events unread-command-events)))) 1292 (nconc events unread-command-events))))
1283 (setq quit-flag nil) 1293 (setq quit-flag nil)
1284 (unless transient-mark-mode 1294 (unless transient-mark-mode