Mercurial > emacs
annotate lisp/mouse.el @ 42843:49c29a684355
Describe global-hl-line-mode.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 20 Jan 2002 09:27:57 +0000 |
parents | 7ec99458ed2e |
children | 0897162acd41 |
rev | line source |
---|---|
13337 | 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 |
37741
7b449aec29d2
(mouse-delete-other-windows): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
36134
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001 |
7b449aec29d2
(mouse-delete-other-windows): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
36134
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
791
diff
changeset
|
5 |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
6 ;; Maintainer: FSF |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
7 ;; Keywords: hardware, mouse |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
758
diff
changeset
|
8 |
13337 | 9 ;; This file is part of GNU Emacs. |
66 | 10 |
13337 | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
66 | 15 |
13337 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
66 | 20 |
13337 | 21 ;; You should have received a copy of the GNU General Public License |
14179
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
24 ;; Boston, MA 02111-1307, USA. |
66 | 25 |
2308
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
26 ;;; Commentary: |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
27 |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
28 ;; 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
|
29 ;; 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
|
30 ;; 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
|
31 ;; |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
32 ;; The code is rather X-dependent. |
f287613dfc28
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
33 |
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2070
diff
changeset
|
34 ;;; Code: |
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2070
diff
changeset
|
35 |
465 | 36 ;;; Utility functions. |
37 | |
38 ;;; Indent track-mouse like progn. | |
39 (put 'track-mouse 'lisp-indent-function 0) | |
66 | 40 |
17636 | 41 (defcustom mouse-yank-at-point nil |
42 "*If non-nil, mouse yank commands yank at point instead of at click." | |
43 :type 'boolean | |
44 :group 'mouse) | |
465 | 45 |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
46 ;; 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
|
47 |
30312
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
48 (defun popup-menu (menu &optional position prefix) |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
49 "Popup the given menu and call the selected option. |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
50 MENU can be a keymap, an easymenu-style menu or a list of keymaps as for |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
51 `x-popup-menu'. |
30312
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
52 POSITION can be a click event or ((XOFFSET YOFFSET) WINDOW) and defaults to |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
53 the current mouse position. |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
54 PREFIX is the prefix argument (if any) to pass to the command." |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
55 (let* ((map (cond |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
56 ((keymapp menu) menu) |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
57 ((and (listp menu) (keymapp (car menu))) menu) |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
58 (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu))) |
33769
7596dea75d6b
(popup-menu): Stupid typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32327
diff
changeset
|
59 (filter (when (symbolp map) |
7596dea75d6b
(popup-menu): Stupid typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32327
diff
changeset
|
60 (plist-get (get map 'menu-prop) :filter)))) |
7596dea75d6b
(popup-menu): Stupid typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32327
diff
changeset
|
61 (if filter (funcall filter (symbol-function map)) map))))) |
32312
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
62 event cmd) |
31912
83fe15f82f7e
(popup-menu): If POSITION is nil, set it using
Dave Love <fx@gnu.org>
parents:
31390
diff
changeset
|
63 (unless position |
31923 | 64 (let ((mp (mouse-pixel-position))) |
31912
83fe15f82f7e
(popup-menu): If POSITION is nil, set it using
Dave Love <fx@gnu.org>
parents:
31390
diff
changeset
|
65 (setq position (list (list (cadr mp) (cddr mp)) (car mp))))) |
30312
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
66 ;; The looping behavior was taken from lmenu's popup-menu-popup |
30421
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
67 (while (and map (setq event |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
68 ;; map could be a prefix key, in which case |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
69 ;; we need to get its function cell |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
70 ;; definition. |
31923 | 71 (x-popup-menu position (indirect-function map)))) |
30312
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
72 ;; Strangely x-popup-menu returns a list. |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
73 ;; mouse-major-mode-menu was using a weird: |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
74 ;; (key-binding (apply 'vector (append '(menu-bar) menu-prefix events))) |
32312
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
75 (setq cmd |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
76 (if (and (not (keymapp map)) (listp map)) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
77 ;; We were given a list of keymaps. Search them all |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
78 ;; in sequence until a first binding is found. |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
79 (let ((mouse-click (apply 'vector event)) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
80 binding) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
81 (while (and map (null binding)) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
82 (setq binding (lookup-key (car map) mouse-click)) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
83 (if (numberp binding) ; `too long' |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
84 (setq binding nil)) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
85 (setq map (cdr map))) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
86 binding) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
87 ;; We were given a single keymap. |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
88 (lookup-key map (apply 'vector event)))) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
89 ;; Clear out echoing, which perhaps shows a prefix arg. |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
90 (message "") |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
91 ;; Maybe try again but with the submap. |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
92 (setq map (if (keymapp cmd) cmd))) |
40648
a48a4d0806b4
(popup-menu): If the user refuses to select
Richard M. Stallman <rms@gnu.org>
parents:
40379
diff
changeset
|
93 ;; If the user did not cancel by refusing to select, |
a48a4d0806b4
(popup-menu): If the user refuses to select
Richard M. Stallman <rms@gnu.org>
parents:
40379
diff
changeset
|
94 ;; and if the result is a command, run it. |
a48a4d0806b4
(popup-menu): If the user refuses to select
Richard M. Stallman <rms@gnu.org>
parents:
40379
diff
changeset
|
95 (when (and (null map) (commandp cmd)) |
32312
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
96 (setq prefix-arg prefix) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
97 ;; `setup-specified-language-environment', for instance, |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
98 ;; expects this to be set from a menu keymap. |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
99 (setq last-command-event (car (last event))) |
b95ac47063ce
(popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32269
diff
changeset
|
100 ;; mouse-major-mode-menu was using `command-execute' instead. |
32319
452e7cc818ac
(popup-menu): Balance parens.
Miles Bader <miles@gnu.org>
parents:
32312
diff
changeset
|
101 (call-interactively cmd)))) |
30425
ad577e2e48d3
(popup-menu): Set last-command-event.
Dave Love <fx@gnu.org>
parents:
30421
diff
changeset
|
102 |
ad577e2e48d3
(popup-menu): Set last-command-event.
Dave Love <fx@gnu.org>
parents:
30421
diff
changeset
|
103 (defvar mouse-major-mode-menu-prefix) ; dynamically bound |
ad577e2e48d3
(popup-menu): Set last-command-event.
Dave Love <fx@gnu.org>
parents:
30421
diff
changeset
|
104 |
16621
042bf1d82a14
(mouse-major-mode-menu): Propagate prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
16590
diff
changeset
|
105 (defun mouse-major-mode-menu (event prefix) |
24960
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
106 "Pop up a mode-specific menu of mouse commands. |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
107 Default to the Edit menu if the major mode doesn't define a menu." |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
108 ;; 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
|
109 ;; the mode's commands may not make sense. |
16621
042bf1d82a14
(mouse-major-mode-menu): Propagate prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
16590
diff
changeset
|
110 (interactive "@e\nP") |
21953
6655c426d447
(mouse-major-mode-menu): Run activate-menubar-hook here.
Richard M. Stallman <rms@gnu.org>
parents:
21685
diff
changeset
|
111 ;; Let the mode update its menus first. |
31390
cf8964e1d7e3
(mouse-major-mode-menu, mouse-popup-menubar): Run
Dave Love <fx@gnu.org>
parents:
31329
diff
changeset
|
112 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) |
24960
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
113 (let* (;; This is where mouse-major-mode-menu-prefix |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
114 ;; returns the prefix we should use (after menu-bar). |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
115 ;; It is either nil or (SOME-SYMBOL). |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
116 (mouse-major-mode-menu-prefix nil) |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
117 ;; Keymap from which to inherit; may be null. |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
118 (ancestor (mouse-major-mode-menu-1 |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
119 (and (current-local-map) |
31258
12f2e341ee9c
(mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents:
30425
diff
changeset
|
120 (local-key-binding [menu-bar])))) |
24960
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
121 ;; Make a keymap in which our last command leads to a menu or |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
122 ;; default to the edit menu. |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
123 (newmap (if ancestor |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
124 (make-sparse-keymap (concat mode-name " Mode")) |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
125 menu-bar-edit-menu)) |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
126 result) |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
127 (if ancestor |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
128 ;; Make our menu inherit from the desired keymap which we want |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
129 ;; to display as the menu now. |
00d2eba70774
(mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents:
23854
diff
changeset
|
130 (set-keymap-parent newmap ancestor)) |
30312
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
131 (popup-menu newmap event prefix))) |
a97801b43475
(popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30249
diff
changeset
|
132 |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
133 |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
134 ;; Compute and cache the equivalent keys in MENU and all its submenus. |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
135 ;;;(defun mouse-major-mode-menu-compute-equiv-keys (menu) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
136 ;;; (and (eq (car menu) 'keymap) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
137 ;;; (x-popup-menu nil menu)) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
138 ;;; (while menu |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
139 ;;; (and (consp (car menu)) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
140 ;;; (consp (cdr (car menu))) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
141 ;;; (let ((tail (cdr (car menu)))) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
142 ;;; (while (and (consp tail) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
143 ;;; (not (eq (car tail) 'keymap))) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
144 ;;; (setq tail (cdr tail))) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
145 ;;; (if (consp tail) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
146 ;;; (mouse-major-mode-menu-compute-equiv-keys tail)))) |
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
147 ;;; (setq menu (cdr menu)))) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
148 |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
149 ;; 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
|
150 ;; 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
|
151 ;; return just that menu. |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
152 ;; 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
|
153 (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
|
154 (if menubar |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
155 (let ((tail menubar) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
156 submap) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
157 (while tail |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
158 (if (consp (car tail)) |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
159 (if submap |
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
160 (setq submap t) |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
161 (setq submap (car tail)))) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
162 (setq tail (cdr tail))) |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
163 (if (eq submap t) |
15657
6ad5994053af
(mouse-major-mode-menu-1): No need to copy the top
Karl Heuer <kwzh@gnu.org>
parents:
15642
diff
changeset
|
164 menubar |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
165 (setq mouse-major-mode-menu-prefix (list (car submap))) |
30249
fb30df0ff4ab
(mouse-major-mode-menu-1): get the submenu with lookup-key.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30122
diff
changeset
|
166 (lookup-key menubar (vector (car submap))))))) |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
167 |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
168 (defun mouse-popup-menubar (event prefix) |
42004 | 169 "Pops up a menu equivalent to the menu bar a keyboard EVENT with PREFIX. |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
170 The contents are the items that would be in the menu bar whether or |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
171 not it is actually displayed." |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
172 (interactive "@e \nP") |
31390
cf8964e1d7e3
(mouse-major-mode-menu, mouse-popup-menubar): Run
Dave Love <fx@gnu.org>
parents:
31329
diff
changeset
|
173 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) |
30421
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
174 (let* ((local-menu (and (current-local-map) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
175 (lookup-key (current-local-map) [menu-bar]))) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
176 (global-menu (lookup-key global-map [menu-bar])) |
31329
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
177 ;; If a keymap doesn't have a prompt string (a lazy |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
178 ;; programmer didn't bother to provide one), create it and |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
179 ;; insert it into the keymap; each keymap gets its own |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
180 ;; prompt. This is required for non-toolkit versions to |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
181 ;; display non-empty menu pane names. |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
182 (minor-mode-menus |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
183 (mapcar |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
184 (function |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
185 (lambda (menu) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
186 (let* ((minor-mode (car menu)) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
187 (menu (cdr menu)) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
188 (title-or-map (cadr menu))) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
189 (or (stringp title-or-map) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
190 (setq menu |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
191 (cons 'keymap |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
192 (cons (concat |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
193 (capitalize (subst-char-in-string |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
194 ?- ?\ (symbol-name |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
195 minor-mode))) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
196 " Menu") |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
197 (cdr menu))))) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
198 menu))) |
f329cce08485
(mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents:
31258
diff
changeset
|
199 (minor-mode-key-binding [menu-bar]))) |
30421
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
200 (local-title-or-map (and local-menu (cadr local-menu))) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
201 (global-title-or-map (cadr global-menu))) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
202 (or (null local-menu) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
203 (stringp local-title-or-map) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
204 (setq local-menu (cons 'keymap |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
205 (cons (concat mode-name " Mode Menu") |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
206 (cdr local-menu))))) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
207 (or (stringp global-title-or-map) |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
208 (setq global-menu (cons 'keymap |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
209 (cons "Global Menu" |
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
210 (cdr global-menu))))) |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
211 ;; Supplying the list is faster than making a new map. |
31258
12f2e341ee9c
(mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents:
30425
diff
changeset
|
212 (popup-menu (append (list global-menu) |
12f2e341ee9c
(mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents:
30425
diff
changeset
|
213 (if local-menu |
12f2e341ee9c
(mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents:
30425
diff
changeset
|
214 (list local-menu)) |
12f2e341ee9c
(mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents:
30425
diff
changeset
|
215 minor-mode-menus) |
30421
544a9b8ebb8d
(popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents:
30328
diff
changeset
|
216 event prefix))) |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
217 |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
218 (defun mouse-popup-menubar-stuff (event prefix) |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
219 "Popup a menu like either `mouse-major-mode-menu' or `mouse-popup-menubar'. |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
220 Use the former if the menu bar is showing, otherwise the latter." |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
221 (interactive "@e \nP") |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
222 (if (zerop (assoc-default 'menu-bar-lines (frame-parameters) 'eq 0)) |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
223 (mouse-popup-menubar event prefix) |
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
224 (mouse-major-mode-menu event prefix))) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
225 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
226 ;; 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
|
227 |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
228 (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
|
229 (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
|
230 (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
|
231 (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
|
232 (error "Minibuffer window is not active"))) |
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
233 ;; 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
|
234 (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
|
235 |
465 | 236 (defun mouse-delete-window (click) |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
237 "Delete the window you click on. |
38763
3cf8f8ea6d0e
(mouse-delete-window): Do nothing if frame has just
Gerd Moellmann <gerd@gnu.org>
parents:
37741
diff
changeset
|
238 Do nothing if the frame has just one window. |
22845
bd706438b50c
(mouse-delete-window): If the frame has just one window,
Richard M. Stallman <rms@gnu.org>
parents:
21953
diff
changeset
|
239 This command must be bound to a mouse click." |
1113 | 240 (interactive "e") |
38763
3cf8f8ea6d0e
(mouse-delete-window): Do nothing if frame has just
Gerd Moellmann <gerd@gnu.org>
parents:
37741
diff
changeset
|
241 (unless (one-window-p t) |
22845
bd706438b50c
(mouse-delete-window): If the frame has just one window,
Richard M. Stallman <rms@gnu.org>
parents:
21953
diff
changeset
|
242 (mouse-minibuffer-check click) |
bd706438b50c
(mouse-delete-window): If the frame has just one window,
Richard M. Stallman <rms@gnu.org>
parents:
21953
diff
changeset
|
243 (delete-window (posn-window (event-start click))))) |
465 | 244 |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
245 (defun mouse-select-window (click) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
246 "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
|
247 (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
|
248 (mouse-minibuffer-check click) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
249 (let ((oframe (selected-frame)) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
250 (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
|
251 (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
|
252 (raise-frame frame) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
253 (select-frame frame) |
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
254 (or (eq frame oframe) |
16087
26b552f014ff
(mouse-select-window): Don't call unfocus-frame.
Richard M. Stallman <rms@gnu.org>
parents:
16016
diff
changeset
|
255 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
256 |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
257 (defun mouse-tear-off-window (click) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
258 "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
|
259 (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
|
260 (mouse-minibuffer-check click) |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
261 (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
|
262 (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
|
263 (frame (make-frame))) |
1421
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
264 (select-frame frame) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
265 (switch-to-buffer buf) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
266 (delete-window window))) |
a8378792a31d
* mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents:
1420
diff
changeset
|
267 |
1363
f34d8e4d1d7b
* mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents:
1214
diff
changeset
|
268 (defun mouse-delete-other-windows () |
37741
7b449aec29d2
(mouse-delete-other-windows): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
36134
diff
changeset
|
269 "Delete all windows 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
|
270 (interactive "@") |
66 | 271 (delete-other-windows)) |
272 | |
465 | 273 (defun mouse-split-window-vertically (click) |
274 "Select Emacs window mouse is on, then split it vertically in half. | |
275 The window is split at the line clicked on. | |
276 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
|
277 (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
|
278 (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
|
279 (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
|
280 (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
|
281 (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
|
282 (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
|
283 (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
|
284 (if (< last-line first-line) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
285 (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
|
286 (split-window-vertically |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
287 (min (max new-height first-line) last-line)))))) |
66 | 288 |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
289 (defun mouse-split-window-horizontally (click) |
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
290 "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
|
291 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
|
292 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
|
293 (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
|
294 (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
|
295 (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
|
296 (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
|
297 (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
|
298 (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
|
299 (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
|
300 (if (< last-col first-col) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
301 (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
|
302 (split-window-horizontally |
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
303 (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
|
304 |
42399
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
305 (defun mouse-drag-window-above (window) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
306 "Return the (or a) window directly above WINDOW. |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
307 That means one whose bottom edge is at the same height as WINDOW's top edge." |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
308 (let ((top (nth 1 (window-edges window))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
309 (start-window window) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
310 above-window) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
311 (setq window (previous-window window 0)) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
312 (while (and (not above-window) (not (eq window start-window))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
313 (if (= (+ (window-height window) (nth 1 (window-edges window))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
314 top) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
315 (setq above-window window)) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
316 (setq window (previous-window window))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
317 above-window)) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
318 |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
319 (defun mouse-drag-move-window-bottom (window growth) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
320 "Move the bottom of WINDOW up or down by GROWTH lines. |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
321 Move it down if GROWTH is positive, or up if GROWTH is negative. |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
322 If this would make WINDOW too short, |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
323 shrink the window or windows above it to make room." |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
324 (let ((excess (- window-min-height (+ (window-height window) growth)))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
325 ;; EXCESS is the number of lines we need to take from windows above. |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
326 (if (> excess 0) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
327 ;; This can recursively shrink windows all the way up. |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
328 (let ((window-above (mouse-drag-window-above window))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
329 (if window-above |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
330 (mouse-drag-move-window-bottom window-above (- excess)))))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
331 (save-selected-window |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
332 (select-window window) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
333 (enlarge-window growth nil (> growth 0)))) |
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
334 |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
335 (defun mouse-drag-mode-line-1 (start-event mode-line-p) |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
336 "Change the height of a window by dragging on the mode or header line. |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
337 START-EVENT is the starting mouse-event of the drag action. |
42399
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
338 MODE-LINE-P non-nil means dragging a mode line; nil means a header line." |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
339 ;; 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
|
340 (run-hooks 'mouse-leave-buffer-hook) |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
341 (let* ((done nil) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
342 (echo-keystrokes 0) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
343 (start (event-start start-event)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
344 (start-event-window (posn-window start)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
345 (start-event-frame (window-frame start-event-window)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
346 (start-nwindows (count-windows t)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
347 (old-selected-window (selected-window)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
348 (minibuffer (frame-parameter nil 'minibuffer)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
349 should-enlarge-minibuffer event mouse y top bot edges wconfig growth) |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
350 (track-mouse |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
351 (progn |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
352 ;; 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
|
353 ;; 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
|
354 ;; 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
|
355 (select-window start-event-window) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
356 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
357 ;; 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
|
358 ;; 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
|
359 (setq should-enlarge-minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
360 (and minibuffer |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
361 mode-line-p |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
362 (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
|
363 (= (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
|
364 (nth 3 (window-edges))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
365 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
366 ;; 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
|
367 ;; the mouse. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
368 (while (not done) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
369 (setq event (read-event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
370 mouse (mouse-position)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
371 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
372 ;; do nothing if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
373 ;; - 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
|
374 ;; - 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
|
375 ;; - 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
|
376 ;; drag if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
377 ;; - 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
|
378 ;; - 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
|
379 ;; (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
|
380 ;; quit if |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
381 ;; - 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
|
382 ;; unknown event. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
383 (cond ((integerp event) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
384 (setq done t)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
385 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
386 ((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
|
387 nil) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
388 |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
389 ((not (memq (car event) '(mouse-movement scroll-bar-movement))) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
390 (when (consp event) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
391 (push event unread-command-events)) |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
392 (setq done t)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
393 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
394 ((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
|
395 nil) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
396 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
397 ((null (car (cdr mouse))) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
398 nil) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
399 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
400 (t |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
401 (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
|
402 edges (window-edges) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
403 top (nth 1 edges) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
404 bot (nth 3 edges)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
405 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
406 ;; compute size change needed |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
407 (cond (mode-line-p |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
408 (setq growth (- y bot -1))) |
32269
5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
Eli Zaretskii <eliz@gnu.org>
parents:
32207
diff
changeset
|
409 (t ; header line |
5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
Eli Zaretskii <eliz@gnu.org>
parents:
32207
diff
changeset
|
410 (when (< (- bot y) window-min-height) |
5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
Eli Zaretskii <eliz@gnu.org>
parents:
32207
diff
changeset
|
411 (setq y (- bot window-min-height))) |
5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
Eli Zaretskii <eliz@gnu.org>
parents:
32207
diff
changeset
|
412 ;; The window's top includes the header line! |
5bccbf00889a
(mouse-drag-mode-line-1): Fix an off-by-one error in
Eli Zaretskii <eliz@gnu.org>
parents:
32207
diff
changeset
|
413 (setq growth (- top y)))) |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
414 (setq wconfig (current-window-configuration)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
415 |
16636
ba78d234fe6c
(mouse-drag-mode-line): Don't get error
Richard M. Stallman <rms@gnu.org>
parents:
16621
diff
changeset
|
416 ;; Check for an error case. |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
417 (when (and (/= growth 0) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
418 (not minibuffer) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
419 (one-window-p t)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
420 (error "Attempt to resize sole window")) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
421 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
422 ;; grow/shrink minibuffer? |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
423 (if should-enlarge-minibuffer |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
424 (progn |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
425 ;; 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
|
426 ;; 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
|
427 ;; correct window. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
428 (select-window minibuffer) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
429 ;; 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
|
430 ;; 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
|
431 ;; line tall. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
432 (if (and (> growth 0) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
433 (< (- (window-height minibuffer) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
434 growth) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
435 1)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
436 (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
|
437 (enlarge-window (- growth)) |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
438 (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
|
439 ;; no. grow/shrink the selected window |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
440 ;(message "growth = %d" growth) |
42399
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
441 (mouse-drag-move-window-bottom start-event-window growth)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
442 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
443 ;; 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
|
444 ;; 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
|
445 ;; short, rescind the change. |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
446 ;; |
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
447 ;; 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
|
448 ;; from a window above this one, rescind the |
30249
fb30df0ff4ab
(mouse-major-mode-menu-1): get the submenu with lookup-key.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30122
diff
changeset
|
449 ;; change, but only if we didn't grow/shrink |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
450 ;; 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
|
451 ;; 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
|
452 ;; around it. |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
453 (when (or (/= start-nwindows (count-windows t)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
454 (and (not should-enlarge-minibuffer) |
42399
92c21a38c096
(mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents:
42149
diff
changeset
|
455 (> growth 0) |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
456 mode-line-p |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
457 (/= top (nth 1 (window-edges))))) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
458 (set-window-configuration wconfig))))))))) |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
459 |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
460 (defun mouse-drag-mode-line (start-event) |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
461 "Change the height of a window by dragging on the mode line." |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
462 (interactive "e") |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
463 (mouse-drag-mode-line-1 start-event t)) |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
464 |
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
465 (defun mouse-drag-header-line (start-event) |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
466 "Change the height of a window by dragging on the header line. |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
467 Windows whose header-lines are at the top of the frame cannot be |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
468 resized by dragging their header-line." |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
469 (interactive "e") |
32207
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
470 ;; Changing the window's size by dragging its header-line when the |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
471 ;; header-line is at the top of the frame is somewhat strange, |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
472 ;; because the header-line doesn't move, so don't do it. |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
473 (let* ((start (event-start start-event)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
474 (window (posn-window start)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
475 (frame (window-frame window)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
476 (first-window (frame-first-window frame))) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
477 (when (or (eq window first-window) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
478 (= (nth 1 (window-edges window)) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
479 (nth 1 (window-edges first-window)))) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
480 (error "Cannot move header-line at the top of the frame")) |
03dee1b8a506
(mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents:
31923
diff
changeset
|
481 (mouse-drag-mode-line-1 start-event nil))) |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
482 |
8519
7802e26b3bfd
(mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents:
8487
diff
changeset
|
483 |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
484 (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
|
485 "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
|
486 (interactive "e") |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
487 ;; 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
|
488 (run-hooks 'mouse-leave-buffer-hook) |
20686
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
489 (let* ((done nil) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
490 (echo-keystrokes 0) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
491 (start-event-frame (window-frame (car (car (cdr start-event))))) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
492 (start-event-window (car (car (cdr start-event)))) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
493 (start-nwindows (count-windows t)) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
494 (old-selected-window (selected-window)) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
495 event mouse x left right edges wconfig growth |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
496 (which-side |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
497 (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame))) |
988d8082f292
(mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents:
20124
diff
changeset
|
498 'right))) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
499 (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
|
500 (error "Attempt to resize sole ordinary window")) |
23854 | 501 (if (eq which-side 'right) |
502 (if (= (nth 2 (window-edges start-event-window)) | |
503 (frame-width start-event-frame)) | |
504 (error "Attempt to drag rightmost scrollbar")) | |
505 (if (= (nth 0 (window-edges start-event-window)) 0) | |
506 (error "Attempt to drag leftmost scrollbar"))) | |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
507 (track-mouse |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
508 (progn |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
509 ;; 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
|
510 ;; 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
|
511 ;; 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
|
512 (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
|
513 ;; 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
|
514 ;; the mouse. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
515 (while (not done) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
516 (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
|
517 mouse (mouse-position)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
518 ;; do nothing if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
519 ;; - 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
|
520 ;; - 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
|
521 ;; - 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
|
522 ;; drag if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
523 ;; - 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
|
524 ;; - 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
|
525 ;; (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
|
526 ;; quit if |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
527 ;; - 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
|
528 ;; unknown event. |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
529 (cond ((integerp event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
530 (setq done t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
531 ((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
|
532 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
533 ((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
|
534 '(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
|
535 (if (consp event) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
536 (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
|
537 (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
|
538 (setq done t)) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
539 ((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
|
540 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
541 ((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
|
542 nil) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
543 (t |
20124
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
544 (save-selected-window |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
545 ;; If the scroll bar is on the window's left, |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
546 ;; adjust the window on the left. |
23854 | 547 (unless (eq which-side 'right) |
548 (select-window (previous-window))) | |
20124
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
549 (setq x (- (car (cdr mouse)) |
23854 | 550 (if (eq which-side 'right) 0 2)) |
20124
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
551 edges (window-edges) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
552 left (nth 0 edges) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
553 right (nth 2 edges)) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
554 ;; scale back a move that would make the |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
555 ;; window too thin. |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
556 (if (< (- x left -1) window-min-width) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
557 (setq x (+ left window-min-width -1))) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
558 ;; compute size change needed |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
559 (setq growth (- x right -1) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
560 wconfig (current-window-configuration)) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
561 (enlarge-window growth t) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
562 ;; if this window's growth caused another |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
563 ;; window to be deleted because it was too |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
564 ;; thin, rescind the change. |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
565 ;; |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
566 ;; if size change caused space to be stolen |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
567 ;; from a window to the left of this one, |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
568 ;; rescind the change. |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
569 (if (or (/= start-nwindows (count-windows t)) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
570 (/= left (nth 0 (window-edges)))) |
ecae234a33bb
(mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents:
18689
diff
changeset
|
571 (set-window-configuration wconfig)))))))))) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
572 |
4554
cf541ed1fed8
(mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents:
4532
diff
changeset
|
573 (defun mouse-set-point (event) |
465 | 574 "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
|
575 This should be bound to a mouse click event type." |
1113 | 576 (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
|
577 (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
|
578 ;; 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
|
579 ;; 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
|
580 (let ((posn (event-end event))) |
8426
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
581 (if (not (windowp (posn-window posn))) |
3abe02e03dc8
Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents:
8381
diff
changeset
|
582 (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
|
583 (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
|
584 (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
|
585 (goto-char (posn-point posn))))) |
66 | 586 |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
587 (defvar mouse-last-region-beg nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
588 (defvar mouse-last-region-end nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
589 (defvar mouse-last-region-tick nil) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
590 |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
591 (defun mouse-region-match () |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
592 "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
|
593 (and (mark t) mark-active |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
594 (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
|
595 (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
|
596 (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
|
597 |
1420
4005f73e5712
(mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents:
1363
diff
changeset
|
598 (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
|
599 "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
|
600 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
|
601 (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
|
602 (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
|
603 (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
|
604 (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
|
605 (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
|
606 (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
|
607 (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
|
608 ;; 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
|
609 ;; 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
|
610 (or transient-mark-mode |
16590
a0cfcb9f8033
Use w32 instead of ms-windows for window-system symbol
Geoff Voelker <voelker@cs.washington.edu>
parents:
16318
diff
changeset
|
611 (memq (framep (selected-frame)) '(x pc w32)) |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
612 (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
|
613 (push-mark) |
2802
02c75b605550
(mouse-set-region): Call set-mark to activate mark.
Richard M. Stallman <rms@gnu.org>
parents:
2799
diff
changeset
|
614 (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
|
615 (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
|
616 (goto-char (posn-point end))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
617 ;; 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
|
618 ;; 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
|
619 ;; Ignore last-command so we don't append to a preceding kill. |
21194
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
620 (let (this-command last-command deactivate-mark) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
621 (copy-region-as-kill (mark) (point))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
622 (mouse-set-region-1))) |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
623 |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
624 (defun mouse-set-region-1 () |
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
625 (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
|
626 (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
|
627 (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
|
628 |
17636 | 629 (defcustom mouse-scroll-delay 0.25 |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
630 "*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
|
631 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
|
632 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
|
633 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
|
634 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
|
635 This variable's value may be non-integral. |
17636 | 636 Setting this to zero causes Emacs to scroll as fast as it can." |
637 :type 'number | |
638 :group 'mouse) | |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
639 |
17636 | 640 (defcustom 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
|
641 "*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
|
642 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
|
643 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
|
644 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
|
645 the mouse has moved. However, it always scrolls at least the number |
17636 | 646 of lines specified by this variable." |
647 :type 'integer | |
648 :group 'mouse) | |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
649 |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
650 (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
|
651 "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
|
652 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
|
653 the newly visible text. |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
654 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
|
655 (cond |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
656 ((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
|
657 (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
|
658 ((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
|
659 (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
|
660 (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
|
661 (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
|
662 (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
|
663 (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
|
664 (progn |
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
665 (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
|
666 (if (natnump jump) |
21176
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
667 (if (window-end window) |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
668 (progn |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
669 (goto-char (window-end window)) |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
670 ;; window-end doesn't reflect the window's new |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
671 ;; start position until the next redisplay. |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
672 (vertical-motion (1- jump) window)) |
c42a2b3bbb21
(mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents:
21148
diff
changeset
|
673 (vertical-motion (- (window-height window) 2))) |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
674 (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
|
675 (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
|
676 (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
|
677 ;; 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
|
678 ;; 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
|
679 ;; 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
|
680 (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
|
681 (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
|
682 (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
|
683 (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
|
684 (goto-char opoint)))) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
685 |
11453
5ed0795c4155
Create mouse-drag-overlay as a dead overlay, instead
Karl Heuer <kwzh@gnu.org>
parents:
11235
diff
changeset
|
686 ;; 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
|
687 (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
|
688 (delete-overlay mouse-drag-overlay) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
689 (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
|
690 |
5027
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
691 (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
|
692 |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
693 (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
|
694 |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
695 (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
|
696 "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
|
697 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
|
698 This must be bound to a button-down mouse event. |
15116
a152ab5c09b0
(mouse-drag-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
15082
diff
changeset
|
699 In Transient Mark mode, the highlighting remains as long as the mark |
42806
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
700 remains active. Otherwise, it remains until the next input event. |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
701 |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
702 If the click is in the echo area, display the `*Messages*' buffer." |
3566
dc2b64ef30dc
(mouse-drag-region-1): Un-comment-out this function.
Richard M. Stallman <rms@gnu.org>
parents:
3420
diff
changeset
|
703 (interactive "e") |
42806
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
704 (let ((w (posn-window (event-start start-event)))) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
705 (if (not (or (not (window-minibuffer-p w)) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
706 (minibuffer-window-active-p w))) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
707 (save-excursion |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
708 (read-event) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
709 (set-buffer "*Messages*") |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
710 (goto-char (point-max)) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
711 (display-buffer (current-buffer))) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
712 ;; Give temporary modes such as isearch a chance to turn off. |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
713 (run-hooks 'mouse-leave-buffer-hook) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
714 (mouse-drag-region-1 start-event)))) |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
715 |
7ec99458ed2e
(mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents:
42399
diff
changeset
|
716 (defun mouse-drag-region-1 (start-event) |
6266
66c0ed95c03f
(mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents:
6231
diff
changeset
|
717 (mouse-minibuffer-check start-event) |
14179
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
718 (let* ((echo-keystrokes 0) |
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
719 (start-posn (event-start start-event)) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
720 (start-point (posn-point start-posn)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
721 (start-window (posn-window start-posn)) |
41034
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
722 (start-window-start (window-start start-window)) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
723 (start-frame (window-frame start-window)) |
28075
7421de9165d2
(mouse-drag-region): Don't run up-event handler
Gerd Moellmann <gerd@gnu.org>
parents:
27834
diff
changeset
|
724 (start-hscroll (window-hscroll start-window)) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
725 (bounds (window-edges start-window)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
726 (top (nth 1 bounds)) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
727 (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
|
728 (nth 3 bounds) |
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
729 ;; 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
|
730 (1- (nth 3 bounds)))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
731 (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
|
732 (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
|
733 (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
|
734 (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
|
735 ;; 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
|
736 ;; 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
|
737 (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
|
738 (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
|
739 (setq start-point (point)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
740 (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
|
741 (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
|
742 (window-buffer start-window))) |
4200
3f5f55401364
(mouse-drag-region): Use deactivate-mark.
Richard M. Stallman <rms@gnu.org>
parents:
4081
diff
changeset
|
743 (deactivate-mark) |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
744 ;; 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
|
745 ;; 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
|
746 ;; (but not outside the window where the drag started). |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
747 (let (event end end-point last-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
|
748 (track-mouse |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
749 (while (progn |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
750 (setq event (read-event)) |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
751 (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
|
752 (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
|
753 (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
|
754 nil |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
755 (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
|
756 end-point (posn-point end)) |
16304
ba59fb4dd237
(mouse-drag-region): Ignore event end-point if it is not a number.
Richard M. Stallman <rms@gnu.org>
parents:
16201
diff
changeset
|
757 (if (numberp end-point) |
15642
6a3622bb0f31
(mouse-drag-region): Cope if stop-point is nil.
Karl Heuer <kwzh@gnu.org>
parents:
15633
diff
changeset
|
758 (setq last-end-point end-point)) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
759 |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
760 (cond |
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
761 ;; 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
|
762 ((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
|
763 (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
|
764 ;; 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
|
765 ;; 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
|
766 ;; 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
|
767 (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
|
768 (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
|
769 (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
|
770 (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
|
771 (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
|
772 (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
|
773 |
6923
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
774 (t |
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
775 (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
|
776 (cond |
6923
5df81bebf7f7
(mouse-drag-region): Handle scroll off top/bottom.
Karl Heuer <kwzh@gnu.org>
parents:
6914
diff
changeset
|
777 ((null mouse-row)) |
3961
e828d5f28ca2
* mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents:
3928
diff
changeset
|
778 ((< mouse-row top) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
779 (mouse-scroll-subr start-window (- mouse-row top) |
13307
4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
Richard M. Stallman <rms@gnu.org>
parents:
13068
diff
changeset
|
780 mouse-drag-overlay start-point) |
4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
Richard M. Stallman <rms@gnu.org>
parents:
13068
diff
changeset
|
781 ;; Without this, point tends to jump back to the starting |
4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
Richard M. Stallman <rms@gnu.org>
parents:
13068
diff
changeset
|
782 ;; position where the mouse button was pressed down. |
4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
Richard M. Stallman <rms@gnu.org>
parents:
13068
diff
changeset
|
783 (setq end-of-range (overlay-start mouse-drag-overlay))) |
8064
d04a39ce4f1d
(mouse-scroll-subr): Don't do anything special at eob.
Richard M. Stallman <rms@gnu.org>
parents:
7966
diff
changeset
|
784 ((>= mouse-row bottom) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
785 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
23619
0813c9bb52c4
(mouse-drag-region): Fix typo.
Andreas Schwab <schwab@suse.de>
parents:
23611
diff
changeset
|
786 mouse-drag-overlay start-point) |
13307
4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
Richard M. Stallman <rms@gnu.org>
parents:
13068
diff
changeset
|
787 (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) |
41611
64ee9a4a698e
Converted backquote to the new style (in comments).
Sam Steingold <sds@gnu.org>
parents:
41034
diff
changeset
|
788 |
23611
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
789 ;; In case we did not get a mouse-motion event |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
790 ;; for the final move of the mouse before a drag event |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
791 ;; pretend that we did get one. |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
792 (when (and (memq 'drag (event-modifiers (car-safe event))) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
793 (setq end (event-end event) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
794 end-point (posn-point end)) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
795 (eq (posn-window end) start-window) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
796 (integer-or-marker-p end-point)) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
797 ;; Go to START-POINT first, so that when we move to END-POINT, |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
798 ;; if it's in the middle of intangible text, |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
799 ;; point jumps in the direction away from START-POINT. |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
800 (goto-char start-point) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
801 (goto-char end-point) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
802 (if (zerop (% click-count 3)) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
803 (setq end-of-range (point))) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
804 (let ((range (mouse-start-end start-point (point) click-count))) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
805 (move-overlay mouse-drag-overlay (car range) (nth 1 range)))) |
4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents:
22852
diff
changeset
|
806 |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
807 (if (consp event) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
808 (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
|
809 ;; 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
|
810 ;; 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
|
811 ;; because it would fail to set up a region. |
18459
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
812 (if (not (= (overlay-start mouse-drag-overlay) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
813 (overlay-end mouse-drag-overlay))) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
814 (let* ((stop-point |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
815 (if (numberp (posn-point (event-end event))) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
816 (posn-point (event-end event)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
817 last-end-point)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
818 ;; The end that comes from where we ended the drag. |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
819 ;; Point goes here. |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
820 (region-termination |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
821 (if (and stop-point (< stop-point start-point)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
822 (overlay-start mouse-drag-overlay) |
10369
1b6d44607114
(mouse-drag-region): As once in the past,
Richard M. Stallman <rms@gnu.org>
parents:
10258
diff
changeset
|
823 (overlay-end mouse-drag-overlay))) |
18459
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
824 ;; The end that comes from where we started the drag. |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
825 ;; Mark goes there. |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
826 (region-commencement |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
827 (- (+ (overlay-end mouse-drag-overlay) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
828 (overlay-start mouse-drag-overlay)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
829 region-termination)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
830 last-command this-command) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
831 (push-mark region-commencement t t) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
832 (goto-char region-termination) |
21194
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
833 ;; Don't let copy-region-as-kill set deactivate-mark. |
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
834 (let (deactivate-mark) |
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
835 (copy-region-as-kill (point) (mark t))) |
18459
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
836 (let ((buffer (current-buffer))) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
837 (mouse-show-mark) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
838 ;; mouse-show-mark can call read-event, |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
839 ;; and that means the Emacs server could switch buffers |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
840 ;; under us. If that happened, |
18459
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
841 ;; avoid trying to use the region. |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
842 (and (mark t) mark-active |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
843 (eq buffer (current-buffer)) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
844 (mouse-set-region-1)))) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
845 (delete-overlay mouse-drag-overlay) |
688c725c6b23
(mouse-drag-region): For a click (not a drag),
Richard M. Stallman <rms@gnu.org>
parents:
17983
diff
changeset
|
846 ;; Run the binding of the terminating up-event. |
30122
76b25f049c1e
(mouse-drag-region): Use functionp rather than fboundp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29974
diff
changeset
|
847 (when (and (functionp fun) |
41034
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
848 (= start-hscroll (window-hscroll start-window)) |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
849 ;; Don't run the up-event handler if the |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
850 ;; window start changed in a redisplay after |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
851 ;; the mouse-set-point for the down-mouse |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
852 ;; event at the beginning of this function. |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
853 ;; When the window start has changed, the |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
854 ;; up-mouse event will contain a different |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
855 ;; position due to the new window contents, |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
856 ;; and point is set again. |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
857 (or end-point |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
858 (= (window-start start-window) |
edd3baa8e385
(mouse-drag-region): Don't run the up-event
Richard M. Stallman <rms@gnu.org>
parents:
41033
diff
changeset
|
859 start-window-start))) |
28075
7421de9165d2
(mouse-drag-region): Don't run up-event handler
Gerd Moellmann <gerd@gnu.org>
parents:
27834
diff
changeset
|
860 (setq unread-command-events |
7421de9165d2
(mouse-drag-region): Don't run up-event handler
Gerd Moellmann <gerd@gnu.org>
parents:
27834
diff
changeset
|
861 (cons event unread-command-events))))) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
862 (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
|
863 |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
864 ;; 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
|
865 |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
866 (defun mouse-skip-word (dir) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
867 "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
|
868 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
|
869 (let* ((char (following-char)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
870 (syntax (char-to-string (char-syntax char)))) |
22852
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
871 (cond ((string= syntax "w") |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
872 ;; Here, we can't use skip-syntax-forward/backward because |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
873 ;; they don't pay attention to word-separating-categories, |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
874 ;; and thus they will skip over a true word boundary. So, |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
875 ;; we simularte the original behaviour by using |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
876 ;; forward-word. |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
877 (if (< dir 0) |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
878 (if (not (looking-at "\\<")) |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
879 (forward-word -1)) |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
880 (if (or (looking-at "\\<") (not (looking-at "\\>"))) |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
881 (forward-word 1)))) |
dfb255fb91c8
(mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents:
22845
diff
changeset
|
882 ((string= syntax " ") |
13038
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
883 (if (< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
884 (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
|
885 (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
|
886 ((string= syntax "_") |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
887 (if (< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
888 (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
|
889 (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
|
890 ((< dir 0) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
891 (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
|
892 (forward-char -1))) |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
893 (t |
d07703594662
(C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents:
12844
diff
changeset
|
894 (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
|
895 (forward-char 1)))))) |
3928
c5f9d7f928a7
* mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents:
3899
diff
changeset
|
896 |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
897 ;; 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
|
898 ;; 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
|
899 ;; 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
|
900 ;; 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
|
901 ;; 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
|
902 (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
|
903 (if (> start end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
904 (let ((temp start)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
905 (setq start end |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
906 end temp))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
907 (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
|
908 (cond ((= mode 0) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
909 (list start end)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
910 ((and (= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
911 (= 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
|
912 (char-after start) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
913 (= (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
|
914 (list start |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
915 (save-excursion |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
916 (goto-char start) |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
917 (forward-sexp 1) |
66aadd6ba5e6
(mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents:
5869
diff
changeset
|
918 (point)))) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
919 ((and (= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
920 (= 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
|
921 (char-after start) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
922 (= (char-syntax (char-after start)) ?\))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
923 (list (save-excursion |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
924 (goto-char (1+ start)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
925 (backward-sexp 1) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
926 (point)) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
927 (1+ start))) |
15561
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
928 ((and (= mode 1) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
929 (= start end) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
930 (char-after start) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
931 (= (char-syntax (char-after start)) ?\")) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
932 (let ((open (or (eq start (point-min)) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
933 (save-excursion |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
934 (goto-char (- start 1)) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
935 (looking-at "\\s(\\|\\s \\|\\s>"))))) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
936 (if open |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
937 (list start |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
938 (save-excursion |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
939 (condition-case nil |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
940 (progn |
15561
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
941 (goto-char start) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
942 (forward-sexp 1) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
943 (point)) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
944 (error end)))) |
16746
9d2a854bac89
(mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents:
16636
diff
changeset
|
945 (list (save-excursion |
15561
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
946 (condition-case nil |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
947 (progn |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
948 (goto-char (1+ start)) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
949 (backward-sexp 1) |
6f50026fd1e6
(mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents:
15476
diff
changeset
|
950 (point)) |
16746
9d2a854bac89
(mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents:
16636
diff
changeset
|
951 (error end))) |
9d2a854bac89
(mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents:
16636
diff
changeset
|
952 (1+ start))))) |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
953 ((= mode 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
954 (list (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
955 (goto-char start) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
956 (mouse-skip-word -1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
957 (point)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
958 (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
959 (goto-char end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
960 (mouse-skip-word 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
961 (point)))) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
962 ((= mode 2) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
963 (list (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
964 (goto-char start) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
965 (beginning-of-line 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
966 (point)) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
967 (save-excursion |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
968 (goto-char end) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
969 (forward-line 1) |
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
970 (point)))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
971 |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
972 ;; Subroutine: set the mark where CLICK happened, |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
973 ;; but don't do anything else. |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
974 (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
|
975 (mouse-minibuffer-check click) |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
976 (let ((posn (event-start click))) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
977 (select-window (posn-window posn)) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
978 (if (numberp (posn-point posn)) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
979 (push-mark (posn-point posn) t t)))) |
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
980 |
15613
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
981 (defun mouse-undouble-last-event (events) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
982 (let* ((index (1- (length events))) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
983 (last (nthcdr index events)) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
984 (event (car last)) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
985 (basic (event-basic-type event)) |
17983
56f88318699c
(mouse-undouble-last-event): Return nil if the event
Richard M. Stallman <rms@gnu.org>
parents:
17636
diff
changeset
|
986 (old-modifiers (event-modifiers event)) |
56f88318699c
(mouse-undouble-last-event): Return nil if the event
Richard M. Stallman <rms@gnu.org>
parents:
17636
diff
changeset
|
987 (modifiers (delq 'double (delq 'triple (copy-sequence old-modifiers)))) |
15613
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
988 (new |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
989 (if (consp event) |
18503
828ca7cea30f
(mouse-undouble-last-event): Use reverse, not nreverse.
Richard M. Stallman <rms@gnu.org>
parents:
18459
diff
changeset
|
990 ;; Use reverse, not nreverse, since event-modifiers |
828ca7cea30f
(mouse-undouble-last-event): Use reverse, not nreverse.
Richard M. Stallman <rms@gnu.org>
parents:
18459
diff
changeset
|
991 ;; does not copy the list it returns. |
18689
d11c2164a6af
(mouse-undouble-last-event): Fix gross bugs:
Richard M. Stallman <rms@gnu.org>
parents:
18675
diff
changeset
|
992 (cons (event-convert-list (reverse (cons basic modifiers))) |
15613
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
993 (cdr event)) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
994 event))) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
995 (setcar last new) |
17983
56f88318699c
(mouse-undouble-last-event): Return nil if the event
Richard M. Stallman <rms@gnu.org>
parents:
17636
diff
changeset
|
996 (if (and (not (equal modifiers old-modifiers)) |
56f88318699c
(mouse-undouble-last-event): Return nil if the event
Richard M. Stallman <rms@gnu.org>
parents:
17636
diff
changeset
|
997 (key-binding (apply 'vector events))) |
15613
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
998 t |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
999 (setcar last event) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
1000 nil))) |
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
1001 |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1002 ;; Momentarily show where the mark is, if highlighting doesn't show it. |
15941
f063cae001ee
(mouse-region-delete-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15880
diff
changeset
|
1003 |
f063cae001ee
(mouse-region-delete-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15880
diff
changeset
|
1004 (defvar mouse-region-delete-keys '([delete]) |
f063cae001ee
(mouse-region-delete-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15880
diff
changeset
|
1005 "List of keys which shall cause the mouse region to be deleted.") |
f063cae001ee
(mouse-region-delete-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15880
diff
changeset
|
1006 |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
1007 (defun mouse-show-mark () |
15613
4c646bed64d0
(mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents:
15561
diff
changeset
|
1008 (if transient-mark-mode |
29974
16e551942724
(mouse-show-mark, mouse-save-then-kill): Don't use window-system.
Eli Zaretskii <eliz@gnu.org>
parents:
29353
diff
changeset
|
1009 (delete-overlay mouse-drag-overlay) |
41033
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1010 (if (not (display-graphic-p)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1011 (save-excursion |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1012 (goto-char (mark t)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1013 (sit-for 1)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1014 (let ((inhibit-quit t) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1015 (echo-keystrokes 0) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1016 event events key ignore |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1017 x-lost-selection-hooks) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1018 (add-hook 'x-lost-selection-hooks |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1019 (lambda (seltype) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1020 (if (eq seltype 'PRIMARY) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1021 (progn (setq ignore t) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1022 (throw 'mouse-show-mark t))))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1023 (move-overlay mouse-drag-overlay (point) (mark t)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1024 (catch 'mouse-show-mark |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1025 ;; In this loop, execute scroll bar and switch-frame events. |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1026 ;; Also ignore down-events that are undefined. |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1027 (while (progn (setq event (read-event)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1028 (setq events (append events (list event))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1029 (setq key (apply 'vector events)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1030 (or (and (consp event) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1031 (eq (car event) 'switch-frame)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1032 (and (consp event) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1033 (eq (posn-point (event-end event)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1034 'vertical-scroll-bar)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1035 (and (memq 'down (event-modifiers event)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1036 (not (key-binding key)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1037 (not (mouse-undouble-last-event events)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1038 (not (member key mouse-region-delete-keys))))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1039 (and (consp event) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1040 (or (eq (car event) 'switch-frame) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1041 (eq (posn-point (event-end event)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1042 'vertical-scroll-bar)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1043 (let ((keys (vector 'vertical-scroll-bar event))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1044 (and (key-binding keys) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1045 (progn |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1046 (call-interactively (key-binding keys) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1047 nil keys) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1048 (setq events nil))))))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1049 ;; If we lost the selection, just turn off the highlighting. |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1050 (if ignore |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1051 nil |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1052 ;; For certain special keys, delete the region. |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1053 (if (member key mouse-region-delete-keys) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1054 (delete-region (overlay-start mouse-drag-overlay) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1055 (overlay-end mouse-drag-overlay)) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1056 ;; Otherwise, unread the key so it gets executed normally. |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1057 (setq unread-command-events |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1058 (nconc events unread-command-events)))) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1059 (setq quit-flag nil) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1060 (delete-overlay mouse-drag-overlay))))) |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
1061 |
465 | 1062 (defun mouse-set-mark (click) |
1063 "Set mark at the position clicked on with the mouse. | |
1064 Display cursor at that position for a second. | |
1065 This must be bound to a mouse click." | |
1113 | 1066 (interactive "e") |
8534
a446d13c46ea
(mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents:
8519
diff
changeset
|
1067 (mouse-minibuffer-check click) |
a446d13c46ea
(mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents:
8519
diff
changeset
|
1068 (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
|
1069 ;; We don't use save-excursion because that preserves the mark too. |
66 | 1070 (let ((point-save (point))) |
1071 (unwind-protect | |
465 | 1072 (progn (mouse-set-point click) |
3119
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
1073 (push-mark nil t t) |
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
1074 (or transient-mark-mode |
0d4886af9262
(mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2802
diff
changeset
|
1075 (sit-for 1))) |
66 | 1076 (goto-char point-save)))) |
1077 | |
465 | 1078 (defun mouse-kill (click) |
1079 "Kill the region between point and the mouse click. | |
1080 The text is saved in the kill ring, as with \\[kill-region]." | |
1113 | 1081 (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
|
1082 (mouse-minibuffer-check click) |
6301
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
1083 (let* ((posn (event-start click)) |
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
1084 (click-posn (posn-point posn))) |
80e3ee8d618d
(mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents:
6266
diff
changeset
|
1085 (select-window (posn-window posn)) |
1039 | 1086 (if (numberp click-posn) |
1087 (kill-region (min (point) click-posn) | |
1088 (max (point) click-posn))))) | |
66 | 1089 |
705 | 1090 (defun mouse-yank-at-click (click arg) |
1091 "Insert the last stretch of killed text at the position clicked on. | |
28922
c0732e5c1f58
(mouse-yank-at-click): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
28075
diff
changeset
|
1092 Also move point to one end of the text thus inserted (normally the end), |
42149 | 1093 and set mark at the beginning. |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1094 Prefix arguments are interpreted as with \\[yank]. |
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1095 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
|
1096 regardless of where you click." |
1113 | 1097 (interactive "e\nP") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1098 ;; 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
|
1099 (run-hooks 'mouse-leave-buffer-hook) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1100 (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
|
1101 (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
|
1102 (setq mouse-selection-click-count 0) |
705 | 1103 (yank arg)) |
1104 | |
1105 (defun mouse-kill-ring-save (click) | |
465 | 1106 "Copy the region between point and the mouse click in the kill ring. |
1107 This does not delete the region; it acts like \\[kill-ring-save]." | |
1113 | 1108 (interactive "e") |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
1109 (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
|
1110 (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
|
1111 (kill-ring-save (point) (mark t))) |
3712
9e0f49a8f967
(mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3566
diff
changeset
|
1112 (mouse-show-mark)) |
66 | 1113 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1114 ;;; 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
|
1115 ;;; 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
|
1116 ;;; people found that confusing. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1117 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1118 ;;; 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
|
1119 ;;; invocation of mouse-save-then-kill. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1120 (defvar mouse-save-then-kill-posn nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1121 |
5007
8ed435ca9650
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
4906
diff
changeset
|
1122 (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
|
1123 ;; We must make our own undo boundaries |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1124 ;; 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
|
1125 (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
|
1126 (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
|
1127 ;; 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
|
1128 ;; just delete. |
38980ea73075
(mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents:
5007
diff
changeset
|
1129 (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
|
1130 ;; 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
|
1131 ;; 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
|
1132 ;; for the first time, the undo list records that fact. |
29344
2f44841e5506
(mouse-save-then-kill-delete-region): Don't bind
Dave Love <fx@gnu.org>
parents:
28922
diff
changeset
|
1133 (let (before-change-functions after-change-functions) |
7866
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
1134 (delete-region beg |
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
1135 (+ 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
|
1136 (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
|
1137 ;; Undo that deletion--but don't change the undo list! |
29344
2f44841e5506
(mouse-save-then-kill-delete-region): Don't bind
Dave Love <fx@gnu.org>
parents:
28922
diff
changeset
|
1138 (let (before-change-functions after-change-functions) |
7866
44680acb5d14
(mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents:
7794
diff
changeset
|
1139 (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
|
1140 ;; 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
|
1141 ;; 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
|
1142 (setq buffer-undo-list t) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1143 (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
|
1144 (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
|
1145 (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
|
1146 (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
|
1147 ;; 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
|
1148 ;; 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
|
1149 (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
|
1150 (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
|
1151 ;; 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
|
1152 (and tail |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1153 (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
|
1154 (undo-boundary)) |
4751
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
1155 |
1214
467833df795b
(mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
1156 (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
|
1157 "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
|
1158 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
|
1159 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
|
1160 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
|
1161 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
|
1162 |
c63ce262aa4d
(mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents:
4738
diff
changeset
|
1163 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
|
1164 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
|
1165 again in a different position, it extends the selection again. |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1166 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
|
1167 (interactive "e") |
21426
4b4a4e32ffef
(mouse-save-then-kill): Get point-before-scroll
Richard M. Stallman <rms@gnu.org>
parents:
21194
diff
changeset
|
1168 (let ((before-scroll |
4b4a4e32ffef
(mouse-save-then-kill): Get point-before-scroll
Richard M. Stallman <rms@gnu.org>
parents:
21194
diff
changeset
|
1169 (with-current-buffer (window-buffer (posn-window (event-start click))) |
4b4a4e32ffef
(mouse-save-then-kill): Get point-before-scroll
Richard M. Stallman <rms@gnu.org>
parents:
21194
diff
changeset
|
1170 point-before-scroll))) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1171 (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
|
1172 (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
|
1173 ;; 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
|
1174 ;; 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
|
1175 (this-command this-command)) |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
1176 (if (and (save-excursion |
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
1177 (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
|
1178 (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
|
1179 ;; Don't be fooled by a recent click in some other buffer. |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1180 (eq mouse-selection-click-count-buffer |
12436
ffd777dc7d29
(mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12357
diff
changeset
|
1181 (current-buffer))))) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1182 (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
|
1183 (equal click-posn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1184 (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
|
1185 ;; 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
|
1186 (let* ((range |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1187 (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
|
1188 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
|
1189 ;; 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
|
1190 ;; 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
|
1191 (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
|
1192 (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
|
1193 (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
|
1194 (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
|
1195 ;; 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
|
1196 ;; 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
|
1197 ;; (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
|
1198 (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
|
1199 (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
|
1200 ;; 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
|
1201 (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
|
1202 (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
|
1203 (mouse-show-mark)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1204 ;; 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
|
1205 ;; that time kill. |
11818
f470809e6a60
(mouse-save-then-kill): When making a new region
Richard M. Stallman <rms@gnu.org>
parents:
11453
diff
changeset
|
1206 (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
|
1207 (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
|
1208 (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
|
1209 (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
|
1210 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
|
1211 (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
|
1212 (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
|
1213 ;; 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
|
1214 ;; 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
|
1215 (progn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1216 (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
|
1217 ;; 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
|
1218 (setq mouse-save-then-kill-posn nil)) |
15321
1aeaf1224f0b
(mouse-show-mark): Use temporary highlighting if possible instead of a pause.
Richard M. Stallman <rms@gnu.org>
parents:
15169
diff
changeset
|
1219 ;; This is not a repetition. |
1aeaf1224f0b
(mouse-show-mark): Use temporary highlighting if possible instead of a pause.
Richard M. Stallman <rms@gnu.org>
parents:
15169
diff
changeset
|
1220 ;; We are adjusting an old selection or creating a new one. |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1221 (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
|
1222 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
|
1223 (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
|
1224 (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
|
1225 '(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
|
1226 (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
|
1227 (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
|
1228 ;; 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
|
1229 (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
|
1230 (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
|
1231 (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
|
1232 (if (numberp new) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1233 (progn |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1234 ;; 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
|
1235 ;; That is what xterm does, and it seems reasonable. |
36134
0d7ea691acc4
(mouse-save-then-kill): If the distance from the new
Gerd Moellmann <gerd@gnu.org>
parents:
33769
diff
changeset
|
1236 (if (<= (abs (- new (point))) (abs (- new (mark t)))) |
10556
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1237 (goto-char new) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1238 (set-mark new)) |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1239 (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
|
1240 (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
|
1241 (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
|
1242 ;; 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
|
1243 (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
|
1244 (if before-scroll |
fda9e00240b0
(mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents:
10554
diff
changeset
|
1245 (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
|
1246 (exchange-point-and-mark) |
15321
1aeaf1224f0b
(mouse-show-mark): Use temporary highlighting if possible instead of a pause.
Richard M. Stallman <rms@gnu.org>
parents:
15169
diff
changeset
|
1247 (kill-new (buffer-substring (point) (mark t))) |
29974
16e551942724
(mouse-show-mark, mouse-save-then-kill): Don't use window-system.
Eli Zaretskii <eliz@gnu.org>
parents:
29353
diff
changeset
|
1248 (mouse-show-mark)) |
10720
4526bdcc806e
(mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents:
10556
diff
changeset
|
1249 (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
|
1250 (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
|
1251 (list (car kill-ring) (point) click-posn))))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1252 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1253 (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
|
1254 (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
|
1255 (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
|
1256 (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
|
1257 (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
|
1258 |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1259 ;; An overlay which records the current secondary selection |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1260 ;; 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
|
1261 ;; May be nil. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1262 (defvar mouse-secondary-overlay nil) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1263 |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1264 (defvar mouse-secondary-click-count 0) |
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1265 |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1266 ;; 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
|
1267 ;; May be nil. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1268 (defvar mouse-secondary-start nil) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1269 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1270 (defun mouse-start-secondary (click) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1271 "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
|
1272 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
|
1273 and complete the secondary selection." |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1274 (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
|
1275 (mouse-minibuffer-check click) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1276 (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
|
1277 (save-excursion |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1278 (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
|
1279 ;; 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
|
1280 (if mouse-secondary-overlay |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1281 (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
|
1282 (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
|
1283 (progn |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1284 (or mouse-secondary-start |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1285 (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
|
1286 (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
|
1287 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1288 (defun mouse-set-secondary (click) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1289 "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
|
1290 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
|
1291 (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
|
1292 (mouse-minibuffer-check click) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1293 (let ((posn (event-start click)) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1294 beg |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1295 (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
|
1296 (save-excursion |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1297 (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
|
1298 (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
|
1299 (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
|
1300 (if mouse-secondary-overlay |
7747dabf897f
(mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents:
3808
diff
changeset
|
1301 (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
|
1302 (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
|
1303 (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
|
1304 |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1305 (defun mouse-drag-secondary (start-event) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1306 "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
|
1307 Highlight the drag area as you move the mouse. |
16318
86f1da650461
(mouse-drag-secondary): Make sure to return nil
Richard M. Stallman <rms@gnu.org>
parents:
16304
diff
changeset
|
1308 This must be bound to a button-down mouse event. |
86f1da650461
(mouse-drag-secondary): Make sure to return nil
Richard M. Stallman <rms@gnu.org>
parents:
16304
diff
changeset
|
1309 The function returns a non-nil value if it creates a secondary selection." |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1310 (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
|
1311 (mouse-minibuffer-check start-event) |
14179
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
1312 (let* ((echo-keystrokes 0) |
7db5b89b78b6
(mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents:
13872
diff
changeset
|
1313 (start-posn (event-start start-event)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1314 (start-point (posn-point start-posn)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1315 (start-window (posn-window start-posn)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1316 (start-frame (window-frame start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1317 (bounds (window-edges start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1318 (top (nth 1 bounds)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1319 (bottom (if (window-minibuffer-p start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1320 (nth 3 bounds) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1321 ;; Don't count the mode line. |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1322 (1- (nth 3 bounds)))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1323 (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
|
1324 (save-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1325 (set-buffer (window-buffer start-window)) |
9206
06864fef4ec3
(mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8765
diff
changeset
|
1326 (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
|
1327 (or mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1328 (setq mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1329 (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
|
1330 (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
|
1331 (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
|
1332 ;; 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
|
1333 ;; of one word or line. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1334 (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
|
1335 (set-marker mouse-secondary-start nil) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1336 (move-overlay mouse-secondary-overlay 1 1 |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1337 (window-buffer start-window)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1338 (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
|
1339 (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
|
1340 ;; 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
|
1341 (or mouse-secondary-start |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1342 (setq mouse-secondary-start (make-marker))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1343 (set-marker mouse-secondary-start start-point) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1344 (delete-overlay mouse-secondary-overlay)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1345 (let (event end end-point) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1346 (track-mouse |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1347 (while (progn |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1348 (setq event (read-event)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1349 (or (mouse-movement-p event) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1350 (eq (car-safe event) 'switch-frame))) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1351 |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1352 (if (eq (car-safe event) 'switch-frame) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1353 nil |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1354 (setq end (event-end event) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1355 end-point (posn-point end)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1356 (cond |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1357 ;; Are we moving within the original window? |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1358 ((and (eq (posn-window end) start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1359 (integer-or-marker-p end-point)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1360 (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
|
1361 click-count))) |
8224
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1362 (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
|
1363 (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
|
1364 (progn |
1cc48bdd0c6b
(mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents:
8204
diff
changeset
|
1365 (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
|
1366 (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
|
1367 (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
|
1368 (t |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
1369 (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
|
1370 (cond |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
1371 ((null mouse-row)) |
4a0b3a63e51e
(mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents:
7363
diff
changeset
|
1372 ((< mouse-row top) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
1373 (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
|
1374 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
|
1375 ((>= mouse-row bottom) |
7932
ac4b606bcfa2
(mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents:
7901
diff
changeset
|
1376 (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
|
1377 mouse-secondary-overlay start-point))))))))) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1378 |
7966
76118755a179
(mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents:
7932
diff
changeset
|
1379 (if (consp event) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1380 (if (marker-position mouse-secondary-start) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1381 (save-window-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1382 (delete-overlay mouse-secondary-overlay) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1383 (x-set-selection 'SECONDARY nil) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1384 (select-window start-window) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1385 (save-excursion |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1386 (goto-char mouse-secondary-start) |
16318
86f1da650461
(mouse-drag-secondary): Make sure to return nil
Richard M. Stallman <rms@gnu.org>
parents:
16304
diff
changeset
|
1387 (sit-for 1) |
86f1da650461
(mouse-drag-secondary): Make sure to return nil
Richard M. Stallman <rms@gnu.org>
parents:
16304
diff
changeset
|
1388 nil)) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1389 (x-set-selection |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1390 'SECONDARY |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1391 (buffer-substring (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1392 (overlay-end mouse-secondary-overlay))))))))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1393 |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1394 (defun mouse-yank-secondary (click) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1395 "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
|
1396 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
|
1397 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
|
1398 regardless of where you click." |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1399 (interactive "e") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
1400 ;; 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
|
1401 (run-hooks 'mouse-leave-buffer-hook) |
5799
13d7ce941848
(mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents:
5280
diff
changeset
|
1402 (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
|
1403 (insert (x-get-selection 'SECONDARY))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1404 |
5280
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1405 (defun mouse-kill-secondary () |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1406 "Kill the text in the secondary selection. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1407 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
|
1408 but it can work as either one. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1409 |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1410 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
|
1411 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
|
1412 is to prevent accidents." |
5280
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1413 (interactive) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1414 (let* ((keys (this-command-keys)) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1415 (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
|
1416 (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
|
1417 (if (listp click) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1418 (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
|
1419 (current-buffer))) |
6a260dd9ee05
(mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents:
5198
diff
changeset
|
1420 (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
|
1421 (let (this-command) |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1422 (save-excursion |
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1423 (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
|
1424 (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
|
1425 (overlay-end mouse-secondary-overlay)))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1426 (delete-overlay mouse-secondary-overlay) |
10838
6c0dc7a8a07a
(mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents:
10790
diff
changeset
|
1427 ;;; (x-set-selection 'SECONDARY nil) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1428 (setq mouse-secondary-overlay nil)) |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1429 |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1430 (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
|
1431 "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
|
1432 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
|
1433 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
|
1434 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
|
1435 this command deletes the text. |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1436 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
|
1437 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
|
1438 |
7302
1d9c6f42c7ae
(mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
1439 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
|
1440 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
|
1441 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
|
1442 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
|
1443 (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
|
1444 (mouse-minibuffer-check click) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1445 (let ((posn (event-start click)) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1446 (click-posn (posn-point (event-start click))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1447 ;; 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
|
1448 ;; prevent setting this-command to kill-region. |
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1449 (this-command this-command)) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1450 (or (eq (window-buffer (posn-window posn)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1451 (or (and mouse-secondary-overlay |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1452 (overlay-buffer mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1453 (if mouse-secondary-start |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1454 (marker-buffer mouse-secondary-start)))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1455 (error "Wrong buffer")) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1456 (save-excursion |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1457 (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
|
1458 (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
|
1459 (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
|
1460 (equal click-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1461 (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
|
1462 ;; 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
|
1463 (let* ((range |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1464 (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
|
1465 mouse-secondary-click-count))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1466 ;; 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
|
1467 ;; 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
|
1468 (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
|
1469 (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
|
1470 (move-overlay mouse-secondary-overlay (car range) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1471 (overlay-end mouse-secondary-overlay)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1472 (move-overlay mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1473 (overlay-start mouse-secondary-overlay) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1474 (nth 1 range))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1475 ;; 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
|
1476 ;; Replace it with the extended region. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1477 ;; (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
|
1478 (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
|
1479 (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
|
1480 (overlay-end mouse-secondary-overlay)) t) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1481 ;; 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
|
1482 (setq mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1483 (list (car kill-ring) (point) click-posn))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1484 ;; 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
|
1485 ;; that time kill. |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1486 (progn |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1487 (mouse-save-then-kill-delete-region |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1488 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1489 (overlay-end mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1490 (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
|
1491 (setq mouse-secondary-click-count 0) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1492 (delete-overlay mouse-secondary-overlay))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1493 (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
|
1494 mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1495 (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
|
1496 (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
|
1497 ;; 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
|
1498 ;; 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
|
1499 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1500 (mouse-save-then-kill-delete-region |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1501 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1502 (overlay-end mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1503 (setq mouse-save-then-kill-posn nil) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1504 (delete-overlay mouse-secondary-overlay)) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1505 (if (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1506 ;; We have a selection, so adjust it. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1507 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1508 (if (numberp click-posn) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1509 (progn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1510 ;; 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
|
1511 ;; 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
|
1512 (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
|
1513 (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
|
1514 (move-overlay mouse-secondary-overlay click-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1515 (overlay-end mouse-secondary-overlay)) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1516 (move-overlay mouse-secondary-overlay |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1517 (overlay-start mouse-secondary-overlay) |
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
1518 click-posn)) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1519 (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
|
1520 (if (eq last-command 'mouse-secondary-save-then-kill) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1521 ;; If the front of the kill ring comes from |
8765
77933f36ddc2
(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new
Karl Heuer <kwzh@gnu.org>
parents:
8534
diff
changeset
|
1522 ;; 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
|
1523 ;; 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
|
1524 ;; (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
|
1525 (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
|
1526 (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
|
1527 (overlay-end mouse-secondary-overlay)) t) |
21194
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
1528 (let (deactivate-mark) |
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
1529 (copy-region-as-kill (overlay-start mouse-secondary-overlay) |
7a7950ffa79b
(mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21176
diff
changeset
|
1530 (overlay-end mouse-secondary-overlay))))) |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1531 (if mouse-secondary-start |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1532 ;; 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
|
1533 ;; so put the other end here. |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1534 (let ((start (+ 0 mouse-secondary-start))) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1535 (kill-ring-save start click-posn) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1536 (if mouse-secondary-overlay |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1537 (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
|
1538 (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
|
1539 (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
|
1540 (setq mouse-save-then-kill-posn |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1541 (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
|
1542 (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
|
1543 (x-set-selection 'SECONDARY |
5153
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1544 (buffer-substring |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1545 (overlay-start mouse-secondary-overlay) |
27afcc69725a
(mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents:
5027
diff
changeset
|
1546 (overlay-end mouse-secondary-overlay))))))) |
3808
d852157f581a
(mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3712
diff
changeset
|
1547 |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1548 (defcustom mouse-buffer-menu-maxlen 20 |
13872
e79f2b570509
(mouse-menu-buffer-maxlen): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13870
diff
changeset
|
1549 "*Number of buffers in one pane (submenu) of the buffer menu. |
e79f2b570509
(mouse-menu-buffer-maxlen): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13870
diff
changeset
|
1550 If we have lots of buffers, divide them into groups of |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1551 `mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one." |
17636 | 1552 :type 'integer |
1553 :group 'mouse) | |
13872
e79f2b570509
(mouse-menu-buffer-maxlen): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13870
diff
changeset
|
1554 |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1555 (defcustom mouse-buffer-menu-mode-mult 4 |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1556 "*Group the buffers by the major mode groups on \\[mouse-buffer-menu]? |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1557 This number which determines (in a hairy way) whether \\[mouse-buffer-menu] |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1558 will split the buffer menu by the major modes (see |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1559 `mouse-buffer-menu-mode-groups') or just by menu length. |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1560 Set to 1 (or even 0!) if you want to group by major mode always, and to |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1561 a large number if you prefer a mixed multitude. The default is 4." |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1562 :type 'integer |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1563 :group 'mouse |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1564 :version "20.3") |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1565 |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1566 (defvar mouse-buffer-menu-mode-groups |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1567 '(("Info\\|Help\\|Apropos\\|Man" . "Help") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1568 ("\\bVM\\b\\|\\bMH\\b\\|Message\\|Mail\\|Group\\|Score\\|Summary\\|Article" |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1569 . "Mail/News") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1570 ("\\<C\\>" . "C") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1571 ("ObjC" . "C") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1572 ("Text" . "Text") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1573 ("Outline" . "Text") |
40379
00827567d7bd
(mouse-buffer-menu-mode-groups): added SGML group
Sam Steingold <sds@gnu.org>
parents:
40268
diff
changeset
|
1574 ("\\(HT\\|SG\\|X\\|XHT\\)ML" . "SGML") |
00827567d7bd
(mouse-buffer-menu-mode-groups): added SGML group
Sam Steingold <sds@gnu.org>
parents:
40268
diff
changeset
|
1575 ("log\\|diff\\|vc\\|cvs" . "Version Control") ; "Change Management"? |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1576 ("Lisp" . "Lisp")) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1577 "How to group various major modes together in \\[mouse-buffer-menu]. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1578 Each element has the form (REGEXP . GROUPNAME). |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1579 If the major mode's name string matches REGEXP, use GROUPNAME instead.") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1580 |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
1581 (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
|
1582 "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
|
1583 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
|
1584 and selects that window." |
1113 | 1585 (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
|
1586 (mouse-minibuffer-check event) |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1587 (let ((buffers (buffer-list)) alist menu split-by-major-mode sum-of-squares) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1588 ;; Make an alist of elements that look like (MENU-ITEM . BUFFER). |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1589 (let ((tail buffers)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1590 (while tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1591 ;; Divide all buffers into buckets for various major modes. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1592 ;; Each bucket looks like (MODE NAMESTRING BUFFERS...). |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1593 (with-current-buffer (car tail) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1594 (let* ((adjusted-major-mode major-mode) elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1595 (let ((tail mouse-buffer-menu-mode-groups)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1596 (while tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1597 (if (string-match (car (car tail)) mode-name) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1598 (setq adjusted-major-mode (cdr (car tail)))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1599 (setq tail (cdr tail)))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1600 (setq elt (assoc adjusted-major-mode split-by-major-mode)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1601 (if (null elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1602 (setq elt (list adjusted-major-mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1603 (if (stringp adjusted-major-mode) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1604 adjusted-major-mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1605 mode-name)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1606 split-by-major-mode (cons elt split-by-major-mode))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1607 (or (memq (car tail) (cdr (cdr elt))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1608 (setcdr (cdr elt) (cons (car tail) (cdr (cdr elt))))))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1609 (setq tail (cdr tail)))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1610 ;; Compute the sum of squares of sizes of the major-mode buckets. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1611 (let ((tail split-by-major-mode)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1612 (setq sum-of-squares 0) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1613 (while tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1614 (setq sum-of-squares |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1615 (+ sum-of-squares |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1616 (let ((len (length (cdr (cdr (car tail)))))) (* len len)))) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1617 (setq tail (cdr tail)))) |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1618 (if (< (* sum-of-squares mouse-buffer-menu-mode-mult) |
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1619 (* (length buffers) (length buffers))) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1620 ;; Subdividing by major modes really helps, so let's do it. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1621 (let (subdivided-menus (buffers-left (length buffers))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1622 ;; Sort the list to put the most popular major modes first. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1623 (setq split-by-major-mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1624 (sort split-by-major-mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1625 (function (lambda (elt1 elt2) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1626 (> (length elt1) (length elt2)))))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1627 ;; Make a separate submenu for each major mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1628 ;; that has more than one buffer, |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1629 ;; unless all the remaining buffers are less than 1/10 of them. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1630 (while (and split-by-major-mode |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1631 (and (> (length (car split-by-major-mode)) 3) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1632 (> (* buffers-left 10) (length buffers)))) |
38982
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1633 (let ((this-mode-list (mouse-buffer-menu-alist |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1634 (cdr (cdr (car split-by-major-mode)))))) |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1635 (and this-mode-list |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1636 (setq subdivided-menus |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1637 (cons (cons |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1638 (nth 1 (car split-by-major-mode)) |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1639 this-mode-list) |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1640 subdivided-menus)))) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1641 (setq buffers-left |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1642 (- buffers-left (length (cdr (car split-by-major-mode))))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1643 (setq split-by-major-mode (cdr split-by-major-mode))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1644 ;; If any major modes are left over, |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1645 ;; make a single submenu for them. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1646 (if split-by-major-mode |
38982
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1647 (let ((others-list |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1648 (mouse-buffer-menu-alist |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1649 ;; we don't need split-by-major-mode any more, |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1650 ;; so we can ditch it with nconc. |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1651 (apply 'nconc (mapcar 'cddr split-by-major-mode))))) |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1652 (and others-list |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1653 (setq subdivided-menus |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1654 (cons (cons "Others" others-list) |
f12d1ec614e9
(mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents:
38763
diff
changeset
|
1655 subdivided-menus))))) |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1656 (setq menu (cons "Buffer Menu" (nreverse subdivided-menus)))) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1657 (progn |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1658 (setq alist (mouse-buffer-menu-alist buffers)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1659 (setq menu (cons "Buffer Menu" |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1660 (mouse-buffer-menu-split "Select Buffer" alist))))) |
1728
2a49d509b30d
(mouse-buffer-menu): Select the window clicked on.
Richard M. Stallman <rms@gnu.org>
parents:
1421
diff
changeset
|
1661 (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
|
1662 (window (posn-window (event-start event)))) |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1663 (when buf |
41033
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1664 (select-window |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1665 (if (framep window) (frame-selected-window window) |
0701d564260d
(mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents:
40648
diff
changeset
|
1666 window)) |
21685
b0ae6e29c252
(mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
21426
diff
changeset
|
1667 (switch-to-buffer buf))))) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1668 |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1669 (defun mouse-buffer-menu-alist (buffers) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1670 (let (tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1671 (maxlen 0) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1672 head) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1673 (setq buffers |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1674 (sort buffers |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1675 (function (lambda (elt1 elt2) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1676 (string< (buffer-name elt1) (buffer-name elt2)))))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1677 (setq tail buffers) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1678 (while tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1679 (or (eq ?\ (aref (buffer-name (car tail)) 0)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1680 (setq maxlen |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1681 (max maxlen |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1682 (length (buffer-name (car tail)))))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1683 (setq tail (cdr tail))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1684 (setq tail buffers) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1685 (while tail |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1686 (let ((elt (car tail))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1687 (if (/= (aref (buffer-name elt) 0) ?\ ) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1688 (setq head |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1689 (cons |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1690 (cons |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1691 (format |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1692 (format "%%%ds %%s%%s %%s" maxlen) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1693 (buffer-name elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1694 (if (buffer-modified-p elt) "*" " ") |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1695 (save-excursion |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1696 (set-buffer elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1697 (if buffer-read-only "%" " ")) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1698 (or (buffer-file-name elt) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1699 (save-excursion |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1700 (set-buffer elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1701 (if list-buffers-directory |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1702 (expand-file-name |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1703 list-buffers-directory))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1704 "")) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1705 elt) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1706 head)))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1707 (setq tail (cdr tail))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1708 ;; Compensate for the reversal that the above loop does. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1709 (nreverse head))) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1710 |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1711 (defun mouse-buffer-menu-split (title alist) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1712 ;; If we have lots of buffers, divide them into groups of 20 |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1713 ;; and make a pane (or submenu) for each one. |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1714 (if (> (length alist) (/ (* mouse-buffer-menu-maxlen 3) 2)) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1715 (let ((alist alist) sublists next |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1716 (i 1)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1717 (while alist |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1718 ;; Pull off the next mouse-buffer-menu-maxlen buffers |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1719 ;; and make them the next element of sublist. |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1720 (setq next (nthcdr mouse-buffer-menu-maxlen alist)) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1721 (if next |
21148
bbbd345f54de
(mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents:
20686
diff
changeset
|
1722 (setcdr (nthcdr (1- mouse-buffer-menu-maxlen) alist) |
16989
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1723 nil)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1724 (setq sublists (cons (cons (format "Buffers %d" i) alist) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1725 sublists)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1726 (setq i (1+ i)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1727 (setq alist next)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1728 (nreverse sublists)) |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1729 ;; Few buffers--put them all in one pane. |
4e31b0ff76a9
(mouse-buffer-menu): Group buffers by major modes if that seems to be useful.
Richard M. Stallman <rms@gnu.org>
parents:
16746
diff
changeset
|
1730 (list (cons title alist)))) |
66 | 1731 |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1732 ;;; These need to be rewritten for the new scroll bar implementation. |
66 | 1733 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1734 ;;;!! ;; Commands for the scroll bar. |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1735 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1736 ;;;!! (defun mouse-scroll-down (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1737 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1738 ;;;!! (scroll-down (1+ (cdr (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1739 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1740 ;;;!! (defun mouse-scroll-up (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1741 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1742 ;;;!! (scroll-up (1+ (cdr (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1743 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1744 ;;;!! (defun mouse-scroll-down-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1745 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1746 ;;;!! (scroll-down nil)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1747 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1748 ;;;!! (defun mouse-scroll-up-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1749 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1750 ;;;!! (scroll-up nil)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1751 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1752 ;;;!! (defun mouse-scroll-move-cursor (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1753 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1754 ;;;!! (move-to-window-line (1+ (cdr (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1755 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1756 ;;;!! (defun mouse-scroll-absolute (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1757 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1758 ;;;!! (let* ((pos (car event)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1759 ;;;!! (position (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1760 ;;;!! (length (car (cdr pos)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1761 ;;;!! (if (<= length 0) (setq length 1)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1762 ;;;!! (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
|
1763 ;;;!! (newpos (* (/ (* (/ (buffer-size) scale-factor) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1764 ;;;!! position) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1765 ;;;!! length) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1766 ;;;!! scale-factor))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1767 ;;;!! (goto-char newpos) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1768 ;;;!! (recenter '(4))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1769 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1770 ;;;!! (defun mouse-scroll-left (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1771 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1772 ;;;!! (scroll-left (1+ (car (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1773 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1774 ;;;!! (defun mouse-scroll-right (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1775 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1776 ;;;!! (scroll-right (1+ (car (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1777 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1778 ;;;!! (defun mouse-scroll-left-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1779 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1780 ;;;!! (scroll-left nil)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1781 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1782 ;;;!! (defun mouse-scroll-right-full () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1783 ;;;!! (interactive "@") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1784 ;;;!! (scroll-right nil)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1785 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1786 ;;;!! (defun mouse-scroll-move-cursor-horizontally (click) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1787 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1788 ;;;!! (move-to-column (1+ (car (mouse-coords click))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1789 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1790 ;;;!! (defun mouse-scroll-absolute-horizontally (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1791 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1792 ;;;!! (let* ((pos (car event)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1793 ;;;!! (position (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1794 ;;;!! (length (car (cdr pos)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1795 ;;;!! (set-window-hscroll (selected-window) 33))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1796 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1797 ;;;!! (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
|
1798 ;;;!! (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
|
1799 ;;;!! (global-set-key [scroll-bar mouse-3] 'mouse-scroll-down) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1800 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1801 ;;;!! (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
|
1802 ;;;!! (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
|
1803 ;;;!! (global-set-key [vertical-slider mouse-3] 'mouse-scroll-move-cursor) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1804 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1805 ;;;!! (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
|
1806 ;;;!! (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
|
1807 ;;;!! (global-set-key [thumbup mouse-3] 'mouse-scroll-up-full) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1808 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1809 ;;;!! (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
|
1810 ;;;!! (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
|
1811 ;;;!! (global-set-key [thumbdown mouse-3] 'mouse-scroll-down-full) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1812 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1813 ;;;!! (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
|
1814 ;;;!! (global-set-key [horizontal-scroll-bar mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1815 ;;;!! 'mouse-scroll-absolute-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1816 ;;;!! (global-set-key [horizontal-scroll-bar mouse-3] 'mouse-scroll-right) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1817 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1818 ;;;!! (global-set-key [horizontal-slider mouse-1] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1819 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1820 ;;;!! (global-set-key [horizontal-slider mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1821 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1822 ;;;!! (global-set-key [horizontal-slider mouse-3] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1823 ;;;!! 'mouse-scroll-move-cursor-horizontally) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1824 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1825 ;;;!! (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
|
1826 ;;;!! (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
|
1827 ;;;!! (global-set-key [thumbleft mouse-3] 'mouse-scroll-left-full) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1828 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1829 ;;;!! (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
|
1830 ;;;!! (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
|
1831 ;;;!! (global-set-key [thumbright mouse-3] 'mouse-scroll-right-full) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1832 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1833 ;;;!! (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
|
1834 ;;;!! 'mouse-split-window-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1835 ;;;!! (global-set-key [mode-line S-mouse-2] |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1836 ;;;!! 'mouse-split-window-horizontally) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1837 ;;;!! (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
|
1838 ;;;!! 'mouse-split-window) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1839 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1840 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1841 ;;;!! ;;;; Here are experimental things being tested. Mouse events |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1842 ;;;!! ;;;; are of the form: |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1843 ;;;!! ;;;; ((x y) window screen-part key-sequence timestamp) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1844 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1845 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1846 ;;;!! ;;;; Dynamically track mouse coordinates |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1847 ;;;!! ;;;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1848 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1849 ;;;!! ;;(defun track-mouse (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1850 ;;;!! ;; "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
|
1851 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1852 ;;;!! ;; (while mouse-grabbed |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1853 ;;;!! ;; (let* ((pos (read-mouse-position (selected-screen))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1854 ;;;!! ;; (abs-x (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1855 ;;;!! ;; (abs-y (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1856 ;;;!! ;; (relative-coordinate (coordinates-in-window-p |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1857 ;;;!! ;; (list (car pos) (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1858 ;;;!! ;; (selected-window)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1859 ;;;!! ;; (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1860 ;;;!! ;; (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
|
1861 ;;;!! ;; (car relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1862 ;;;!! ;; (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1863 ;;;!! ;; (message "mouse: [%d %d]" abs-x abs-y))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1864 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1865 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1866 ;;;!! ;; 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
|
1867 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1868 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1869 ;;;!! ;;(require 'backquote) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1870 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1871 ;;;!! ;;(defun mouse-select-buffer-line (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1872 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1873 ;;;!! ;; (let ((relative-coordinate |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1874 ;;;!! ;; (coordinates-in-window-p (car event) (selected-window))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1875 ;;;!! ;; (abs-y (car (cdr (car event))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1876 ;;;!! ;; (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1877 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1878 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1879 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1880 ;;;!! ;; (x-draw-rectangle |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1881 ;;;!! ;; (selected-screen) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1882 ;;;!! ;; abs-y 0 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1883 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1884 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1885 ;;;!! ;; (end-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1886 ;;;!! ;; (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1887 ;;;!! ;; (beginning-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1888 ;;;!! ;; (- (region-end) (region-beginning))) 1)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1889 ;;;!! ;; (sit-for 1) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1890 ;;;!! ;; (x-erase-rectangle (selected-screen)))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1891 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1892 ;;;!! ;;(defvar last-line-drawn nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1893 ;;;!! ;;(defvar begin-delim "[^ \t]") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1894 ;;;!! ;;(defvar end-delim "[^ \t]") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1895 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1896 ;;;!! ;;(defun mouse-boxing (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1897 ;;;!! ;; (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1898 ;;;!! ;; (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1899 ;;;!! ;; (let ((screen (selected-screen))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1900 ;;;!! ;; (while (= (x-mouse-events) 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1901 ;;;!! ;; (let* ((pos (read-mouse-position screen)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1902 ;;;!! ;; (abs-x (car pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1903 ;;;!! ;; (abs-y (cdr pos)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1904 ;;;!! ;; (relative-coordinate |
41611
64ee9a4a698e
Converted backquote to the new style (in comments).
Sam Steingold <sds@gnu.org>
parents:
41034
diff
changeset
|
1905 ;;;!! ;; (coordinates-in-window-p `(,abs-x ,abs-y) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1906 ;;;!! ;; (selected-window))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1907 ;;;!! ;; (begin-reg nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1908 ;;;!! ;; (end-reg nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1909 ;;;!! ;; (end-column nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1910 ;;;!! ;; (begin-column nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1911 ;;;!! ;; (if (and (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1912 ;;;!! ;; (or (not last-line-drawn) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1913 ;;;!! ;; (not (= last-line-drawn abs-y)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1914 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1915 ;;;!! ;; (move-to-window-line (car (cdr relative-coordinate))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1916 ;;;!! ;; (if (= (following-char) 10) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1917 ;;;!! ;; () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1918 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1919 ;;;!! ;; (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
|
1920 ;;;!! ;; (setq begin-column (1- (current-column))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1921 ;;;!! ;; (end-of-line) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1922 ;;;!! ;; (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
|
1923 ;;;!! ;; (setq end-column (1+ (current-column))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1924 ;;;!! ;; (message "%s" (buffer-substring begin-reg end-reg)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1925 ;;;!! ;; (x-draw-rectangle screen |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1926 ;;;!! ;; (setq last-line-drawn abs-y) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1927 ;;;!! ;; begin-column |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1928 ;;;!! ;; (- end-column begin-column) 1)))))))))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1929 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1930 ;;;!! ;;(defun mouse-erase-box () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1931 ;;;!! ;; (interactive) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1932 ;;;!! ;; (if last-line-drawn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1933 ;;;!! ;; (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1934 ;;;!! ;; (x-erase-rectangle (selected-screen)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1935 ;;;!! ;; (setq last-line-drawn nil)))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1936 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1937 ;;;!! ;;; (defun test-x-rectangle () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1938 ;;;!! ;;; (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
|
1939 ;;;!! ;;; (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
|
1940 ;;;!! ;;; (define-key rectangle-test-map mouse-button-left-up 'mouse-erase-box)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1941 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1942 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1943 ;;;!! ;; 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
|
1944 ;;;!! ;; |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1945 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1946 ;;;!! (defvar double-start nil) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1947 ;;;!! (defconst double-click-interval 300 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1948 ;;;!! "Max ticks between clicks") |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1949 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1950 ;;;!! (defun double-down (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1951 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1952 ;;;!! (if double-start |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1953 ;;;!! (let ((interval (- (nth 4 event) double-start))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1954 ;;;!! (if (< interval double-click-interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1955 ;;;!! (progn |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1956 ;;;!! (backward-up-list 1) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1957 ;;;!! ;; (message "Interval %d" interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1958 ;;;!! (sleep-for 1))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1959 ;;;!! (setq double-start nil)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1960 ;;;!! (setq double-start (nth 4 event)))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1961 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1962 ;;;!! (defun double-up (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1963 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1964 ;;;!! (and double-start |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1965 ;;;!! (> (- (nth 4 event ) double-start) double-click-interval) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1966 ;;;!! (setq double-start nil))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1967 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1968 ;;;!! ;;; (defun x-test-doubleclick () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1969 ;;;!! ;;; (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
|
1970 ;;;!! ;;; (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
|
1971 ;;;!! ;;; (define-key doubleclick-test-map mouse-button-left-up 'double-up)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1972 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1973 ;;;!! ;; |
1980
263033210413
* mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1974 ;;;!! ;; 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
|
1975 ;;;!! ;; |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1976 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1977 ;;;!! (defvar scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1978 ;;;!! (defconst scroll-speed 1) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1979 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1980 ;;;!! (defun incr-scroll-down (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1981 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1982 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1983 ;;;!! (incremental-scroll scroll-speed)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1984 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1985 ;;;!! (defun incr-scroll-up (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1986 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1987 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1988 ;;;!! (incremental-scroll (- scroll-speed))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1989 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1990 ;;;!! (defun incremental-scroll (n) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1991 ;;;!! (while (= (x-mouse-events) 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1992 ;;;!! (setq scrolled-lines (1+ (* scroll-speed scrolled-lines))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1993 ;;;!! (scroll-down n) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1994 ;;;!! (sit-for 300 t))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
1995 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1996 ;;;!! (defun incr-scroll-stop (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1997 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1998 ;;;!! (message "Scrolled %d lines" scrolled-lines) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
1999 ;;;!! (setq scrolled-lines 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2000 ;;;!! (sleep-for 1)) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2001 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2002 ;;;!! ;;; (defun x-testing-scroll () |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2003 ;;;!! ;;; (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
|
2004 ;;;!! ;;; (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
|
2005 ;;;!! ;;; (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
|
2006 ;;;!! ;;; (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
|
2007 ;;;!! ;;; (define-key scrolling-map mouse-button-right-up 'incr-scroll-stop))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2008 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2009 ;;;!! ;; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2010 ;;;!! ;; 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
|
2011 ;;;!! ;; |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2012 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2013 ;;;!! (defun mouse-kill-rectangle (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2014 ;;;!! "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
|
2015 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2016 ;;;!! (let ((point-save (point))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2017 ;;;!! (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2018 ;;;!! (mouse-set-point event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2019 ;;;!! (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2020 ;;;!! (if (> point-save (point)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2021 ;;;!! (kill-rectangle (point) point-save) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2022 ;;;!! (kill-rectangle point-save (point)))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2023 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2024 ;;;!! (defun mouse-open-rectangle (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2025 ;;;!! "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
|
2026 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2027 ;;;!! (let ((point-save (point))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2028 ;;;!! (save-excursion |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2029 ;;;!! (mouse-set-point event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2030 ;;;!! (push-mark nil t) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2031 ;;;!! (if (> point-save (point)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2032 ;;;!! (open-rectangle (point) point-save) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2033 ;;;!! (open-rectangle point-save (point)))))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2034 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2035 ;;;!! ;; Must be a better way to do this. |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2036 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2037 ;;;!! (defun mouse-multiple-insert (n char) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2038 ;;;!! (while (> n 0) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2039 ;;;!! (insert char) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2040 ;;;!! (setq n (1- n)))) |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2041 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2042 ;;;!! ;; What this could do is not finalize until button was released. |
40268
3b6c70f1fe6c
(mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents:
38982
diff
changeset
|
2043 ;;;!! |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2044 ;;;!! (defun mouse-move-text (event) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2045 ;;;!! "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
|
2046 ;;;!! (interactive "@e") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2047 ;;;!! (let* ((relative-coordinate |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2048 ;;;!! (coordinates-in-window-p (car event) (selected-window)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2049 ;;;!! (if (consp relative-coordinate) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2050 ;;;!! (cond ((> (current-column) (car relative-coordinate)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2051 ;;;!! (delete-char |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2052 ;;;!! (- (car relative-coordinate) (current-column)))) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2053 ;;;!! ((< (current-column) (car relative-coordinate)) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2054 ;;;!! (mouse-multiple-insert |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2055 ;;;!! (- (car relative-coordinate) (current-column)) " ")) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2056 ;;;!! ((= (current-column) (car relative-coordinate)) (ding)))))) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2057 |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2058 ;; Choose a completion with the mouse. |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2059 |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2060 (defun mouse-choose-completion (event) |
4371
fb0e37e7afae
(mouse-choose-completion): Actually choose that alternative,
Richard M. Stallman <rms@gnu.org>
parents:
4294
diff
changeset
|
2061 "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
|
2062 (interactive "e") |
10258
0bcc67b3fe66
(mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents:
9936
diff
changeset
|
2063 ;; 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
|
2064 (run-hooks 'mouse-leave-buffer-hook) |
4788
3182c0f7ace4
(mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4751
diff
changeset
|
2065 (let ((buffer (window-buffer)) |
8477
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
2066 choice |
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
2067 base-size) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2068 (save-excursion |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2069 (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
|
2070 (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
|
2071 (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
|
2072 (setq base-size completion-base-size) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2073 (save-excursion |
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2074 (goto-char (posn-point (event-start event))) |
7593
a837cfdcf7c0
(mouse-choose-completion):
Richard M. Stallman <rms@gnu.org>
parents:
7588
diff
changeset
|
2075 (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
|
2076 (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
|
2077 (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
|
2078 (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
|
2079 (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
|
2080 (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
|
2081 (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
|
2082 (point-max))) |
7593
a837cfdcf7c0
(mouse-choose-completion):
Richard M. Stallman <rms@gnu.org>
parents:
7588
diff
changeset
|
2083 (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
|
2084 (let ((owindow (selected-window))) |
c2bb4c368553
(mouse-choose-completion): Bury the completion buffer.
Richard M. Stallman <rms@gnu.org>
parents:
6163
diff
changeset
|
2085 (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
|
2086 (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
|
2087 (window-dedicated-p (selected-window))) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
2088 ;; 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
|
2089 (iconify-frame (selected-frame)) |
10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
Richard M. Stallman <rms@gnu.org>
parents:
7637
diff
changeset
|
2090 (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
|
2091 (bury-buffer))) |
6231
c2bb4c368553
(mouse-choose-completion): Bury the completion buffer.
Richard M. Stallman <rms@gnu.org>
parents:
6163
diff
changeset
|
2092 (select-window owindow)) |
8477
f4aa7a288cb6
(mouse-choose-completion): Pass completion-base-size value
Richard M. Stallman <rms@gnu.org>
parents:
8460
diff
changeset
|
2093 (choose-completion-string choice buffer base-size))) |
4081
da352b92ca90
(mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3961
diff
changeset
|
2094 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2095 ;; Font selection. |
465 | 2096 |
4294
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2097 (defun font-menu-add-default () |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2098 (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
|
2099 (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
|
2100 (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
|
2101 (if (assoc "Default" elt) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2102 (delete (assoc "Default" elt) elt)) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2103 (setcdr elt |
25547
2992a7953ac4
(font-menu-add-default): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents:
25288
diff
changeset
|
2104 (cons (list "Default" default) |
4294
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2105 (cdr elt))))) |
644e33e3ab38
(font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4274
diff
changeset
|
2106 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2107 (defvar x-fixed-font-alist |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2108 '("Font menu" |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2109 ("Misc" |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2110 ;; 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
|
2111 ("fixed" "fixed") |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2112 ("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
|
2113 ("6x12" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2114 "-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
|
2115 ("6x13" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2116 "-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
|
2117 ("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
|
2118 ("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
|
2119 ("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
|
2120 ("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
|
2121 ("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
|
2122 ("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
|
2123 ("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
|
2124 ("") |
8487
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
2125 ("clean 5x8" |
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
2126 "-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
|
2127 ("clean 6x8" |
0a77d1dbae03
(x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents:
8477
diff
changeset
|
2128 "-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
|
2129 ("clean 8x8" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2130 "-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
|
2131 ("clean 8x10" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2132 "-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
|
2133 ("clean 8x14" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2134 "-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
|
2135 ("clean 8x16" |
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2136 "-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
|
2137 ("") |
25097
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2138 ("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
|
2139 ;;; 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
|
2140 ;;; ("fg-18" "fg-18") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2141 ;;; ("fg-25" "fg-25") |
25097
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2142 ("lucidasanstypewriter-12" "-b&h-lucidatypewriter-medium-r-normal-sans-*-120-*-*-*-*-iso8859-1") |
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2143 ("lucidasanstypewriter-bold-14" "-b&h-lucidatypewriter-bold-r-normal-sans-*-140-*-*-*-*-iso8859-1") |
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2144 ("lucidasanstypewriter-bold-24" |
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2145 "-b&h-lucidatypewriter-bold-r-normal-sans-*-240-*-*-*-*-iso8859-1") |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2146 ;;; ("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
|
2147 ;;; ("fixed-medium-20" "-misc-fixed-medium-*-*-*-20-*-*-*-*-*-*-*") |
25097
65612dade7f5
(x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents:
24962
diff
changeset
|
2148 ) |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2149 ("Courier" |
8460
5fd799a9946e
(x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents:
8426
diff
changeset
|
2150 ;; 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
|
2151 ("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
|
2152 ("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
|
2153 ("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
|
2154 ("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
|
2155 ("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
|
2156 ("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
|
2157 ("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
|
2158 ("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
|
2159 ("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
|
2160 ("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
|
2161 ("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
|
2162 ("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
|
2163 ("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
|
2164 ("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
|
2165 ("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
|
2166 ("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
|
2167 ("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
|
2168 ("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
|
2169 ("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
|
2170 ("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
|
2171 ("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
|
2172 ("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
|
2173 ("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
|
2174 ("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
|
2175 ) |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2176 "X fonts suitable for use in Emacs.") |
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2177 |
6867
0f4c8109274a
(x-fixed-font-alist): Give multiple names for try for certain fonts.
Richard M. Stallman <rms@gnu.org>
parents:
6548
diff
changeset
|
2178 (defun mouse-set-font (&rest fonts) |
17008
3a99b530ad9a
(mouse-set-font): Handle fontset.
Karl Heuer <kwzh@gnu.org>
parents:
16989
diff
changeset
|
2179 "Select an emacs font from a list of known good fonts and fontsets." |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2180 (interactive |
41633
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2181 (and (display-multi-font-p) |
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2182 (x-popup-menu |
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2183 last-nonmenu-event |
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2184 ;; Append list of fontsets currently defined. |
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2185 (append x-fixed-font-alist (list (generate-fontset-menu)))))) |
6914
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2186 (if fonts |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2187 (let (font) |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2188 (while fonts |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2189 (condition-case nil |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2190 (progn |
7021
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
2191 (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
|
2192 (setq font (car fonts)) |
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2193 (setq fonts nil)) |
7021
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
2194 (error |
da5dc735eb50
(mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents:
6923
diff
changeset
|
2195 (setq fonts (cdr fonts))))) |
6914
569c2c6d812f
(mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents:
6867
diff
changeset
|
2196 (if (null font) |
41633
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2197 (error "Font not found"))) |
dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
Eli Zaretskii <eliz@gnu.org>
parents:
41611
diff
changeset
|
2198 (message "Cannot change fonts on this display"))) |
465 | 2199 |
2200 ;;; Bindings for mouse commands. | |
2201 | |
2799
93a5aef19835
(mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents:
2632
diff
changeset
|
2202 (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
|
2203 (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
|
2204 (global-set-key [drag-mouse-1] 'mouse-set-region) |
1057
d9775f33488d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1056
diff
changeset
|
2205 |
4738
76a2ea569de5
(mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents:
4592
diff
changeset
|
2206 ;; 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
|
2207 (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
|
2208 (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
|
2209 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2210 (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
|
2211 (global-set-key [mouse-3] 'mouse-save-then-kill) |
705 | 2212 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1765
diff
changeset
|
2213 ;; 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
|
2214 ;; 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
|
2215 (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
|
2216 (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
|
2217 (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
|
2218 ;; C-down-mouse-2 is bound in facemenu.el. |
30328
7ce202715b72
(popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents:
30312
diff
changeset
|
2219 (global-set-key [C-down-mouse-3] 'mouse-popup-menubar-stuff) |
9488
114fe3739aa3
(mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents:
9206
diff
changeset
|
2220 |
1100
5b3b202a84c8
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1064
diff
changeset
|
2221 |
1056
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
2222 ;; Replaced with dragging mouse-1 |
a7fc54083464
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
2223 ;; (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
|
2224 |
32327
140165e85530
([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents:
32319
diff
changeset
|
2225 ;; Binding mouse-1 to mouse-select-window when on mode-, header-, or |
140165e85530
([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents:
32319
diff
changeset
|
2226 ;; vertical-line prevents Emacs from signaling an error when the mouse |
140165e85530
([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents:
32319
diff
changeset
|
2227 ;; button is released after dragging these lines, on non-toolkit |
140165e85530
([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents:
32319
diff
changeset
|
2228 ;; versions. |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
2229 (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
|
2230 (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
|
2231 (global-set-key [mode-line down-mouse-1] 'mouse-drag-mode-line) |
25618
ed0f7bf2cfc7
(mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents:
25547
diff
changeset
|
2232 (global-set-key [header-line down-mouse-1] 'mouse-drag-header-line) |
32327
140165e85530
([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents:
32319
diff
changeset
|
2233 (global-set-key [header-line mouse-1] 'mouse-select-window) |
6090
e7c900a464d3
(help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents:
6003
diff
changeset
|
2234 (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
|
2235 (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
|
2236 (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
|
2237 (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
|
2238 (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
|
2239 (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
|
2240 (global-set-key [vertical-line mouse-1] 'mouse-select-window) |
584 | 2241 |
2242 (provide 'mouse) | |
2243 | |
25288
65dbd144132d
Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents:
25097
diff
changeset
|
2244 ;; This file contains the functionality of the old mldrag.el. |
65dbd144132d
Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents:
25097
diff
changeset
|
2245 (defalias 'mldrag-drag-mode-line 'mouse-drag-mode-line) |
65dbd144132d
Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents:
25097
diff
changeset
|
2246 (defalias 'mldrag-drag-vertical-line 'mouse-drag-vertical-line) |
29353
42c2692d3933
Add a version to the obsoletions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29344
diff
changeset
|
2247 (make-obsolete 'mldrag-drag-mode-line 'mouse-drag-mode-line "21.1") |
42c2692d3933
Add a version to the obsoletions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29344
diff
changeset
|
2248 (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1") |
25288
65dbd144132d
Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents:
25097
diff
changeset
|
2249 (provide 'mldrag) |
65dbd144132d
Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents:
25097
diff
changeset
|
2250 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2251 ;;; mouse.el ends here |