Mercurial > emacs
annotate lisp/mouse.el @ 13090:b9cc587a5d8b
(sendmail-send-it): Handle FCC after all text changes.
(mail-do-fcc): Don't add From field here.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 28 Sep 1995 02:34:44 +0000 |
parents | 9cc4392719e3 |
children | 4bc9015f709e |
rev | line source |
---|---|
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
1 ;;; mouse.el --- window system-independent mouse support. |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
2 |
11235 | 3 ;;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
791
diff
changeset
|
4 |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
5 ;; Maintainer: FSF |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
6 ;; Keywords: hardware |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
7 |
465 | 8 ;;; This file is part of GNU Emacs. |
66 | 9 |
465 | 10 ;;; GNU Emacs is free software; you can redistribute it and/or modify |
11 ;;; it under the terms of the GNU General Public License as published by | |
705 | 12 ;;; the Free Software Foundation; either version 2, or (at your option) |
465 | 13 ;;; any later version. |
66 | 14 |
465 | 15 ;;; GNU Emacs is distributed in the hope that it will be useful, |
16 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;;; GNU General Public License for more details. | |
66 | 19 |
465 | 20 ;;; You should have received a copy of the GNU General Public License |
21 ;;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
66 | 23 |
2308
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
24 ;;; Commentary: |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
25 |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
26 ;; This package provides various useful commands (including help |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
27 ;; system access) through the mouse. All this code assumes that mouse |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
28 ;; interpretation has been abstracted into Emacs input events. |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
29 ;; |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
30 ;; The code is rather X-dependent. |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
31 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2070
diff
changeset
|
32 ;;; Code: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2070
diff
changeset
|
33 |
465 | 34 ;;; Utility functions. |
35 | |
36 ;;; Indent track-mouse like progn. | |
37 (put 'track-mouse 'lisp-indent-function 0) | |
66 | 38 |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
39 (defvar mouse-yank-at-point nil |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
40 "*If non-nil, mouse yank commands yank at point instead of at click.") |
465 | 41 |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
42 ;; Provide a mode-specific menu on a mouse button. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
43 |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
44 (defun mouse-major-mode-menu (event) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
45 "Pop up a mode-specific menu of mouse commands." |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
46 ;; Switch to the window clicked on, because otherwise |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
47 ;; the mode's commands may not make sense. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
48 (interactive "@e") |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
49 (let ((newmap (make-sparse-keymap)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
50 (unread-command-events (list event))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
51 ;; Make a keymap in which our last command leads to a menu |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
52 (define-key newmap (vector (car event)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
53 (nconc (make-sparse-keymap "Menu") |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
54 (mouse-major-mode-menu-1 |
11023
498940aefc37
(mouse-major-mode-menu): Avoid confusing error message when there's no current
Karl Heuer <kwzh@gnu.org>
parents:
10838
diff
changeset
|
55 (and (current-local-map) |
498940aefc37
(mouse-major-mode-menu): Avoid confusing error message when there's no current
Karl Heuer <kwzh@gnu.org>
parents:
10838
diff
changeset
|
56 (lookup-key (current-local-map) [menu-bar]))))) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
57 (mouse-major-mode-menu-compute-equiv-keys newmap) |
12553
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
58 ;; Make NEWMAP override the usual definition |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
59 ;; of the mouse button that got us here. |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
60 ;; Then read the user's menu choice. |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
61 (let* ((minor-mode-map-alist |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
62 (cons (cons t newmap) minor-mode-map-alist)) |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
63 ;; read-key-sequence quits if the user aborts the menu. |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
64 ;; If that happens, do nothing silently. |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
65 (keyseq (condition-case nil |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
66 (read-key-sequence "") |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
67 (quit nil))) |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
68 (command (if keyseq (lookup-key newmap keyseq)))) |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
69 (if command |
ce881909d36a
(mouse-major-mode-menu): Catch quit in read-key-sequence.
Karl Heuer <kwzh@gnu.org>
parents:
12436
diff
changeset
|
70 (command-execute command))))) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
71 |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
72 ;; Compute and cache the equivalent keys in MENU and all its submenus. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
73 (defun mouse-major-mode-menu-compute-equiv-keys (menu) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
74 (and (eq (car menu) 'keymap) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
75 (x-popup-menu nil menu)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
76 (while menu |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
77 (and (consp (car menu)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
78 (consp (cdr (car menu))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
79 (let ((tail (cdr (car menu)))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
80 (while (and (consp tail) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
81 (not (eq (car tail) 'keymap))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
82 (setq tail (cdr tail))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
83 (if (consp tail) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
84 (mouse-major-mode-menu-compute-equiv-keys tail)))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
85 (setq menu (cdr menu)))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
86 |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
87 ;; Given a mode's menu bar keymap, |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
88 ;; if it defines exactly one menu bar menu, |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
89 ;; return just that menu. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
90 ;; Otherwise return a menu for all of them. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
91 (defun mouse-major-mode-menu-1 (menubar) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
92 (if menubar |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
93 (let ((tail menubar) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
94 submap) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
95 (while tail |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
96 (if (consp (car tail)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
97 (if submap |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
98 (setq submap t) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
99 (setq submap (cdr (car tail))))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
100 (setq tail (cdr tail))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
101 (if (eq submap t) menubar |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
102 submap)))) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
103 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
104 ;; Commands that operate on windows. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
105 |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
106 (defun mouse-minibuffer-check (event) |
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
107 (let ((w (posn-window (event-start event)))) |
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
108 (and (window-minibuffer-p w) |
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
109 (not (minibuffer-window-active-p w)) |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
110 (error "Minibuffer window is not active"))) |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
111 ;; Give temporary modes such as isearch a chance to turn off. |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
112 (run-hooks 'mouse-leave-buffer-hook)) |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
113 |
465 | 114 (defun mouse-delete-window (click) |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
115 "Delete the window you click on. |
465 | 116 This must be bound to a mouse click." |
1113 | 117 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
118 (mouse-minibuffer-check click) |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
119 (delete-window (posn-window (event-start click)))) |
465 | 120 |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
121 (defun mouse-select-window (click) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
122 "Select the window clicked on; don't move point." |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
123 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
124 (mouse-minibuffer-check click) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
125 (let ((oframe (selected-frame)) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
126 (frame (window-frame (posn-window (event-start click))))) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
127 (select-window (posn-window (event-start click))) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
128 (raise-frame frame) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
129 (select-frame frame) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
130 (or (eq frame oframe) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
131 (set-mouse-position (selected-frame) (1- (frame-width)) 0)) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
132 (unfocus-frame))) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
133 |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
134 (defun mouse-tear-off-window (click) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
135 "Delete the window clicked on, and create a new frame displaying its buffer." |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
136 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
137 (mouse-minibuffer-check click) |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
138 (let* ((window (posn-window (event-start click))) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
139 (buf (window-buffer window)) |
7363
f35fe65c9755
(mouse-tear-off-window): Change new-frame to make-frame.
Karl Heuer <kwzh@gnu.org>
parents:
7302
diff
changeset
|
140 (frame (make-frame))) |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
141 (select-frame frame) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
142 (switch-to-buffer buf) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
143 (delete-window window))) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
144 |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
145 (defun mouse-delete-other-windows () |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
146 "Delete all window except the one you click on." |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
147 (interactive "@") |
66 | 148 (delete-other-windows)) |
149 | |
465 | 150 (defun mouse-split-window-vertically (click) |
151 "Select Emacs window mouse is on, then split it vertically in half. | |
152 The window is split at the line clicked on. | |
153 This command must be bound to a mouse click." | |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
154 (interactive "@e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
155 (mouse-minibuffer-check click) |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
156 (let ((start (event-start click))) |
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
157 (select-window (posn-window start)) |
7637
cc55e77a9819
(mouse-split-window-vertically): Treat scroll bar events just like others.
Richard M. Stallman <rms@gnu.org>
parents:
7593
diff
changeset
|
158 (let ((new-height (1+ (cdr (posn-col-row (event-end click))))) |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
159 (first-line window-min-height) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
160 (last-line (- (window-height) window-min-height))) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
161 (if (< last-line first-line) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
162 (error "Window too short to split") |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
163 (split-window-vertically |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
164 (min (max new-height first-line) last-line)))))) |
66 | 165 |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
166 (defun mouse-split-window-horizontally (click) |
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
167 "Select Emacs window mouse is on, then split it horizontally in half. |
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
168 The window is split at the column clicked on. |
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
169 This command must be bound to a mouse click." |
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
170 (interactive "@e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
171 (mouse-minibuffer-check click) |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
172 (let ((start (event-start click))) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
173 (select-window (posn-window start)) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
174 (let ((new-width (1+ (car (posn-col-row (event-end click))))) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
175 (first-col window-min-width) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
176 (last-col (- (window-width) window-min-width))) |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
177 (if (< last-col first-col) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
178 (error "Window too narrow to split") |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
179 (split-window-horizontally |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
180 (min (max new-width first-col) last-col)))))) |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
181 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
182 (defun mouse-drag-mode-line (start-event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
183 "Change the height of a window by dragging on the mode line." |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
184 (interactive "e") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
185 ;; Give temporary modes such as isearch a chance to turn off. |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
186 (run-hooks 'mouse-leave-buffer-hook) |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
187 (let ((done nil) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
188 (echo-keystrokes 0) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
189 (start-event-frame (window-frame (car (car (cdr start-event))))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
190 (start-event-window (car (car (cdr start-event)))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
191 (start-nwindows (count-windows t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
192 (old-selected-window (selected-window)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
193 should-enlarge-minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
194 event mouse minibuffer y top bot edges wconfig params growth) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
195 (setq params (frame-parameters)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
196 (if (and (not (setq minibuffer (cdr (assq 'minibuffer params)))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
197 (one-window-p t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
198 (error "Attempt to resize sole window")) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
199 (track-mouse |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
200 (progn |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
201 ;; enlarge-window only works on the selected window, so |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
202 ;; we must select the window where the start event originated. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
203 ;; unwind-protect will restore the old selected window later. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
204 (select-window start-event-window) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
205 ;; if this is the bottommost ordinary window, then to |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
206 ;; move its modeline the minibuffer must be enlarged. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
207 (setq should-enlarge-minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
208 (and minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
209 (not (one-window-p t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
210 (= (nth 1 (window-edges minibuffer)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
211 (nth 3 (window-edges))))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
212 ;; loop reading events and sampling the position of |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
213 ;; the mouse. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
214 (while (not done) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
215 (setq event (read-event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
216 mouse (mouse-position)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
217 ;; do nothing if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
218 ;; - there is a switch-frame event. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
219 ;; - the mouse isn't in the frame that we started in |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
220 ;; - the mouse isn't in any Emacs frame |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
221 ;; drag if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
222 ;; - there is a mouse-movement event |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
223 ;; - there is a scroll-bar-movement event |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
224 ;; (same as mouse movement for our purposes) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
225 ;; quit if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
226 ;; - there is a keyboard event or some other unknown event |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
227 ;; unknown event. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
228 (cond ((integerp event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
229 (setq done t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
230 ((eq (car event) 'switch-frame) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
231 nil) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
232 ((not (memq (car event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
233 '(mouse-movement scroll-bar-movement))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
234 (if (consp event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
235 (setq unread-command-events |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
236 (cons event unread-command-events))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
237 (setq done t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
238 ((not (eq (car mouse) start-event-frame)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
239 nil) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
240 ((null (car (cdr mouse))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
241 nil) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
242 (t |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
243 (setq y (cdr (cdr mouse)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
244 edges (window-edges) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
245 top (nth 1 edges) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
246 bot (nth 3 edges)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
247 ;; scale back a move that would make the |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
248 ;; window too short. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
249 (cond ((< (- y top -1) window-min-height) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
250 (setq y (+ top window-min-height -1)))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
251 ;; compute size change needed |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
252 (setq growth (- y bot -1) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
253 wconfig (current-window-configuration)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
254 ;; grow/shrink minibuffer? |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
255 (if should-enlarge-minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
256 (progn |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
257 ;; yes. briefly select minibuffer so |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
258 ;; enlarge-window will affect the |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
259 ;; correct window. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
260 (select-window minibuffer) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
261 ;; scale back shrinkage if it would |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
262 ;; make the minibuffer less than 1 |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
263 ;; line tall. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
264 (if (and (> growth 0) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
265 (< (- (window-height minibuffer) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
266 growth) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
267 1)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
268 (setq growth (1- (window-height minibuffer)))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
269 (enlarge-window (- growth)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
270 (select-window start-event-window)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
271 ;; no. grow/shrink the selected window |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
272 (enlarge-window growth)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
273 ;; if this window's growth caused another |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
274 ;; window to be deleted because it was too |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
275 ;; short, rescind the change. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
276 ;; |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
277 ;; if size change caused space to be stolen |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
278 ;; from a window above this one, rescind the |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
279 ;; change, but only if we didn't grow/srhink |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
280 ;; the minibuffer. minibuffer size changes |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
281 ;; can cause all windows to shrink... no way |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
282 ;; around it. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
283 (if (or (/= start-nwindows (count-windows t)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
284 (and (not should-enlarge-minibuffer) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
285 (/= top (nth 1 (window-edges))))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
286 (set-window-configuration wconfig))))))))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
287 |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
288 (defun mouse-drag-vertical-line (start-event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
289 "Change the width of a window by dragging on the vertical line." |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
290 (interactive "e") |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
291 ;; Give temporary modes such as isearch a chance to turn off. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
292 (run-hooks 'mouse-leave-buffer-hook) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
293 (let ((done nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
294 (echo-keystrokes 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
295 (start-event-frame (window-frame (car (car (cdr start-event))))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
296 (start-event-window (car (car (cdr start-event)))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
297 (start-nwindows (count-windows t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
298 (old-selected-window (selected-window)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
299 event mouse x left right edges wconfig growth) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
300 (if (one-window-p t) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
301 (error "Attempt to resize sole ordinary window")) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
302 (if (= (nth 2 (window-edges start-event-window)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
303 (frame-width start-event-frame)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
304 (error "Attempt to drag rightmost scrollbar")) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
305 (track-mouse |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
306 (progn |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
307 ;; enlarge-window only works on the selected window, so |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
308 ;; we must select the window where the start event originated. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
309 ;; unwind-protect will restore the old selected window later. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
310 (select-window start-event-window) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
311 ;; loop reading events and sampling the position of |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
312 ;; the mouse. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
313 (while (not done) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
314 (setq event (read-event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
315 mouse (mouse-position)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
316 ;; do nothing if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
317 ;; - there is a switch-frame event. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
318 ;; - the mouse isn't in the frame that we started in |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
319 ;; - the mouse isn't in any Emacs frame |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
320 ;; drag if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
321 ;; - there is a mouse-movement event |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
322 ;; - there is a scroll-bar-movement event |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
323 ;; (same as mouse movement for our purposes) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
324 ;; quit if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
325 ;; - there is a keyboard event or some other unknown event |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
326 ;; unknown event. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
327 (cond ((integerp event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
328 (setq done t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
329 ((eq (car event) 'switch-frame) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
330 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
331 ((not (memq (car event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
332 '(mouse-movement scroll-bar-movement))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
333 (if (consp event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
334 (setq unread-command-events |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
335 (cons event unread-command-events))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
336 (setq done t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
337 ((not (eq (car mouse) start-event-frame)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
338 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
339 ((null (car (cdr mouse))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
340 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
341 (t |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
342 (setq x (car (cdr mouse)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
343 edges (window-edges) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
344 left (nth 0 edges) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
345 right (nth 2 edges)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
346 ;; scale back a move that would make the |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
347 ;; window too thin. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
348 (cond ((< (- x left -1) window-min-width) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
349 (setq x (+ left window-min-width -1)))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
350 ;; compute size change needed |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
351 (setq growth (- x right -1) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
352 wconfig (current-window-configuration)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
353 (enlarge-window growth t) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
354 ;; if this window's growth caused another |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
355 ;; window to be deleted because it was too |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
356 ;; thin, rescind the change. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
357 ;; |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
358 ;; if size change caused space to be stolen |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
359 ;; from a window to the left of this one, |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
360 ;; rescind the change. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
361 (if (or (/= start-nwindows (count-windows t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
362 (/= left (nth 0 (window-edges)))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
363 (set-window-configuration wconfig))))))))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
364 |
4554
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
365 (defun mouse-set-point (event) |
465 | 366 "Move point to the position clicked on with the mouse. |
4554
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
367 This should be bound to a mouse click event type." |
1113 | 368 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
369 (mouse-minibuffer-check event) |
4554
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
370 ;; Use event-end in case called from mouse-drag-region. |
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
371 ;; If EVENT is a click, event-end and event-start give same value. |
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
372 (let ((posn (event-end event))) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
373 (if (not (windowp (posn-window posn))) |
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
374 (error "Cursor not in text area of window")) |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
375 (select-window (posn-window posn)) |
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
376 (if (numberp (posn-point posn)) |
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
377 (goto-char (posn-point posn))))) |
66 | 378 |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
379 (defvar mouse-last-region-beg nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
380 (defvar mouse-last-region-end nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
381 (defvar mouse-last-region-tick nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
382 |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
383 (defun mouse-region-match () |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
384 "Return non-nil if there's an active region that was set with the mouse." |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
385 (and (mark t) mark-active |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
386 (eq mouse-last-region-beg (region-beginning)) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
387 (eq mouse-last-region-end (region-end)) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
388 (eq mouse-last-region-tick (buffer-modified-tick)))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
389 |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
390 (defun mouse-set-region (click) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
391 "Set the region to the text dragged over, and copy to kill ring. |
4554
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
392 This should be bound to a mouse drag event." |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
393 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
394 (mouse-minibuffer-check click) |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
395 (let ((posn (event-start click)) |
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
396 (end (event-end click))) |
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
397 (select-window (posn-window posn)) |
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
398 (if (numberp (posn-point posn)) |
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
399 (goto-char (posn-point posn))) |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
400 ;; If mark is highlighted, no need to bounce the cursor. |
12078
eb9f9e9cd522
(mouse-set-region): Don't bounce the cursor on X.
Karl Heuer <kwzh@gnu.org>
parents:
11863
diff
changeset
|
401 ;; On X, we highlight while dragging, thus once again no need to bounce. |
eb9f9e9cd522
(mouse-set-region): Don't bounce the cursor on X.
Karl Heuer <kwzh@gnu.org>
parents:
11863
diff
changeset
|
402 (or transient-mark-mode |
eb9f9e9cd522
(mouse-set-region): Don't bounce the cursor on X.
Karl Heuer <kwzh@gnu.org>
parents:
11863
diff
changeset
|
403 (eq (framep (selected-frame)) 'x) |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
404 (sit-for 1)) |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
405 (push-mark) |
2802
02c75b605550
(mouse-set-region): Call set-mark to activate mark.
Richard M. Stallman <rms@gnu.org>
parents:
2799
diff
changeset
|
406 (set-mark (point)) |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
407 (if (numberp (posn-point end)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
408 (goto-char (posn-point end))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
409 ;; Don't set this-command to kill-region, so that a following |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
410 ;; C-w will not double the text in the kill ring. |
12257
29b6db180047
(mouse-set-region): Bind last-command with this-command.
Richard M. Stallman <rms@gnu.org>
parents:
12078
diff
changeset
|
411 ;; Ignore last-command so we don't append to a preceding kill. |
29b6db180047
(mouse-set-region): Bind last-command with this-command.
Richard M. Stallman <rms@gnu.org>
parents:
12078
diff
changeset
|
412 (let (this-command last-command) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
413 (copy-region-as-kill (mark) (point))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
414 (mouse-set-region-1))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
415 |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
416 (defun mouse-set-region-1 () |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
417 (setq mouse-last-region-beg (region-beginning)) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
418 (setq mouse-last-region-end (region-end)) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
419 (setq mouse-last-region-tick (buffer-modified-tick))) |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
420 |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
421 (defvar mouse-scroll-delay 0.25 |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
422 "*The pause between scroll steps caused by mouse drags, in seconds. |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
423 If you drag the mouse beyond the edge of a window, Emacs scrolls the |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
424 window to bring the text beyond that edge into view, with a delay of |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
425 this many seconds between scroll steps. Scrolling stops when you move |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
426 the mouse back into the window, or release the button. |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
427 This variable's value may be non-integral. |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
428 Setting this to zero causes Emacs to scroll as fast as it can.") |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
429 |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
430 (defvar mouse-scroll-min-lines 1 |
13068
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
431 "*The minimum number of lines scrolled by dragging mouse out of window. |
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
432 Moving the mouse out the top or bottom edge of the window begins |
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
433 scrolling repeatedly. The number of lines scrolled per repetition |
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
434 is normally equal to the number of lines beyond the window edge that |
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
435 the mouse has moved. However, it always scrolls at least the number |
9cc4392719e3
[These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents:
13038
diff
changeset
|
436 of lines specified by this variable.") |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
437 |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
438 (defun mouse-scroll-subr (window jump &optional overlay start) |
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
439 "Scroll the window WINDOW, JUMP lines at a time, until new input arrives. |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
440 If OVERLAY is an overlay, let it stretch from START to the far edge of |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
441 the newly visible text. |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
442 Upon exit, point is at the far edge of the newly visible text." |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
443 (cond |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
444 ((and (> jump 0) (< jump mouse-scroll-min-lines)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
445 (setq jump mouse-scroll-min-lines)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
446 ((and (< jump 0) (< (- jump) mouse-scroll-min-lines)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
447 (setq jump (- mouse-scroll-min-lines)))) |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
448 (let ((opoint (point))) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
449 (while (progn |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
450 (goto-char (window-start window)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
451 (if (not (zerop (vertical-motion jump window))) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
452 (progn |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
453 (set-window-start window (point)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
454 (if (natnump jump) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
455 (progn |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
456 (goto-char (window-end window)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
457 ;; window-end doesn't reflect the window's new |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
458 ;; start position until the next redisplay. Hurrah. |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
459 (vertical-motion (1- jump) window)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
460 (goto-char (window-start window))) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
461 (if overlay |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
462 (move-overlay overlay start (point))) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
463 ;; Now that we have scrolled WINDOW properly, |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
464 ;; put point back where it was for the redisplay |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
465 ;; so that we don't mess up the selected window. |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
466 (or (eq window (selected-window)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
467 (goto-char opoint)) |
8064
d04a39ce4f1d
(mouse-scroll-subr): Don't do anything special at eob.
Richard M. Stallman <rms@gnu.org>
parents:
7966
diff
changeset
|
468 (sit-for mouse-scroll-delay))))) |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
469 (or (eq window (selected-window)) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
470 (goto-char opoint)))) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
471 |
11453
5ed0795c4155
Create mouse-drag-overlay as a dead overlay, instead
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
472 ;; Create an overlay and immediately delete it, to get "overlay in no buffer". |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
473 (defvar mouse-drag-overlay (make-overlay 1 1)) |
11453
5ed0795c4155
Create mouse-drag-overlay as a dead overlay, instead
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
474 (delete-overlay mouse-drag-overlay) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
475 (overlay-put mouse-drag-overlay 'face 'region) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
476 |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
477 (defvar mouse-selection-click-count 0) |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
478 |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
479 (defvar mouse-selection-click-count-buffer nil) |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
480 |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
481 (defun mouse-drag-region (start-event) |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
482 "Set the region to the text that the mouse is dragged over. |
4532
c2afed091afb
(mouse-drag-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4490
diff
changeset
|
483 Highlight the drag area as you move the mouse. |
c2afed091afb
(mouse-drag-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4490
diff
changeset
|
484 This must be bound to a button-down mouse event. |
c2afed091afb
(mouse-drag-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4490
diff
changeset
|
485 In Transient Mark mode, the highlighting remains once you |
c2afed091afb
(mouse-drag-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4490
diff
changeset
|
486 release the mouse button. Otherwise, it does not." |
3566
dc2b64ef30dc
(mouse-drag-region-1): Un-comment-out this function.
Richard M. Stallman <rms@gnu.org>
parents:
3420
diff
changeset
|
487 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
488 (mouse-minibuffer-check start-event) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
489 (let* ((start-posn (event-start start-event)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
490 (start-point (posn-point start-posn)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
491 (start-window (posn-window start-posn)) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
492 (start-frame (window-frame start-window)) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
493 (bounds (window-edges start-window)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
494 (top (nth 1 bounds)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
495 (bottom (if (window-minibuffer-p start-window) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
496 (nth 3 bounds) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
497 ;; Don't count the mode line. |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
498 (1- (nth 3 bounds)))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
499 (click-count (1- (event-click-count start-event)))) |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
500 (setq mouse-selection-click-count click-count) |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
501 (setq mouse-selection-click-count-buffer (current-buffer)) |
4490
8362b57424dc
(mouse-set-point): Error if click in inactive minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
4472
diff
changeset
|
502 (mouse-set-point start-event) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
503 ;; In case the down click is in the middle of some intangible text, |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
504 ;; use the end of that text, and put it in START-POINT. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
505 (if (< (point) start-point) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
506 (goto-char start-point)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
507 (setq start-point (point)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
508 (let ((range (mouse-start-end start-point start-point click-count))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
509 (move-overlay mouse-drag-overlay (car range) (nth 1 range) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
510 (window-buffer start-window))) |
4200
3f5f55401364
(mouse-drag-region): Use deactivate-mark.
Richard M. Stallman <rms@gnu.org>
parents:
4081
diff
changeset
|
511 (deactivate-mark) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
512 ;; end-of-range is used only in the single-click case. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
513 ;; It is the place where the drag has reached so far |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
514 ;; (but not outside the window where the drag started). |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
515 (let (event end end-point (end-of-range (point))) |
3566
dc2b64ef30dc
(mouse-drag-region-1): Un-comment-out this function.
Richard M. Stallman <rms@gnu.org>
parents:
3420
diff
changeset
|
516 (track-mouse |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
517 (while (progn |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
518 (setq event (read-event)) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
519 (or (mouse-movement-p event) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
520 (eq (car-safe event) 'switch-frame))) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
521 (if (eq (car-safe event) 'switch-frame) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
522 nil |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
523 (setq end (event-end event) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
524 end-point (posn-point end)) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
525 |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
526 (cond |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
527 ;; Are we moving within the original window? |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
528 ((and (eq (posn-window end) start-window) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
529 (integer-or-marker-p end-point)) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
530 ;; Go to START-POINT first, so that when we move to END-POINT, |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
531 ;; if it's in the middle of intangible text, |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
532 ;; point jumps in the direction away from START-POINT. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
533 (goto-char start-point) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
534 (goto-char end-point) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
535 (if (zerop (% click-count 3)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
536 (setq end-of-range (point))) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
537 (let ((range (mouse-start-end start-point (point) click-count))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
538 (move-overlay mouse-drag-overlay (car range) (nth 1 range)))) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
539 |
6923
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
540 (t |
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
541 (let ((mouse-row (cdr (cdr (mouse-position))))) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
542 (cond |
6923
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
543 ((null mouse-row)) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
544 ((< mouse-row top) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
545 (mouse-scroll-subr start-window (- mouse-row top) |
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
546 mouse-drag-overlay start-point)) |
8064
d04a39ce4f1d
(mouse-scroll-subr): Don't do anything special at eob.
Richard M. Stallman <rms@gnu.org>
parents:
7966
diff
changeset
|
547 ((>= mouse-row bottom) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
548 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
6923
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
549 mouse-drag-overlay start-point))))))))) |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
550 (if (consp event) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
551 (let ((fun (key-binding (vector (car event))))) |
10554
f5f5c52de2e4
(mouse-drag-region): Modify previous change--don't run the ordinary binding
Richard M. Stallman <rms@gnu.org>
parents:
10553
diff
changeset
|
552 ;; Run the binding of the terminating up-event, if possible. |
f5f5c52de2e4
(mouse-drag-region): Modify previous change--don't run the ordinary binding
Richard M. Stallman <rms@gnu.org>
parents:
10553
diff
changeset
|
553 ;; In the case of a multiple click, it gives the wrong results, |
f5f5c52de2e4
(mouse-drag-region): Modify previous change--don't run the ordinary binding
Richard M. Stallman <rms@gnu.org>
parents:
10553
diff
changeset
|
554 ;; because it would fail to set up a region. |
f5f5c52de2e4
(mouse-drag-region): Modify previous change--don't run the ordinary binding
Richard M. Stallman <rms@gnu.org>
parents:
10553
diff
changeset
|
555 (if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun)) |
12844
a6bcb0568121
(mouse-drag-region): Unread the up-event rather than execute it here.
Richard M. Stallman <rms@gnu.org>
parents:
12553
diff
changeset
|
556 ;; In this case, we can just let the up-event execute normally. |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
557 (let ((end (event-end event))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
558 ;; Set the position in the event before we replay it, |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
559 ;; because otherwise it may have a position in the wrong |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
560 ;; buffer. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
561 (setcar (cdr end) end-of-range) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
562 ;; Delete the overlay before calling the function, |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
563 ;; because delete-overlay increases buffer-modified-tick. |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
564 (delete-overlay mouse-drag-overlay) |
12844
a6bcb0568121
(mouse-drag-region): Unread the up-event rather than execute it here.
Richard M. Stallman <rms@gnu.org>
parents:
12553
diff
changeset
|
565 (setq unread-command-events |
a6bcb0568121
(mouse-drag-region): Unread the up-event rather than execute it here.
Richard M. Stallman <rms@gnu.org>
parents:
12553
diff
changeset
|
566 (cons event unread-command-events))) |
10369
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
567 (if (not (= (overlay-start mouse-drag-overlay) |
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
568 (overlay-end mouse-drag-overlay))) |
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
569 (let (last-command this-command) |
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
570 (push-mark (overlay-start mouse-drag-overlay) t t) |
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
571 (goto-char (overlay-end mouse-drag-overlay)) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
572 (delete-overlay mouse-drag-overlay) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
573 (copy-region-as-kill (point) (mark t)) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
574 (mouse-set-region-1)) |
10369
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
575 (goto-char (overlay-end mouse-drag-overlay)) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
576 (setq this-command 'mouse-set-point) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
577 (delete-overlay mouse-drag-overlay)))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
578 (delete-overlay mouse-drag-overlay))))) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
579 |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
580 ;; Commands to handle xterm-style multiple clicks. |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
581 |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
582 (defun mouse-skip-word (dir) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
583 "Skip over word, over whitespace, or over identical punctuation. |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
584 If DIR is positive skip forward; if negative, skip backward." |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
585 (let* ((char (following-char)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
586 (syntax (char-to-string (char-syntax char)))) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
587 (cond ((or (string= syntax "w") (string= syntax " ")) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
588 (if (< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
589 (skip-syntax-backward syntax) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
590 (skip-syntax-forward syntax))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
591 ((string= syntax "_") |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
592 (if (< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
593 (skip-syntax-backward "w_") |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
594 (skip-syntax-forward "w_"))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
595 ((< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
596 (while (and (not (bobp)) (= (preceding-char) char)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
597 (forward-char -1))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
598 (t |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
599 (while (and (not (eobp)) (= (following-char) char)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
600 (forward-char 1)))))) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
601 |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
602 ;; Return a list of region bounds based on START and END according to MODE. |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
603 ;; If MODE is 0 then set point to (min START END), mark to (max START END). |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
604 ;; If MODE is 1 then set point to start of word at (min START END), |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
605 ;; mark to end of word at (max START END). |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
606 ;; If MODE is 2 then do the same for lines. |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
607 (defun mouse-start-end (start end mode) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
608 (if (> start end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
609 (let ((temp start)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
610 (setq start end |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
611 end temp))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
612 (setq mode (mod mode 3)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
613 (cond ((= mode 0) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
614 (list start end)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
615 ((and (= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
616 (= start end) |
5869
91dcabd87088
(mouse-start-end): Check START rather than point for being at eob.
Karl Heuer <kwzh@gnu.org>
parents:
5799
diff
changeset
|
617 (char-after start) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
618 (= (char-syntax (char-after start)) ?\()) |
5879
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
619 (list start |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
620 (save-excursion |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
621 (goto-char start) |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
622 (forward-sexp 1) |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
623 (point)))) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
624 ((and (= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
625 (= start end) |
5869
91dcabd87088
(mouse-start-end): Check START rather than point for being at eob.
Karl Heuer <kwzh@gnu.org>
parents:
5799
diff
changeset
|
626 (char-after start) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
627 (= (char-syntax (char-after start)) ?\))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
628 (list (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
629 (goto-char (1+ start)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
630 (backward-sexp 1) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
631 (point)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
632 (1+ start))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
633 ((= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
634 (list (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
635 (goto-char start) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
636 (mouse-skip-word -1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
637 (point)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
638 (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
639 (goto-char end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
640 (mouse-skip-word 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
641 (point)))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
642 ((= mode 2) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
643 (list (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
644 (goto-char start) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
645 (beginning-of-line 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
646 (point)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
647 (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
648 (goto-char end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
649 (forward-line 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
650 (point)))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
651 |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
652 ;; Subroutine: set the mark where CLICK happened, |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
653 ;; but don't do anything else. |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
654 (defun mouse-set-mark-fast (click) |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
655 (mouse-minibuffer-check click) |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
656 (let ((posn (event-start click))) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
657 (select-window (posn-window posn)) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
658 (if (numberp (posn-point posn)) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
659 (push-mark (posn-point posn) t t)))) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
660 |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
661 ;; Momentarily show where the mark is, if highlighting doesn't show it. |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
662 (defun mouse-show-mark () |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
663 (or transient-mark-mode |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
664 (save-excursion |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
665 (goto-char (mark t)) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
666 (sit-for 1)))) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
667 |
465 | 668 (defun mouse-set-mark (click) |
669 "Set mark at the position clicked on with the mouse. | |
670 Display cursor at that position for a second. | |
671 This must be bound to a mouse click." | |
1113 | 672 (interactive "e") |
8534
a446d13c46ea
(mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents:
8519
diff
changeset
|
673 (mouse-minibuffer-check click) |
a446d13c46ea
(mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents:
8519
diff
changeset
|
674 (select-window (posn-window (event-start click))) |
a446d13c46ea
(mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents:
8519
diff
changeset
|
675 ;; We don't use save-excursion because that preserves the mark too. |
66 | 676 (let ((point-save (point))) |
677 (unwind-protect | |
465 | 678 (progn (mouse-set-point click) |
3119
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
679 (push-mark nil t t) |
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
680 (or transient-mark-mode |
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
681 (sit-for 1))) |
66 | 682 (goto-char point-save)))) |
683 | |
465 | 684 (defun mouse-kill (click) |
685 "Kill the region between point and the mouse click. | |
686 The text is saved in the kill ring, as with \\[kill-region]." | |
1113 | 687 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
688 (mouse-minibuffer-check click) |
6301
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
689 (let* ((posn (event-start click)) |
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
690 (click-posn (posn-point posn))) |
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
691 (select-window (posn-window posn)) |
1039 | 692 (if (numberp click-posn) |
693 (kill-region (min (point) click-posn) | |
694 (max (point) click-posn))))) | |
66 | 695 |
705 | 696 (defun mouse-yank-at-click (click arg) |
697 "Insert the last stretch of killed text at the position clicked on. | |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
698 Also move point to one end of the text thus inserted (normally the end). |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
699 Prefix arguments are interpreted as with \\[yank]. |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
700 If `mouse-yank-at-point' is non-nil, insert at point |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
701 regardless of where you click." |
1113 | 702 (interactive "e\nP") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
703 ;; Give temporary modes such as isearch a chance to turn off. |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
704 (run-hooks 'mouse-leave-buffer-hook) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
705 (or mouse-yank-at-point (mouse-set-point click)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
706 (setq this-command 'yank) |
12357
8d2679d3f095
(mouse-yank-at-click): Clear mouse-selection-click-count.
Richard M. Stallman <rms@gnu.org>
parents:
12257
diff
changeset
|
707 (setq mouse-selection-click-count 0) |
705 | 708 (yank arg)) |
709 | |
710 (defun mouse-kill-ring-save (click) | |
465 | 711 "Copy the region between point and the mouse click in the kill ring. |
712 This does not delete the region; it acts like \\[kill-ring-save]." | |
1113 | 713 (interactive "e") |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
714 (mouse-set-mark-fast click) |
8135
1f57b34ade27
(mouse-drag-region): Bind this-command like last-command.
Richard M. Stallman <rms@gnu.org>
parents:
8117
diff
changeset
|
715 (let (this-command last-command) |
1f57b34ade27
(mouse-drag-region): Bind this-command like last-command.
Richard M. Stallman <rms@gnu.org>
parents:
8117
diff
changeset
|
716 (kill-ring-save (point) (mark t))) |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
717 (mouse-show-mark)) |
66 | 718 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
719 ;;; This function used to delete the text between point and the mouse |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
720 ;;; whenever it was equal to the front of the kill ring, but some |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
721 ;;; people found that confusing. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
722 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
723 ;;; A list (TEXT START END), describing the text and position of the last |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
724 ;;; invocation of mouse-save-then-kill. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
725 (defvar mouse-save-then-kill-posn nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
726 |
5007
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
727 (defun mouse-save-then-kill-delete-region (beg end) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
728 ;; We must make our own undo boundaries |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
729 ;; because they happen automatically only for the current buffer. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
730 (undo-boundary) |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
731 (if (or (= beg end) (eq buffer-undo-list t)) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
732 ;; If we have no undo list in this buffer, |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
733 ;; just delete. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
734 (delete-region beg end) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
735 ;; Delete, but make the undo-list entry share with the kill ring. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
736 ;; First, delete just one char, so in case buffer is being modified |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
737 ;; for the first time, the undo list records that fact. |
7866
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
738 (let (before-change-function after-change-function |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
739 before-change-functions after-change-functions) |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
740 (delete-region beg |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
741 (+ beg (if (> end beg) 1 -1)))) |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
742 (let ((buffer-undo-list buffer-undo-list)) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
743 ;; Undo that deletion--but don't change the undo list! |
7866
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
744 (let (before-change-function after-change-function |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
745 before-change-functions after-change-functions) |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
746 (primitive-undo 1 buffer-undo-list)) |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
747 ;; Now delete the rest of the specified region, |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
748 ;; but don't record it. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
749 (setq buffer-undo-list t) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
750 (if (/= (length (car kill-ring)) (- (max end beg) (min end beg))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
751 (error "Lossage in mouse-save-then-kill-delete-region")) |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
752 (delete-region beg end)) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
753 (let ((tail buffer-undo-list)) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
754 ;; Search back in buffer-undo-list for the string |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
755 ;; that came from deleting one character. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
756 (while (and tail (not (stringp (car (car tail))))) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
757 (setq tail (cdr tail))) |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
758 ;; Replace it with an entry for the entire deleted text. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
759 (and tail |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
760 (setcar tail (cons (car kill-ring) (min beg end)))))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
761 (undo-boundary)) |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
762 |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
763 (defun mouse-save-then-kill (click) |
1765
1cc3ee5afc82
(mouse-save-then-kill): When deleting, avoid delay
Richard M. Stallman <rms@gnu.org>
parents:
1728
diff
changeset
|
764 "Save text to point in kill ring; the second time, kill the text. |
1cc3ee5afc82
(mouse-save-then-kill): When deleting, avoid delay
Richard M. Stallman <rms@gnu.org>
parents:
1728
diff
changeset
|
765 If the text between point and the mouse is the same as what's |
1cc3ee5afc82
(mouse-save-then-kill): When deleting, avoid delay
Richard M. Stallman <rms@gnu.org>
parents:
1728
diff
changeset
|
766 at the front of the kill ring, this deletes the text. |
1cc3ee5afc82
(mouse-save-then-kill): When deleting, avoid delay
Richard M. Stallman <rms@gnu.org>
parents:
1728
diff
changeset
|
767 Otherwise, it adds the text to the kill ring, like \\[kill-ring-save], |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
768 which prepares for a second click to delete the text. |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
769 |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
770 If you have selected words or lines, this command extends the |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
771 selection through the word or line clicked on. If you do this |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
772 again in a different position, it extends the selection again. |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
773 If you do this twice in the same position, the selection is killed." |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
774 (interactive "e") |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
775 (let ((before-scroll point-before-scroll)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
776 (mouse-minibuffer-check click) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
777 (let ((click-posn (posn-point (event-start click))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
778 ;; Don't let a subsequent kill command append to this one: |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
779 ;; prevent setting this-command to kill-region. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
780 (this-command this-command)) |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
781 (if (and (save-excursion |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
782 (set-buffer (window-buffer (posn-window (event-start click)))) |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
783 (and (mark t) (> (mod mouse-selection-click-count 3) 0) |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
784 ;; Don't be fooled by a recent click in some other buffer. |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
785 (eq mouse-selection-click-count-buffer |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
786 (current-buffer))))) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
787 (if (not (and (eq last-command 'mouse-save-then-kill) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
788 (equal click-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
789 (car (cdr-safe (cdr-safe mouse-save-then-kill-posn)))))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
790 ;; Find both ends of the object selected by this click. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
791 (let* ((range |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
792 (mouse-start-end click-posn click-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
793 mouse-selection-click-count))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
794 ;; Move whichever end is closer to the click. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
795 ;; That's what xterm does, and it seems reasonable. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
796 (if (< (abs (- click-posn (mark t))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
797 (abs (- click-posn (point)))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
798 (set-mark (car range)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
799 (goto-char (nth 1 range))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
800 ;; We have already put the old region in the kill ring. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
801 ;; Replace it with the extended region. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
802 ;; (It would be annoying to make a separate entry.) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
803 (kill-new (buffer-substring (point) (mark t)) t) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
804 (mouse-set-region-1) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
805 ;; Arrange for a repeated mouse-3 to kill this region. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
806 (setq mouse-save-then-kill-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
807 (list (car kill-ring) (point) click-posn)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
808 (mouse-show-mark)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
809 ;; If we click this button again without moving it, |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
810 ;; that time kill. |
11818
f470809e6a60
(mouse-save-then-kill): When making a new region
Richard M. Stallman <rms@gnu.org>
parents:
11453
diff
changeset
|
811 (mouse-save-then-kill-delete-region (mark) (point)) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
812 (setq mouse-selection-click-count 0) |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
813 (setq mouse-save-then-kill-posn nil)) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
814 (if (and (eq last-command 'mouse-save-then-kill) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
815 mouse-save-then-kill-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
816 (eq (car mouse-save-then-kill-posn) (car kill-ring)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
817 (equal (cdr mouse-save-then-kill-posn) (list (point) click-posn))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
818 ;; If this is the second time we've called |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
819 ;; mouse-save-then-kill, delete the text from the buffer. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
820 (progn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
821 (mouse-save-then-kill-delete-region (point) (mark)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
822 ;; After we kill, another click counts as "the first time". |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
823 (setq mouse-save-then-kill-posn nil)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
824 (if (or (and (eq last-command 'mouse-save-then-kill) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
825 mouse-save-then-kill-posn) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
826 (and mark-active transient-mark-mode) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
827 (and (memq last-command |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
828 '(mouse-drag-region mouse-set-region)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
829 (or mark-even-if-inactive |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
830 (not transient-mark-mode)))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
831 ;; We have a selection or suitable region, so adjust it. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
832 (let* ((posn (event-start click)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
833 (new (posn-point posn))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
834 (select-window (posn-window posn)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
835 (if (numberp new) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
836 (progn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
837 ;; Move whichever end of the region is closer to the click. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
838 ;; That is what xterm does, and it seems reasonable. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
839 (if (< (abs (- new (point))) (abs (- new (mark t)))) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
840 (goto-char new) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
841 (set-mark new)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
842 (setq deactivate-mark nil))) |
11818
f470809e6a60
(mouse-save-then-kill): When making a new region
Richard M. Stallman <rms@gnu.org>
parents:
11453
diff
changeset
|
843 (kill-new (buffer-substring (point) (mark t)) t) |
f470809e6a60
(mouse-save-then-kill): When making a new region
Richard M. Stallman <rms@gnu.org>
parents:
11453
diff
changeset
|
844 (mouse-show-mark)) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
845 ;; Set the mark where point is, then move where clicked. |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
846 (mouse-set-mark-fast click) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
847 (if before-scroll |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
848 (goto-char before-scroll)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
849 (exchange-point-and-mark) |
11863
18e97591e9bd
(mouse-save-then-kill): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
11818
diff
changeset
|
850 (kill-new (buffer-substring (point) (mark t)))) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
851 (mouse-set-region-1) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
852 (setq mouse-save-then-kill-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
853 (list (car kill-ring) (point) click-posn))))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
854 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
855 (global-set-key [M-mouse-1] 'mouse-start-secondary) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
856 (global-set-key [M-drag-mouse-1] 'mouse-set-secondary) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
857 (global-set-key [M-down-mouse-1] 'mouse-drag-secondary) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
858 (global-set-key [M-mouse-3] 'mouse-secondary-save-then-kill) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
859 (global-set-key [M-mouse-2] 'mouse-yank-secondary) |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
860 |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
861 ;; An overlay which records the current secondary selection |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
862 ;; or else is deleted when there is no secondary selection. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
863 ;; May be nil. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
864 (defvar mouse-secondary-overlay nil) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
865 |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
866 (defvar mouse-secondary-click-count 0) |
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
867 |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
868 ;; A marker which records the specified first end for a secondary selection. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
869 ;; May be nil. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
870 (defvar mouse-secondary-start nil) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
871 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
872 (defun mouse-start-secondary (click) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
873 "Set one end of the secondary selection to the position clicked on. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
874 Use \\[mouse-secondary-save-then-kill] to set the other end |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
875 and complete the secondary selection." |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
876 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
877 (mouse-minibuffer-check click) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
878 (let ((posn (event-start click))) |
3823
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
879 (save-excursion |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
880 (set-buffer (window-buffer (posn-window posn))) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
881 ;; Cancel any preexisting secondary selection. |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
882 (if mouse-secondary-overlay |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
883 (delete-overlay mouse-secondary-overlay)) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
884 (if (numberp (posn-point posn)) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
885 (progn |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
886 (or mouse-secondary-start |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
887 (setq mouse-secondary-start (make-marker))) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
888 (move-marker mouse-secondary-start (posn-point posn))))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
889 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
890 (defun mouse-set-secondary (click) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
891 "Set the secondary selection to the text that the mouse is dragged over. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
892 This must be bound to a mouse drag event." |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
893 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
894 (mouse-minibuffer-check click) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
895 (let ((posn (event-start click)) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
896 beg |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
897 (end (event-end click))) |
3823
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
898 (save-excursion |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
899 (set-buffer (window-buffer (posn-window posn))) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
900 (if (numberp (posn-point posn)) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
901 (setq beg (posn-point posn))) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
902 (if mouse-secondary-overlay |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
903 (move-overlay mouse-secondary-overlay beg (posn-point end)) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
904 (setq mouse-secondary-overlay (make-overlay beg (posn-point end)))) |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
905 (overlay-put mouse-secondary-overlay 'face 'secondary-selection)))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
906 |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
907 (defun mouse-drag-secondary (start-event) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
908 "Set the secondary selection to the text that the mouse is dragged over. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
909 Highlight the drag area as you move the mouse. |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
910 This must be bound to a button-down mouse event." |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
911 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
912 (mouse-minibuffer-check start-event) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
913 (let* ((start-posn (event-start start-event)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
914 (start-point (posn-point start-posn)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
915 (start-window (posn-window start-posn)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
916 (start-frame (window-frame start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
917 (bounds (window-edges start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
918 (top (nth 1 bounds)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
919 (bottom (if (window-minibuffer-p start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
920 (nth 3 bounds) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
921 ;; Don't count the mode line. |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
922 (1- (nth 3 bounds)))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
923 (click-count (1- (event-click-count start-event)))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
924 (save-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
925 (set-buffer (window-buffer start-window)) |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
926 (setq mouse-secondary-click-count click-count) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
927 (or mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
928 (setq mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
929 (make-overlay (point) (point)))) |
5007
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
930 (overlay-put mouse-secondary-overlay 'face 'secondary-selection) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
931 (if (> (mod click-count 3) 0) |
5007
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
932 ;; Double or triple press: make an initial selection |
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
933 ;; of one word or line. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
934 (let ((range (mouse-start-end start-point start-point click-count))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
935 (set-marker mouse-secondary-start nil) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
936 (move-overlay mouse-secondary-overlay 1 1 |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
937 (window-buffer start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
938 (move-overlay mouse-secondary-overlay (car range) (nth 1 range) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
939 (window-buffer start-window))) |
5007
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
940 ;; Single-press: cancel any preexisting secondary selection. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
941 (or mouse-secondary-start |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
942 (setq mouse-secondary-start (make-marker))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
943 (set-marker mouse-secondary-start start-point) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
944 (delete-overlay mouse-secondary-overlay)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
945 (let (event end end-point) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
946 (track-mouse |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
947 (while (progn |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
948 (setq event (read-event)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
949 (or (mouse-movement-p event) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
950 (eq (car-safe event) 'switch-frame))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
951 |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
952 (if (eq (car-safe event) 'switch-frame) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
953 nil |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
954 (setq end (event-end event) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
955 end-point (posn-point end)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
956 (cond |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
957 ;; Are we moving within the original window? |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
958 ((and (eq (posn-window end) start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
959 (integer-or-marker-p end-point)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
960 (let ((range (mouse-start-end start-point end-point |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
961 click-count))) |
8224
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
962 (if (or (/= start-point end-point) |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
963 (null (marker-position mouse-secondary-start))) |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
964 (progn |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
965 (set-marker mouse-secondary-start nil) |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
966 (move-overlay mouse-secondary-overlay |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
967 (car range) (nth 1 range)))))) |
7588
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
968 (t |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
969 (let ((mouse-row (cdr (cdr (mouse-position))))) |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
970 (cond |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
971 ((null mouse-row)) |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
972 ((< mouse-row top) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
973 (mouse-scroll-subr start-window (- mouse-row top) |
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
974 mouse-secondary-overlay start-point)) |
8064
d04a39ce4f1d
(mouse-scroll-subr): Don't do anything special at eob.
Richard M. Stallman <rms@gnu.org>
parents:
7966
diff
changeset
|
975 ((>= mouse-row bottom) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
976 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
7588
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
977 mouse-secondary-overlay start-point))))))))) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
978 |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
979 (if (consp event) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
980 ;;; (eq (get (event-basic-type event) 'event-kind) 'mouse-click) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
981 ;;; (eq (posn-window (event-end event)) start-window) |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
982 ;;; (numberp (posn-point (event-end event))) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
983 (if (marker-position mouse-secondary-start) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
984 (save-window-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
985 (delete-overlay mouse-secondary-overlay) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
986 (x-set-selection 'SECONDARY nil) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
987 (select-window start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
988 (save-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
989 (goto-char mouse-secondary-start) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
990 (sit-for 1))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
991 (x-set-selection |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
992 'SECONDARY |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
993 (buffer-substring (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
994 (overlay-end mouse-secondary-overlay))))))))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
995 |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
996 (defun mouse-yank-secondary (click) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
997 "Insert the secondary selection at the position clicked on. |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
998 Move point to the end of the inserted text. |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
999 If `mouse-yank-at-point' is non-nil, insert at point |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1000 regardless of where you click." |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1001 (interactive "e") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1002 ;; Give temporary modes such as isearch a chance to turn off. |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1003 (run-hooks 'mouse-leave-buffer-hook) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1004 (or mouse-yank-at-point (mouse-set-point click)) |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1005 (insert (x-get-selection 'SECONDARY))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1006 |
5280
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1007 (defun mouse-kill-secondary () |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1008 "Kill the text in the secondary selection. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1009 This is intended more as a keyboard command than as a mouse command |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1010 but it can work as either one. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1011 |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1012 The current buffer (in case of keyboard use), or the buffer clicked on, |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1013 must be the one that the secondary selection is in. This requirement |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1014 is to prevent accidents." |
5280
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1015 (interactive) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1016 (let* ((keys (this-command-keys)) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1017 (click (elt keys (1- (length keys))))) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1018 (or (eq (overlay-buffer mouse-secondary-overlay) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1019 (if (listp click) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1020 (window-buffer (posn-window (event-start click))) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1021 (current-buffer))) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1022 (error "Select or click on the buffer where the secondary selection is"))) |
10838
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1023 (let (this-command) |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1024 (save-excursion |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1025 (set-buffer (overlay-buffer mouse-secondary-overlay)) |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1026 (kill-region (overlay-start mouse-secondary-overlay) |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1027 (overlay-end mouse-secondary-overlay)))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1028 (delete-overlay mouse-secondary-overlay) |
10838
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1029 ;;; (x-set-selection 'SECONDARY nil) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1030 (setq mouse-secondary-overlay nil)) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1031 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1032 (defun mouse-secondary-save-then-kill (click) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1033 "Save text to point in kill ring; the second time, kill the text. |
7302
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1034 You must use this in a buffer where you have recently done \\[mouse-start-secondary]. |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1035 If the text between where you did \\[mouse-start-secondary] and where |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1036 you use this command matches the text at the front of the kill ring, |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1037 this command deletes the text. |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1038 Otherwise, it adds the text to the kill ring, like \\[kill-ring-save], |
7302
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1039 which prepares for a second click with this command to delete the text. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1040 |
7302
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1041 If you have already made a secondary selection in that buffer, |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1042 this command extends or retracts the selection to where you click. |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1043 If you do this again in a different position, it extends or retracts |
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1044 again. If you do this twice in the same position, it kills the selection." |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1045 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
1046 (mouse-minibuffer-check click) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1047 (let ((posn (event-start click)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1048 (click-posn (posn-point (event-start click))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1049 ;; Don't let a subsequent kill command append to this one: |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1050 ;; prevent setting this-command to kill-region. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1051 (this-command this-command)) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1052 (or (eq (window-buffer (posn-window posn)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1053 (or (and mouse-secondary-overlay |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1054 (overlay-buffer mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1055 (if mouse-secondary-start |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1056 (marker-buffer mouse-secondary-start)))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1057 (error "Wrong buffer")) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1058 (save-excursion |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1059 (set-buffer (window-buffer (posn-window posn))) |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1060 (if (> (mod mouse-secondary-click-count 3) 0) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1061 (if (not (and (eq last-command 'mouse-secondary-save-then-kill) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1062 (equal click-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1063 (car (cdr-safe (cdr-safe mouse-save-then-kill-posn)))))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1064 ;; Find both ends of the object selected by this click. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1065 (let* ((range |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1066 (mouse-start-end click-posn click-posn |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1067 mouse-secondary-click-count))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1068 ;; Move whichever end is closer to the click. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1069 ;; That's what xterm does, and it seems reasonable. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1070 (if (< (abs (- click-posn (overlay-start mouse-secondary-overlay))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1071 (abs (- click-posn (overlay-end mouse-secondary-overlay)))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1072 (move-overlay mouse-secondary-overlay (car range) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1073 (overlay-end mouse-secondary-overlay)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1074 (move-overlay mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1075 (overlay-start mouse-secondary-overlay) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1076 (nth 1 range))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1077 ;; We have already put the old region in the kill ring. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1078 ;; Replace it with the extended region. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1079 ;; (It would be annoying to make a separate entry.) |
8765
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1080 (kill-new (buffer-substring |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1081 (overlay-start mouse-secondary-overlay) |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1082 (overlay-end mouse-secondary-overlay)) t) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1083 ;; Arrange for a repeated mouse-3 to kill this region. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1084 (setq mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1085 (list (car kill-ring) (point) click-posn))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1086 ;; If we click this button again without moving it, |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1087 ;; that time kill. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1088 (progn |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1089 (mouse-save-then-kill-delete-region |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1090 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1091 (overlay-end mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1092 (setq mouse-save-then-kill-posn nil) |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1093 (setq mouse-secondary-click-count 0) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1094 (delete-overlay mouse-secondary-overlay))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1095 (if (and (eq last-command 'mouse-secondary-save-then-kill) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1096 mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1097 (eq (car mouse-save-then-kill-posn) (car kill-ring)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1098 (equal (cdr mouse-save-then-kill-posn) (list (point) click-posn))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1099 ;; If this is the second time we've called |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1100 ;; mouse-secondary-save-then-kill, delete the text from the buffer. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1101 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1102 (mouse-save-then-kill-delete-region |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1103 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1104 (overlay-end mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1105 (setq mouse-save-then-kill-posn nil) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1106 (delete-overlay mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1107 (if (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1108 ;; We have a selection, so adjust it. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1109 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1110 (if (numberp click-posn) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1111 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1112 ;; Move whichever end of the region is closer to the click. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1113 ;; That is what xterm does, and it seems reasonable. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1114 (if (< (abs (- click-posn (overlay-start mouse-secondary-overlay))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1115 (abs (- click-posn (overlay-end mouse-secondary-overlay)))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1116 (move-overlay mouse-secondary-overlay click-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1117 (overlay-end mouse-secondary-overlay)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1118 (move-overlay mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1119 (overlay-start mouse-secondary-overlay) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1120 click-posn)) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1121 (setq deactivate-mark nil))) |
8224
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1122 (if (eq last-command 'mouse-secondary-save-then-kill) |
8765
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1123 ;; If the front of the kill ring comes from |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1124 ;; an immediately previous use of this command, |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1125 ;; replace it with the extended region. |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1126 ;; (It would be annoying to make a separate entry.) |
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1127 (kill-new (buffer-substring |
8224
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1128 (overlay-start mouse-secondary-overlay) |
8765
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1129 (overlay-end mouse-secondary-overlay)) t) |
8224
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1130 (copy-region-as-kill (overlay-start mouse-secondary-overlay) |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1131 (overlay-end mouse-secondary-overlay)))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1132 (if mouse-secondary-start |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1133 ;; All we have is one end of a selection, |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1134 ;; so put the other end here. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1135 (let ((start (+ 0 mouse-secondary-start))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1136 (kill-ring-save start click-posn) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1137 (if mouse-secondary-overlay |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1138 (move-overlay mouse-secondary-overlay start click-posn) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1139 (setq mouse-secondary-overlay (make-overlay start click-posn))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1140 (overlay-put mouse-secondary-overlay 'face 'secondary-selection)))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1141 (setq mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1142 (list (car kill-ring) (point) click-posn)))) |
10782
806b3e3fd93c
(mouse-buffer-menu): Don't clear selection when we kill it.
Richard M. Stallman <rms@gnu.org>
parents:
10720
diff
changeset
|
1143 (if (overlay-buffer mouse-secondary-overlay) |
806b3e3fd93c
(mouse-buffer-menu): Don't clear selection when we kill it.
Richard M. Stallman <rms@gnu.org>
parents:
10720
diff
changeset
|
1144 (x-set-selection 'SECONDARY |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1145 (buffer-substring |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1146 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1147 (overlay-end mouse-secondary-overlay))))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1148 |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1149 (defun mouse-buffer-menu (event) |
1728
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1150 "Pop up a menu of buffers for selection with the mouse. |
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1151 This switches buffers in the window that you clicked on, |
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1152 and selects that window." |
1113 | 1153 (interactive "e") |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
1154 (mouse-minibuffer-check event) |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1155 (let ((menu |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1156 (list "Buffer Menu" |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1157 (cons "Select Buffer" |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1158 (let ((tail (buffer-list)) |
3899
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1159 (maxbuf 0) |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1160 head) |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1161 (while tail |
3899
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1162 (or (eq ?\ (aref (buffer-name (car tail)) 0)) |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1163 (setq maxbuf |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1164 (max maxbuf |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1165 (length (buffer-name (car tail)))))) |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1166 (setq tail (cdr tail))) |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1167 (setq tail (buffer-list)) |
a0655a72182b
(mouse-buffer-menu): Include % and * in each item.
Richard M. Stallman <rms@gnu.org>
parents:
3823
diff
changeset
|
1168 (while tail |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1169 (let ((elt (car tail))) |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1170 (if (not (string-match "^ " |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1171 (buffer-name elt))) |
10790
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1172 (setq head |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1173 (cons |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1174 (cons |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1175 (format |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1176 (format "%%%ds %%s%%s %%s" maxbuf) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1177 (buffer-name elt) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1178 (if (buffer-modified-p elt) "*" " ") |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1179 (save-excursion |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1180 (set-buffer elt) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1181 (if buffer-read-only "%" " ")) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1182 (or (buffer-file-name elt) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1183 (save-excursion |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1184 (set-buffer elt) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1185 (if list-buffers-directory |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1186 (expand-file-name |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1187 list-buffers-directory))) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1188 "")) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1189 elt) |
7d1a9faaf158
Made mouse-buffer-menu use list-buffers-directory if buffer-file-name is nil.
Simon Marshall <simon@gnu.org>
parents:
10782
diff
changeset
|
1190 head)))) |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1191 (setq tail (cdr tail))) |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1192 (reverse head)))))) |
1728
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1193 (let ((buf (x-popup-menu event menu)) |
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1194 (window (posn-window (event-start event)))) |
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1195 (if buf |
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1196 (progn |
3420
08adfe96ca93
(mouse-buffer-menu): Don't select the event's window,
Richard M. Stallman <rms@gnu.org>
parents:
3231
diff
changeset
|
1197 (or (framep window) (select-window window)) |
1728
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1198 (switch-to-buffer buf)))))) |
66 | 1199 |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1200 ;;; These need to be rewritten for the new scroll bar implementation. |
66 | 1201 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1202 ;;;!! ;; Commands for the scroll bar. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1203 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1204 ;;;!! (defun mouse-scroll-down (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1205 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1206 ;;;!! (scroll-down (1+ (cdr (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1207 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1208 ;;;!! (defun mouse-scroll-up (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1209 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1210 ;;;!! (scroll-up (1+ (cdr (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1211 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1212 ;;;!! (defun mouse-scroll-down-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1213 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1214 ;;;!! (scroll-down nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1215 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1216 ;;;!! (defun mouse-scroll-up-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1217 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1218 ;;;!! (scroll-up nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1219 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1220 ;;;!! (defun mouse-scroll-move-cursor (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1221 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1222 ;;;!! (move-to-window-line (1+ (cdr (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1223 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1224 ;;;!! (defun mouse-scroll-absolute (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1225 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1226 ;;;!! (let* ((pos (car event)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1227 ;;;!! (position (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1228 ;;;!! (length (car (cdr pos)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1229 ;;;!! (if (<= length 0) (setq length 1)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1230 ;;;!! (let* ((scale-factor (max 1 (/ length (/ 8000000 (buffer-size))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1231 ;;;!! (newpos (* (/ (* (/ (buffer-size) scale-factor) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1232 ;;;!! position) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1233 ;;;!! length) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1234 ;;;!! scale-factor))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1235 ;;;!! (goto-char newpos) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1236 ;;;!! (recenter '(4))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1237 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1238 ;;;!! (defun mouse-scroll-left (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1239 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1240 ;;;!! (scroll-left (1+ (car (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1241 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1242 ;;;!! (defun mouse-scroll-right (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1243 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1244 ;;;!! (scroll-right (1+ (car (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1245 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1246 ;;;!! (defun mouse-scroll-left-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1247 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1248 ;;;!! (scroll-left nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1249 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1250 ;;;!! (defun mouse-scroll-right-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1251 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1252 ;;;!! (scroll-right nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1253 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1254 ;;;!! (defun mouse-scroll-move-cursor-horizontally (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1255 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1256 ;;;!! (move-to-column (1+ (car (mouse-coords click))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1257 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1258 ;;;!! (defun mouse-scroll-absolute-horizontally (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1259 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1260 ;;;!! (let* ((pos (car event)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1261 ;;;!! (position (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1262 ;;;!! (length (car (cdr pos)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1263 ;;;!! (set-window-hscroll (selected-window) 33))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1264 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1265 ;;;!! (global-set-key [scroll-bar mouse-1] 'mouse-scroll-up) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1266 ;;;!! (global-set-key [scroll-bar mouse-2] 'mouse-scroll-absolute) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1267 ;;;!! (global-set-key [scroll-bar mouse-3] 'mouse-scroll-down) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1268 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1269 ;;;!! (global-set-key [vertical-slider mouse-1] 'mouse-scroll-move-cursor) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1270 ;;;!! (global-set-key [vertical-slider mouse-2] 'mouse-scroll-move-cursor) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1271 ;;;!! (global-set-key [vertical-slider mouse-3] 'mouse-scroll-move-cursor) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1272 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1273 ;;;!! (global-set-key [thumbup mouse-1] 'mouse-scroll-up-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1274 ;;;!! (global-set-key [thumbup mouse-2] 'mouse-scroll-up-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1275 ;;;!! (global-set-key [thumbup mouse-3] 'mouse-scroll-up-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1276 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1277 ;;;!! (global-set-key [thumbdown mouse-1] 'mouse-scroll-down-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1278 ;;;!! (global-set-key [thumbdown mouse-2] 'mouse-scroll-down-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1279 ;;;!! (global-set-key [thumbdown mouse-3] 'mouse-scroll-down-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1280 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1281 ;;;!! (global-set-key [horizontal-scroll-bar mouse-1] 'mouse-scroll-left) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1282 ;;;!! (global-set-key [horizontal-scroll-bar mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1283 ;;;!! 'mouse-scroll-absolute-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1284 ;;;!! (global-set-key [horizontal-scroll-bar mouse-3] 'mouse-scroll-right) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1285 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1286 ;;;!! (global-set-key [horizontal-slider mouse-1] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1287 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1288 ;;;!! (global-set-key [horizontal-slider mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1289 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1290 ;;;!! (global-set-key [horizontal-slider mouse-3] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1291 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1292 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1293 ;;;!! (global-set-key [thumbleft mouse-1] 'mouse-scroll-left-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1294 ;;;!! (global-set-key [thumbleft mouse-2] 'mouse-scroll-left-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1295 ;;;!! (global-set-key [thumbleft mouse-3] 'mouse-scroll-left-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1296 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1297 ;;;!! (global-set-key [thumbright mouse-1] 'mouse-scroll-right-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1298 ;;;!! (global-set-key [thumbright mouse-2] 'mouse-scroll-right-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1299 ;;;!! (global-set-key [thumbright mouse-3] 'mouse-scroll-right-full) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1300 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1301 ;;;!! (global-set-key [horizontal-scroll-bar S-mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1302 ;;;!! 'mouse-split-window-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1303 ;;;!! (global-set-key [mode-line S-mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1304 ;;;!! 'mouse-split-window-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1305 ;;;!! (global-set-key [vertical-scroll-bar S-mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1306 ;;;!! 'mouse-split-window) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1307 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1308 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1309 ;;;!! ;;;; Here are experimental things being tested. Mouse events |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1310 ;;;!! ;;;; are of the form: |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1311 ;;;!! ;;;; ((x y) window screen-part key-sequence timestamp) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1312 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1313 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1314 ;;;!! ;;;; Dynamically track mouse coordinates |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1315 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1316 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1317 ;;;!! ;;(defun track-mouse (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1318 ;;;!! ;; "Track the coordinates, absolute and relative, of the mouse." |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1319 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1320 ;;;!! ;; (while mouse-grabbed |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1321 ;;;!! ;; (let* ((pos (read-mouse-position (selected-screen))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1322 ;;;!! ;; (abs-x (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1323 ;;;!! ;; (abs-y (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1324 ;;;!! ;; (relative-coordinate (coordinates-in-window-p |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1325 ;;;!! ;; (list (car pos) (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1326 ;;;!! ;; (selected-window)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1327 ;;;!! ;; (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1328 ;;;!! ;; (message "mouse: [%d %d], (%d %d)" abs-x abs-y |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1329 ;;;!! ;; (car relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1330 ;;;!! ;; (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1331 ;;;!! ;; (message "mouse: [%d %d]" abs-x abs-y))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1332 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1333 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1334 ;;;!! ;; Dynamically put a box around the line indicated by point |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1335 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1336 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1337 ;;;!! ;;(require 'backquote) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1338 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1339 ;;;!! ;;(defun mouse-select-buffer-line (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1340 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1341 ;;;!! ;; (let ((relative-coordinate |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1342 ;;;!! ;; (coordinates-in-window-p (car event) (selected-window))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1343 ;;;!! ;; (abs-y (car (cdr (car event))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1344 ;;;!! ;; (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1345 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1346 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1347 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1348 ;;;!! ;; (x-draw-rectangle |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1349 ;;;!! ;; (selected-screen) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1350 ;;;!! ;; abs-y 0 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1351 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1352 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1353 ;;;!! ;; (end-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1354 ;;;!! ;; (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1355 ;;;!! ;; (beginning-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1356 ;;;!! ;; (- (region-end) (region-beginning))) 1)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1357 ;;;!! ;; (sit-for 1) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1358 ;;;!! ;; (x-erase-rectangle (selected-screen)))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1359 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1360 ;;;!! ;;(defvar last-line-drawn nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1361 ;;;!! ;;(defvar begin-delim "[^ \t]") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1362 ;;;!! ;;(defvar end-delim "[^ \t]") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1363 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1364 ;;;!! ;;(defun mouse-boxing (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1365 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1366 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1367 ;;;!! ;; (let ((screen (selected-screen))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1368 ;;;!! ;; (while (= (x-mouse-events) 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1369 ;;;!! ;; (let* ((pos (read-mouse-position screen)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1370 ;;;!! ;; (abs-x (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1371 ;;;!! ;; (abs-y (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1372 ;;;!! ;; (relative-coordinate |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1373 ;;;!! ;; (coordinates-in-window-p (` ((, abs-x) (, abs-y))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1374 ;;;!! ;; (selected-window))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1375 ;;;!! ;; (begin-reg nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1376 ;;;!! ;; (end-reg nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1377 ;;;!! ;; (end-column nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1378 ;;;!! ;; (begin-column nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1379 ;;;!! ;; (if (and (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1380 ;;;!! ;; (or (not last-line-drawn) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1381 ;;;!! ;; (not (= last-line-drawn abs-y)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1382 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1383 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1384 ;;;!! ;; (if (= (following-char) 10) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1385 ;;;!! ;; () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1386 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1387 ;;;!! ;; (setq begin-reg (1- (re-search-forward end-delim))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1388 ;;;!! ;; (setq begin-column (1- (current-column))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1389 ;;;!! ;; (end-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1390 ;;;!! ;; (setq end-reg (1+ (re-search-backward begin-delim))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1391 ;;;!! ;; (setq end-column (1+ (current-column))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1392 ;;;!! ;; (message "%s" (buffer-substring begin-reg end-reg)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1393 ;;;!! ;; (x-draw-rectangle screen |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1394 ;;;!! ;; (setq last-line-drawn abs-y) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1395 ;;;!! ;; begin-column |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1396 ;;;!! ;; (- end-column begin-column) 1)))))))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1397 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1398 ;;;!! ;;(defun mouse-erase-box () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1399 ;;;!! ;; (interactive) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1400 ;;;!! ;; (if last-line-drawn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1401 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1402 ;;;!! ;; (x-erase-rectangle (selected-screen)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1403 ;;;!! ;; (setq last-line-drawn nil)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1404 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1405 ;;;!! ;;; (defun test-x-rectangle () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1406 ;;;!! ;;; (use-local-mouse-map (setq rectangle-test-map (make-sparse-keymap))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1407 ;;;!! ;;; (define-key rectangle-test-map mouse-motion-button-left 'mouse-boxing) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1408 ;;;!! ;;; (define-key rectangle-test-map mouse-button-left-up 'mouse-erase-box)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1409 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1410 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1411 ;;;!! ;; Here is how to do double clicking in lisp. About to change. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1412 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1413 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1414 ;;;!! (defvar double-start nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1415 ;;;!! (defconst double-click-interval 300 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1416 ;;;!! "Max ticks between clicks") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1417 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1418 ;;;!! (defun double-down (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1419 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1420 ;;;!! (if double-start |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1421 ;;;!! (let ((interval (- (nth 4 event) double-start))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1422 ;;;!! (if (< interval double-click-interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1423 ;;;!! (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1424 ;;;!! (backward-up-list 1) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1425 ;;;!! ;; (message "Interval %d" interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1426 ;;;!! (sleep-for 1))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1427 ;;;!! (setq double-start nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1428 ;;;!! (setq double-start (nth 4 event)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1429 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1430 ;;;!! (defun double-up (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1431 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1432 ;;;!! (and double-start |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1433 ;;;!! (> (- (nth 4 event ) double-start) double-click-interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1434 ;;;!! (setq double-start nil))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1435 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1436 ;;;!! ;;; (defun x-test-doubleclick () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1437 ;;;!! ;;; (use-local-mouse-map (setq doubleclick-test-map (make-sparse-keymap))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1438 ;;;!! ;;; (define-key doubleclick-test-map mouse-button-left 'double-down) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1439 ;;;!! ;;; (define-key doubleclick-test-map mouse-button-left-up 'double-up)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1440 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1441 ;;;!! ;; |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1442 ;;;!! ;; This scrolls while button is depressed. Use preferable in scroll bar. |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1443 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1444 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1445 ;;;!! (defvar scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1446 ;;;!! (defconst scroll-speed 1) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1447 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1448 ;;;!! (defun incr-scroll-down (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1449 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1450 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1451 ;;;!! (incremental-scroll scroll-speed)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1452 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1453 ;;;!! (defun incr-scroll-up (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1454 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1455 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1456 ;;;!! (incremental-scroll (- scroll-speed))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1457 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1458 ;;;!! (defun incremental-scroll (n) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1459 ;;;!! (while (= (x-mouse-events) 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1460 ;;;!! (setq scrolled-lines (1+ (* scroll-speed scrolled-lines))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1461 ;;;!! (scroll-down n) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1462 ;;;!! (sit-for 300 t))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1463 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1464 ;;;!! (defun incr-scroll-stop (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1465 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1466 ;;;!! (message "Scrolled %d lines" scrolled-lines) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1467 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1468 ;;;!! (sleep-for 1)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1469 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1470 ;;;!! ;;; (defun x-testing-scroll () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1471 ;;;!! ;;; (let ((scrolling-map (function mouse-vertical-scroll-bar-prefix))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1472 ;;;!! ;;; (define-key scrolling-map mouse-button-left 'incr-scroll-down) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1473 ;;;!! ;;; (define-key scrolling-map mouse-button-right 'incr-scroll-up) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1474 ;;;!! ;;; (define-key scrolling-map mouse-button-left-up 'incr-scroll-stop) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1475 ;;;!! ;;; (define-key scrolling-map mouse-button-right-up 'incr-scroll-stop))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1476 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1477 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1478 ;;;!! ;; Some playthings suitable for picture mode? They need work. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1479 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1480 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1481 ;;;!! (defun mouse-kill-rectangle (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1482 ;;;!! "Kill the rectangle between point and the mouse cursor." |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1483 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1484 ;;;!! (let ((point-save (point))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1485 ;;;!! (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1486 ;;;!! (mouse-set-point event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1487 ;;;!! (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1488 ;;;!! (if (> point-save (point)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1489 ;;;!! (kill-rectangle (point) point-save) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1490 ;;;!! (kill-rectangle point-save (point)))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1491 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1492 ;;;!! (defun mouse-open-rectangle (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1493 ;;;!! "Kill the rectangle between point and the mouse cursor." |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1494 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1495 ;;;!! (let ((point-save (point))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1496 ;;;!! (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1497 ;;;!! (mouse-set-point event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1498 ;;;!! (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1499 ;;;!! (if (> point-save (point)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1500 ;;;!! (open-rectangle (point) point-save) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1501 ;;;!! (open-rectangle point-save (point)))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1502 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1503 ;;;!! ;; Must be a better way to do this. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1504 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1505 ;;;!! (defun mouse-multiple-insert (n char) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1506 ;;;!! (while (> n 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1507 ;;;!! (insert char) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1508 ;;;!! (setq n (1- n)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1509 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1510 ;;;!! ;; What this could do is not finalize until button was released. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1511 ;;;!! |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1512 ;;;!! (defun mouse-move-text (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1513 ;;;!! "Move text from point to cursor position, inserting spaces." |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1514 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1515 ;;;!! (let* ((relative-coordinate |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1516 ;;;!! (coordinates-in-window-p (car event) (selected-window)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1517 ;;;!! (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1518 ;;;!! (cond ((> (current-column) (car relative-coordinate)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1519 ;;;!! (delete-char |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1520 ;;;!! (- (car relative-coordinate) (current-column)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1521 ;;;!! ((< (current-column) (car relative-coordinate)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1522 ;;;!! (mouse-multiple-insert |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1523 ;;;!! (- (car relative-coordinate) (current-column)) " ")) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1524 ;;;!! ((= (current-column) (car relative-coordinate)) (ding)))))) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1525 |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1526 ;; Choose a completion with the mouse. |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1527 |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1528 (defun mouse-choose-completion (event) |
4371
fb0e37e7afae
(mouse-choose-completion): Actually choose that alternative,
Richard M. Stallman <rms@gnu.org>
parents:
4294
diff
changeset
|
1529 "Click on an alternative in the `*Completions*' buffer to choose it." |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1530 (interactive "e") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1531 ;; Give temporary modes such as isearch a chance to turn off. |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1532 (run-hooks 'mouse-leave-buffer-hook) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1533 (let ((buffer (window-buffer)) |
8477
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
1534 choice |
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
1535 base-size) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1536 (save-excursion |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1537 (set-buffer (window-buffer (posn-window (event-start event)))) |
6163
f349bcb0ff59
(mouse-choose-completion): Use that as the buffer to edit.
Richard M. Stallman <rms@gnu.org>
parents:
6090
diff
changeset
|
1538 (if completion-reference-buffer |
f349bcb0ff59
(mouse-choose-completion): Use that as the buffer to edit.
Richard M. Stallman <rms@gnu.org>
parents:
6090
diff
changeset
|
1539 (setq buffer completion-reference-buffer)) |
8477
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
1540 (setq base-size completion-base-size) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1541 (save-excursion |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1542 (goto-char (posn-point (event-start event))) |
7593
a837cfdcf7c0
(mouse-choose-completion):
Richard M. Stallman <rms@gnu.org>
parents:
7588
diff
changeset
|
1543 (let (beg end) |
8204
f5c8a4e8c4a5
(mouse-choose-completion): Use mouse-face properties to find string to use.
Richard M. Stallman <rms@gnu.org>
parents:
8200
diff
changeset
|
1544 (if (and (not (eobp)) (get-text-property (point) 'mouse-face)) |
f5c8a4e8c4a5
(mouse-choose-completion): Use mouse-face properties to find string to use.
Richard M. Stallman <rms@gnu.org>
parents:
8200
diff
changeset
|
1545 (setq end (point) beg (1+ (point)))) |
f5c8a4e8c4a5
(mouse-choose-completion): Use mouse-face properties to find string to use.
Richard M. Stallman <rms@gnu.org>
parents:
8200
diff
changeset
|
1546 (if (null beg) |
f5c8a4e8c4a5
(mouse-choose-completion): Use mouse-face properties to find string to use.
Richard M. Stallman <rms@gnu.org>
parents:
8200
diff
changeset
|
1547 (error "No completion here")) |
f5c8a4e8c4a5
(mouse-choose-completion): Use mouse-face properties to find string to use.
Richard M. Stallman <rms@gnu.org>
parents:
8200
diff
changeset
|
1548 (setq beg (previous-single-property-change beg 'mouse-face)) |
8381
9d751556d1c7
(mouse-choose-completion): Check for next-single-property-change
Richard M. Stallman <rms@gnu.org>
parents:
8268
diff
changeset
|
1549 (setq end (or (next-single-property-change end 'mouse-face) |
9d751556d1c7
(mouse-choose-completion): Check for next-single-property-change
Richard M. Stallman <rms@gnu.org>
parents:
8268
diff
changeset
|
1550 (point-max))) |
7593
a837cfdcf7c0
(mouse-choose-completion):
Richard M. Stallman <rms@gnu.org>
parents:
7588
diff
changeset
|
1551 (setq choice (buffer-substring beg end))))) |
6231
c2bb4c368553
(mouse-choose-completion): Bury the completion buffer.
Richard M. Stallman <rms@gnu.org>
parents:
6163
diff
changeset
|
1552 (let ((owindow (selected-window))) |
c2bb4c368553
(mouse-choose-completion): Bury the completion buffer.
Richard M. Stallman <rms@gnu.org>
parents:
6163
diff
changeset
|
1553 (select-window (posn-window (event-start event))) |
7794
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1554 (if (and (one-window-p t 'selected-frame) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1555 (window-dedicated-p (selected-window))) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1556 ;; This is a special buffer's frame |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1557 (iconify-frame (selected-frame)) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1558 (or (window-dedicated-p (selected-window)) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
1559 (bury-buffer))) |
6231
c2bb4c368553
(mouse-choose-completion): Bury the completion buffer.
Richard M. Stallman <rms@gnu.org>
parents:
6163
diff
changeset
|
1560 (select-window owindow)) |
8477
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
1561 (choose-completion-string choice buffer base-size))) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
1562 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1563 ;; Font selection. |
465 | 1564 |
4294
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1565 (defun font-menu-add-default () |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1566 (let* ((default (cdr (assq 'font (frame-parameters (selected-frame))))) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1567 (font-alist x-fixed-font-alist) |
4563
b9118969ce28
(font-menu-add-default): Use list, not cons, for new elt.
Richard M. Stallman <rms@gnu.org>
parents:
4562
diff
changeset
|
1568 (elt (or (assoc "Misc" font-alist) (nth 1 font-alist)))) |
4294
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1569 (if (assoc "Default" elt) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1570 (delete (assoc "Default" elt) elt)) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1571 (setcdr elt |
4562
477fbf60722b
(font-menu-add-default): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
4554
diff
changeset
|
1572 (cons (list "Default" |
4294
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1573 (cdr (assq 'font (frame-parameters (selected-frame))))) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1574 (cdr elt))))) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
1575 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1576 (defvar x-fixed-font-alist |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1577 '("Font menu" |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1578 ("Misc" |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1579 ;; For these, we specify the pixel height and width. |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1580 ("fixed" "fixed") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1581 ("6x10" "-misc-fixed-medium-r-normal--10-*-*-*-c-60-iso8859-1" "6x10") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1582 ("6x12" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1583 "-misc-fixed-medium-r-semicondensed--12-*-*-*-c-60-iso8859-1" "6x12") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1584 ("6x13" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1585 "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-60-iso8859-1" "6x13") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1586 ("7x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-70-iso8859-1" "7x13") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1587 ("7x14" "-misc-fixed-medium-r-normal--14-*-*-*-c-70-iso8859-1" "7x14") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1588 ("8x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-80-iso8859-1" "8x13") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1589 ("9x15" "-misc-fixed-medium-r-normal--15-*-*-*-c-90-iso8859-1" "9x15") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1590 ("10x20" "-misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1" "10x20") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1591 ("11x18" "-misc-fixed-medium-r-normal--18-*-*-*-c-110-iso8859-1" "11x18") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1592 ("12x24" "-misc-fixed-medium-r-normal--24-*-*-*-c-120-iso8859-1" "12x24") |
4274
6e46ab2ea271
(x-fixed-font-alist): Give some fonts long patterns.
Richard M. Stallman <rms@gnu.org>
parents:
4221
diff
changeset
|
1593 ("") |
8487
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
1594 ("clean 5x8" |
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
1595 "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1") |
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
1596 ("clean 6x8" |
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
1597 "-schumacher-clean-medium-r-normal--8-*-*-*-c-60-iso8859-1") |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1598 ("clean 8x8" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1599 "-schumacher-clean-medium-r-normal--8-*-*-*-c-80-iso8859-1") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1600 ("clean 8x10" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1601 "-schumacher-clean-medium-r-normal--10-*-*-*-c-80-iso8859-1") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1602 ("clean 8x14" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1603 "-schumacher-clean-medium-r-normal--14-*-*-*-c-80-iso8859-1") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1604 ("clean 8x16" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1605 "-schumacher-clean-medium-r-normal--16-*-*-*-c-80-iso8859-1") |
4274
6e46ab2ea271
(x-fixed-font-alist): Give some fonts long patterns.
Richard M. Stallman <rms@gnu.org>
parents:
4221
diff
changeset
|
1606 ("") |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1607 ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1")) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1608 ;;; We don't seem to have these; who knows what they are. |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1609 ;;; ("fg-18" "fg-18") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1610 ;;; ("fg-25" "fg-25") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1611 ;;; ("lucidasanstypewriter-12" "lucidasanstypewriter-12") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1612 ;;; ("lucidasanstypewriter-bold-14" "lucidasanstypewriter-bold-14") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1613 ;;; ("lucidasanstypewriter-bold-24" "lucidasanstypewriter-bold-24") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1614 ;;; ("lucidatypewriter-bold-r-24" "-b&h-lucidatypewriter-bold-r-normal-sans-24-240-75-75-m-140-iso8859-1") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1615 ;;; ("fixed-medium-20" "-misc-fixed-medium-*-*-*-20-*-*-*-*-*-*-*") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1616 ("Courier" |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
1617 ;; For these, we specify the point height. |
3231
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1618 ("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1619 ("10" "-adobe-courier-medium-r-normal--*-100-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1620 ("12" "-adobe-courier-medium-r-normal--*-120-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1621 ("14" "-adobe-courier-medium-r-normal--*-140-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1622 ("18" "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1623 ("24" "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1624 ("8 bold" "-adobe-courier-bold-r-normal--*-80-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1625 ("10 bold" "-adobe-courier-bold-r-normal--*-100-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1626 ("12 bold" "-adobe-courier-bold-r-normal--*-120-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1627 ("14 bold" "-adobe-courier-bold-r-normal--*-140-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1628 ("18 bold" "-adobe-courier-bold-r-normal--*-180-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1629 ("24 bold" "-adobe-courier-bold-r-normal--*-240-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1630 ("8 slant" "-adobe-courier-medium-o-normal--*-80-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1631 ("10 slant" "-adobe-courier-medium-o-normal--*-100-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1632 ("12 slant" "-adobe-courier-medium-o-normal--*-120-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1633 ("14 slant" "-adobe-courier-medium-o-normal--*-140-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1634 ("18 slant" "-adobe-courier-medium-o-normal--*-180-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1635 ("24 slant" "-adobe-courier-medium-o-normal--*-240-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1636 ("8 bold slant" "-adobe-courier-bold-o-normal--*-80-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1637 ("10 bold slant" "-adobe-courier-bold-o-normal--*-100-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1638 ("12 bold slant" "-adobe-courier-bold-o-normal--*-120-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1639 ("14 bold slant" "-adobe-courier-bold-o-normal--*-140-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1640 ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1") |
fb322590dda0
(x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents:
3119
diff
changeset
|
1641 ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1")) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1642 ) |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1643 "X fonts suitable for use in Emacs.") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1644 |
6867
0f4c8109274a
(x-fixed-font-alist): Give multiple names for try for certain fonts.
Richard M. Stallman <rms@gnu.org>
parents:
6548
diff
changeset
|
1645 (defun mouse-set-font (&rest fonts) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1646 "Select an emacs font from a list of known good fonts" |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1647 (interactive |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1648 (x-popup-menu last-nonmenu-event x-fixed-font-alist)) |
6914
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1649 (if fonts |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1650 (let (font) |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1651 (while fonts |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1652 (condition-case nil |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1653 (progn |
7021
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
1654 (set-default-font (car fonts)) |
6914
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1655 (setq font (car fonts)) |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1656 (setq fonts nil)) |
7021
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
1657 (error |
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
1658 (setq fonts (cdr fonts))))) |
6914
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
1659 (if (null font) |
7021
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
1660 (error "Font not found"))))) |
465 | 1661 |
1662 ;;; Bindings for mouse commands. | |
1663 | |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
1664 (define-key global-map [down-mouse-1] 'mouse-drag-region) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1665 (global-set-key [mouse-1] 'mouse-set-point) |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
1666 (global-set-key [drag-mouse-1] 'mouse-set-region) |
1057
d9775f33488d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1056
diff
changeset
|
1667 |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
1668 ;; These are tested for in mouse-drag-region. |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
1669 (global-set-key [double-mouse-1] 'mouse-set-point) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
1670 (global-set-key [triple-mouse-1] 'mouse-set-point) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
1671 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1672 (global-set-key [mouse-2] 'mouse-yank-at-click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1673 (global-set-key [mouse-3] 'mouse-save-then-kill) |
705 | 1674 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1675 ;; By binding these to down-going events, we let the user use the up-going |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1676 ;; event to make the selection, saving a click. |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
1677 (global-set-key [C-down-mouse-1] 'mouse-buffer-menu) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
1678 (if (not (eq system-type 'ms-dos)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
1679 (global-set-key [S-down-mouse-1] 'mouse-set-font)) |
9753
00144934b449
Put mouse-set-font on C-down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1680 ;; C-down-mouse-2 is bound in facemenu.el. |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
1681 (global-set-key [C-down-mouse-3] 'mouse-major-mode-menu) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
1682 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
1683 |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1684 ;; Replaced with dragging mouse-1 |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1685 ;; (global-set-key [S-mouse-1] 'mouse-set-mark) |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
1686 |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
1687 (global-set-key [mode-line mouse-1] 'mouse-select-window) |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
1688 (global-set-key [mode-line drag-mouse-1] 'mouse-select-window) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
1689 (global-set-key [mode-line down-mouse-1] 'mouse-drag-mode-line) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
1690 (global-set-key [mode-line mouse-2] 'mouse-delete-other-windows) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1691 (global-set-key [mode-line mouse-3] 'mouse-delete-window) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
1692 (global-set-key [mode-line C-mouse-2] 'mouse-split-window-horizontally) |
8174
0c7bcd40a21e
([vertical-scroll-bar C-mouse-2]): Split the window.
Richard M. Stallman <rms@gnu.org>
parents:
8135
diff
changeset
|
1693 (global-set-key [vertical-scroll-bar C-mouse-2] 'mouse-split-window-vertically) |
8268
3ff0307b8c0d
([vertical-line C-mouse-2]): Bind it as in a scroll bar.
Richard M. Stallman <rms@gnu.org>
parents:
8255
diff
changeset
|
1694 (global-set-key [vertical-line C-mouse-2] 'mouse-split-window-vertically) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
1695 (global-set-key [vertical-line down-mouse-1] 'mouse-drag-vertical-line) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
1696 (global-set-key [vertical-line mouse-1] 'mouse-select-window) |
584 | 1697 |
1698 (provide 'mouse) | |
1699 | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
1700 ;;; mouse.el ends here |