annotate lisp/mouse.el @ 109112:a46a2b77a8b1

Simplify mouse-dragging implementation. Now that DEL deletes active regions, we can handle it by using the ordinary region instead of a separate overlay. * mouse.el (mouse-drag-overlay): Variable deleted. (mouse-move-drag-overlay, mouse-show-mark): Functions deleted. (mouse--remap-link-click-p): New function. (mouse-drag-track): Handle dragging by using temporary Transient Mark mode, instead of a special overlay. (mouse-kill-ring-save, mouse-save-then-kill): Don't call mouse-show-mark. * mouse-sel.el (mouse-sel-selection-alist): mouse-drag-overlay deleted.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 02 Jul 2010 23:07:48 -0400
parents d8144fe7f3f8
children 6b22e0739484
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
1 ;;; mouse.el --- window system-independent mouse support
791
203c23c9f22c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 758
diff changeset
2
96062
585941e8f7bc (buffer-face-mode-invoke): Declare.
Glenn Morris <rgm@gnu.org>
parents: 96043
diff changeset
3 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001, 2002, 2003, 2004,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 105994
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 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
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
9 ;; This file is part of GNU Emacs.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94162
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94162
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94162
diff changeset
14 ;; (at your option) any later version.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
19 ;; GNU General Public License for more details.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13307
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94162
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
2308
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
24 ;;; Commentary:
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
25
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
26 ;; This package provides various useful commands (including help
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
27 ;; system access) through the mouse. All this code assumes that mouse
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
28 ;; interpretation has been abstracted into Emacs input events.
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
29 ;;
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
30 ;; The code is rather X-dependent.
f287613dfc28 Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2232
diff changeset
31
2232
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2070
diff changeset
32 ;;; Code:
4f9d60f7de9d Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2070
diff changeset
33
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
34 ;;; Utility functions.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
35
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
36 ;; Indent track-mouse like progn.
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
37 (put 'track-mouse 'lisp-indent-function 0)
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
39 (defcustom mouse-yank-at-point nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
40 "If non-nil, mouse yank commands yank at point instead of at click."
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
41 :type 'boolean
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
42 :group 'mouse)
55260
f547921c38ba (mouse-drag-copy-region): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 54867
diff changeset
43
f547921c38ba (mouse-drag-copy-region): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 54867
diff changeset
44 (defcustom mouse-drag-copy-region t
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
45 "If non-nil, mouse drag copies region to kill-ring."
55260
f547921c38ba (mouse-drag-copy-region): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 54867
diff changeset
46 :type 'boolean
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 59526
diff changeset
47 :version "22.1"
55260
f547921c38ba (mouse-drag-copy-region): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 54867
diff changeset
48 :group 'mouse)
f547921c38ba (mouse-drag-copy-region): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 54867
diff changeset
49
61160
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
50 (defcustom mouse-1-click-follows-link 450
59036
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
51 "Non-nil means that clicking Mouse-1 on a link follows the link.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
52
59036
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
53 With the default setting, an ordinary Mouse-1 click on a link
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
54 performs the same action as Mouse-2 on that link, while a longer
66123
e7767b4c6597 (mouse-1-click-follows-link): Doc fix.
Romain Francoise <romain@orebokech.com>
parents: 66085
diff changeset
55 Mouse-1 click \(hold down the Mouse-1 button for more than 450
59036
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
56 milliseconds) performs the original Mouse-1 binding \(which
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
57 typically sets point where you click the mouse).
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
58
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
59 If value is an integer, the time elapsed between pressing and
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
60 releasing the mouse button determines whether to follow the link
59036
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
61 or perform the normal Mouse-1 action (typically set point).
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
62 The absolute numeric value specifices the maximum duration of a
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
63 \"short click\" in milliseconds. A positive value means that a
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
64 short click follows the link, and a longer click performs the
63256
08eb8fe4b5ef (mouse-1-click-follows-link): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 61767
diff changeset
65 normal action. A negative value gives the opposite behavior.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
66
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
67 If value is `double', a double click follows the link.
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
68
59036
f1a383c1b9cd (mouse-1-click-follows-link): Doc fix.
Kim F. Storm <storm@cua.dk>
parents: 59016
diff changeset
69 Otherwise, a single Mouse-1 click unconditionally follows the link.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
70
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
71 Note that dragging the mouse never follows the link.
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
72
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
73 This feature only works in modes that specifically identify
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
74 clickable text as links, so it may not work with some external
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
75 packages. See `mouse-on-link-p' for details."
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 59526
diff changeset
76 :version "22.1"
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
77 :type '(choice (const :tag "Disabled" nil)
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
78 (const :tag "Double click" double)
66123
e7767b4c6597 (mouse-1-click-follows-link): Doc fix.
Romain Francoise <romain@orebokech.com>
parents: 66085
diff changeset
79 (number :tag "Single click time limit" :value 450)
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
80 (other :tag "Single click" t))
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
81 :group 'mouse)
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
82
60253
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
83 (defcustom mouse-1-click-in-non-selected-windows t
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
84 "If non-nil, a Mouse-1 click also follows links in non-selected windows.
60253
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
85
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
86 If nil, a Mouse-1 click on a link in a non-selected window performs
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
87 the normal mouse-1 binding, typically selects the window and sets
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
88 point at the click position."
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
89 :type 'boolean
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
90 :version "22.1"
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
91 :group 'mouse)
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
92
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
93
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
94
9488
114fe3739aa3 (mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents: 9206
diff changeset
95 ;; 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
96
30312
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
97 (defun popup-menu (menu &optional position prefix)
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
98 "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
99 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
100 `x-popup-menu'.
30312
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
101 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
102 the current mouse position.
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
103 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
104 (let* ((map (cond
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
105 ((keymapp menu) menu)
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
106 ((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
107 (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
108 (filter (when (symbolp map)
7596dea75d6b (popup-menu): Stupid typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32327
diff changeset
109 (plist-get (get map 'menu-prop) :filter))))
7596dea75d6b (popup-menu): Stupid typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32327
diff changeset
110 (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
111 event cmd)
31912
83fe15f82f7e (popup-menu): If POSITION is nil, set it using
Dave Love <fx@gnu.org>
parents: 31390
diff changeset
112 (unless position
31923
d257713e8d6d Fix last change.
Dave Love <fx@gnu.org>
parents: 31912
diff changeset
113 (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
114 (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
115 ;; 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
116 (while (and map (setq event
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
117 ;; 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
118 ;; 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
119 ;; definition.
31923
d257713e8d6d Fix last change.
Dave Love <fx@gnu.org>
parents: 31912
diff changeset
120 (x-popup-menu position (indirect-function map))))
30312
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
121 ;; Strangely x-popup-menu returns a list.
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
122 ;; mouse-major-mode-menu was using a weird:
a97801b43475 (popup-menu): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 30249
diff changeset
123 ;; (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
124 (setq cmd
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
125 (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
126 ;; 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
127 ;; 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
128 (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
129 binding)
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
130 (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
131 (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
132 (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
133 (setq binding nil))
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
134 (setq map (cdr map)))
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
135 binding)
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
136 ;; 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
137 (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
138 ;; 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
139 (message "")
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
140 ;; 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
141 (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
142 ;; 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
143 ;; 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
144 (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
145 (setq prefix-arg prefix)
b95ac47063ce (popup-menu): Move the command call outside the loop
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32269
diff changeset
146 ;; `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
147 ;; 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
148 (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
149 ;; mouse-major-mode-menu was using `command-execute' instead.
32319
452e7cc818ac (popup-menu): Balance parens.
Miles Bader <miles@gnu.org>
parents: 32312
diff changeset
150 (call-interactively cmd))))
30425
ad577e2e48d3 (popup-menu): Set last-command-event.
Dave Love <fx@gnu.org>
parents: 30421
diff changeset
151
85434
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
152 (defun minor-mode-menu-from-indicator (indicator)
92046
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
153 "Show menu for minor mode specified by INDICATOR.
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
154 Interactively, INDICATOR is read using completion.
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
155 If there is no menu defined for the minor mode, then create one with
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
156 items `Turn Off' and `Help'."
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
157 (interactive
94162
6832f57d6232 (mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff):
Juanma Barranquero <lekktu@gmail.com>
parents: 93889
diff changeset
158 (list (completing-read
92046
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
159 "Minor mode indicator: "
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
160 (describe-minor-mode-completion-table-for-indicator))))
105048
1eb4a432a8ae (minor-mode-menu-from-indicator): Pay attention
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103950
diff changeset
161 (let* ((minor-mode (lookup-minor-mode-from-indicator indicator))
1eb4a432a8ae (minor-mode-menu-from-indicator): Pay attention
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103950
diff changeset
162 (mm-fun (or (get minor-mode :minor-mode-function) minor-mode)))
92046
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
163 (unless minor-mode (error "Cannot find minor mode for `%s'" indicator))
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
164 (let* ((map (cdr-safe (assq minor-mode minor-mode-map-alist)))
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
165 (menu (and (keymapp map) (lookup-key map [menu-bar]))))
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
166 (setq menu
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
167 (if menu
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
168 (mouse-menu-non-singleton menu)
92046
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
169 `(keymap
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
170 ,indicator
105048
1eb4a432a8ae (minor-mode-menu-from-indicator): Pay attention
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103950
diff changeset
171 (turn-off menu-item "Turn Off minor mode" ,mm-fun)
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
172 (help menu-item "Help for minor mode"
94162
6832f57d6232 (mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff):
Juanma Barranquero <lekktu@gmail.com>
parents: 93889
diff changeset
173 (lambda () (interactive)
105048
1eb4a432a8ae (minor-mode-menu-from-indicator): Pay attention
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 103950
diff changeset
174 (describe-function ',mm-fun))))))
92046
3831642b30d0 * mouse.el (minor-mode-menu-from-indicator): Create a menu with a
Dan Nicolaescu <dann@ics.uci.edu>
parents: 91611
diff changeset
175 (popup-menu menu))))
85434
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
176
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
177 (defun mouse-minor-mode-menu (event)
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
178 "Show minor-mode menu for EVENT on minor modes area of the mode line."
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
179 (interactive "@e")
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
180 (let ((indicator (car (nth 4 (car (cdr event))))))
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
181 (minor-mode-menu-from-indicator indicator)))
1921151f9249 (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Glenn Morris <rgm@gnu.org>
parents: 82298
diff changeset
182
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
183 (defun mouse-menu-major-mode-map ()
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
184 (let* (;; Keymap from which to inherit; may be null.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
185 (ancestor (mouse-menu-non-singleton
24960
00d2eba70774 (mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents: 23854
diff changeset
186 (and (current-local-map)
31258
12f2e341ee9c (mouse-major-mode-menu): Use local-key-binding.
Dave Love <fx@gnu.org>
parents: 30425
diff changeset
187 (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
188 ;; 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
189 ;; 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
190 (newmap (if ancestor
87567
4c3c683cdff8 * erc-ibuffer.el (erc-channel-modes):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87387
diff changeset
191 (make-sparse-keymap (concat (format-mode-line mode-name)
4c3c683cdff8 * erc-ibuffer.el (erc-channel-modes):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87387
diff changeset
192 " Mode"))
87636
08663683b8a1 (mouse-major-mode-menu): Suppress duplicate menus.
Glenn Morris <rgm@gnu.org>
parents: 87574
diff changeset
193 menu-bar-edit-menu))
08663683b8a1 (mouse-major-mode-menu): Suppress duplicate menus.
Glenn Morris <rgm@gnu.org>
parents: 87574
diff changeset
194 uniq)
24960
00d2eba70774 (mouse-major-mode-menu): Default to menu-bar-edit-menu
Dave Love <fx@gnu.org>
parents: 23854
diff changeset
195 (if ancestor
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
196 (set-keymap-parent newmap ancestor))
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
197 newmap))
9488
114fe3739aa3 (mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents: 9206
diff changeset
198
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
199 (defun mouse-menu-non-singleton (menubar)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
200 "Given menu keymap,
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
201 if it defines exactly one submenu, return just that submenu.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
202 Otherwise return the whole menu."
9488
114fe3739aa3 (mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents: 9206
diff changeset
203 (if menubar
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
204 (let (submap)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
205 (map-keymap
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
206 (lambda (k v) (setq submap (if submap t (cons k v))))
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
207 (keymap-canonicalize menubar))
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
208 (if (eq submap t)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
209 menubar
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
210 (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
211
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
212 (defun mouse-menu-bar-map ()
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
213 "Return a keymap equivalent to the menu bar.
30328
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
214 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
215 not it is actually displayed."
30421
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
216 (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
217 (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
218 (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
219 ;; 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
220 ;; 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
221 ;; 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
222 ;; 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
223 ;; display non-empty menu pane names.
f329cce08485 (mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents: 31258
diff changeset
224 (minor-mode-menus
f329cce08485 (mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents: 31258
diff changeset
225 (mapcar
93664
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
226 (lambda (menu)
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
227 (let* ((minor-mode (car menu))
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
228 (menu (cdr menu))
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
229 (title-or-map (cadr menu)))
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
230 (or (stringp title-or-map)
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
231 (setq menu
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
232 (cons 'keymap
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
233 (cons (concat
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
234 (capitalize (subst-char-in-string
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
235 ?- ?\s (symbol-name
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
236 minor-mode)))
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
237 " Menu")
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
238 (cdr menu)))))
c7dd307b0ec5 * subr.el (keymap-canonicalize): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93549
diff changeset
239 menu))
31329
f329cce08485 (mouse-popup-menubar): Supply the prompt string for
Eli Zaretskii <eliz@gnu.org>
parents: 31258
diff changeset
240 (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
241 (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
242 (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
243 (or (null local-menu)
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
244 (stringp local-title-or-map)
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
245 (setq local-menu (cons 'keymap
87574
21fcd219fd6e * mouse.el (mouse-popup-menubar): Fix typo.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 87567
diff changeset
246 (cons (concat (format-mode-line mode-name)
87567
4c3c683cdff8 * erc-ibuffer.el (erc-channel-modes):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87387
diff changeset
247 " Mode Menu")
30421
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
248 (cdr local-menu)))))
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
249 (or (stringp global-title-or-map)
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
250 (setq global-menu (cons 'keymap
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
251 (cons "Global Menu"
544a9b8ebb8d (popup-menu): Run the keymap through indirect-function,
Eli Zaretskii <eliz@gnu.org>
parents: 30328
diff changeset
252 (cdr global-menu)))))
30328
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
253 ;; Supplying the list is faster than making a new map.
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
254 ;; FIXME: We have a problem here: we have to use the global/local/minor
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
255 ;; so they're displayed in the expected order, but later on in the command
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
256 ;; loop, they're actually looked up in the opposite order.
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
257 (apply 'append
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
258 global-menu
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
259 local-menu
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
260 minor-mode-menus)))
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
261
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
262 (defun mouse-major-mode-menu (event &optional prefix)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
263 "Pop up a mode-specific menu of mouse commands.
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
264 Default to the Edit menu if the major mode doesn't define a menu."
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
265 (interactive "@e\nP")
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
266 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
267 (popup-menu (mouse-menu-major-mode-map) event prefix))
94162
6832f57d6232 (mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff):
Juanma Barranquero <lekktu@gmail.com>
parents: 93889
diff changeset
268 (make-obsolete 'mouse-major-mode-menu 'mouse-menu-major-mode-map "23.1")
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
269
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
270 (defun mouse-popup-menubar (event prefix)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
271 "Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX.
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
272 The contents are the items that would be in the menu bar whether or
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
273 not it is actually displayed."
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
274 (interactive "@e \nP")
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
275 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
276 (popup-menu (mouse-menu-bar-map) event prefix))
94162
6832f57d6232 (mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff):
Juanma Barranquero <lekktu@gmail.com>
parents: 93889
diff changeset
277 (make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map "23.1")
30328
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
278
7ce202715b72 (popup-menu): Allow a list of keymaps for menu arg.
Dave Love <fx@gnu.org>
parents: 30312
diff changeset
279 (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
280 "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
281 Use the former if the menu bar is showing, otherwise the latter."
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
282 (interactive "@e\nP")
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
283 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
284 (popup-menu
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
285 (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0))
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
286 (mouse-menu-bar-map)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
287 (mouse-menu-major-mode-map))
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
288 event prefix))
94162
6832f57d6232 (mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff):
Juanma Barranquero <lekktu@gmail.com>
parents: 93889
diff changeset
289 (make-obsolete 'mouse-popup-menubar-stuff nil "23.1")
9488
114fe3739aa3 (mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents: 9206
diff changeset
290
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
291 ;; 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
292
6266
66c0ed95c03f (mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents: 6231
diff changeset
293 (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
294 (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
295 (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
296 (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
297 (error "Minibuffer window is not active")))
0bcc67b3fe66 (mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents: 9936
diff changeset
298 ;; 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
299 (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
300
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
301 (defun mouse-delete-window (click)
1214
467833df795b (mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents: 1113
diff changeset
302 "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
303 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
304 This command must be bound to a mouse click."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
305 (interactive "e")
38763
3cf8f8ea6d0e (mouse-delete-window): Do nothing if frame has just
Gerd Moellmann <gerd@gnu.org>
parents: 37741
diff changeset
306 (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
307 (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
308 (delete-window (posn-window (event-start click)))))
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
309
6090
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
310 (defun mouse-select-window (click)
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
311 "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
312 (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
313 (mouse-minibuffer-check click)
6090
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
314 (let ((oframe (selected-frame))
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
315 (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
316 (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
317 (raise-frame frame)
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
318 (select-frame frame)
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
319 (or (eq frame oframe)
16087
26b552f014ff (mouse-select-window): Don't call unfocus-frame.
Richard M. Stallman <rms@gnu.org>
parents: 16016
diff changeset
320 (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
321
1421
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
322 (defun mouse-tear-off-window (click)
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
323 "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
324 (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
325 (mouse-minibuffer-check click)
1421
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
326 (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
327 (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
328 (frame (make-frame)))
1421
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
329 (select-frame frame)
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
330 (switch-to-buffer buf)
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
331 (delete-window window)))
a8378792a31d * mouse.el (mouse-tear-off-window): New function.
Jim Blandy <jimb@redhat.com>
parents: 1420
diff changeset
332
1363
f34d8e4d1d7b * mouse.el: Begin adapting this to the new event format.
Jim Blandy <jimb@redhat.com>
parents: 1214
diff changeset
333 (defun mouse-delete-other-windows ()
37741
7b449aec29d2 (mouse-delete-other-windows): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 36134
diff changeset
334 "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
335 (interactive "@")
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 (delete-other-windows))
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
338 (defun mouse-split-window-vertically (click)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
339 "Select Emacs window mouse is on, then split it vertically in half.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
340 The window is split at the line clicked on.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
341 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
342 (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
343 (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
344 (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
345 (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
346 (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
347 (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
348 (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
349 (if (< last-line first-line)
8426
3abe02e03dc8 Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents: 8381
diff changeset
350 (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
351 (split-window-vertically
263033210413 * mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
352 (min (max new-height first-line) last-line))))))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353
1214
467833df795b (mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents: 1113
diff changeset
354 (defun mouse-split-window-horizontally (click)
467833df795b (mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents: 1113
diff changeset
355 "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
356 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
357 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
358 (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
359 (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
360 (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
361 (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
362 (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
363 (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
364 (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
365 (if (< last-col first-col)
8426
3abe02e03dc8 Capitalize some error messages.
Richard M. Stallman <rms@gnu.org>
parents: 8381
diff changeset
366 (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
367 (split-window-horizontally
263033210413 * mouse.el (mouse-split-window-vertically): If the user clicks too
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
368 (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
369
42399
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
370 (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
371 "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
372 That means one whose bottom edge is at the same height as WINDOW's top edge."
67954
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
373 (let ((start-top (nth 1 (window-edges window)))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
374 (start-left (nth 0 (window-edges window)))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
375 (start-right (nth 2 (window-edges window)))
42399
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
376 (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
377 above-window)
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
378 (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
379 (while (and (not above-window) (not (eq window start-window)))
67954
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
380 (let ((left (nth 0 (window-edges window)))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
381 (right (nth 2 (window-edges window))))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
382 (when (and (= (+ (window-height window) (nth 1 (window-edges window)))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
383 start-top)
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
384 (or (and (<= left start-left) (<= start-right right))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
385 (and (<= start-left left) (<= left start-right))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
386 (and (<= start-left right) (<= right start-right))))
f223df02d351 (mouse-drag-window-above): Verify that the found window overlaps with the
Eli Zaretskii <eliz@gnu.org>
parents: 67870
diff changeset
387 (setq above-window window)))
42399
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
388 (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
389 above-window))
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
390
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
391 (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
392 "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
393 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
394 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
395 shrink the window or windows above it to make room."
67158
2c91c2e7af3a (mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 66669
diff changeset
396 (condition-case nil
2c91c2e7af3a (mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 66669
diff changeset
397 (adjust-window-trailing-edge window growth nil)
2c91c2e7af3a (mouse-drag-move-window-bottom): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 66669
diff changeset
398 (error nil)))
42399
92c21a38c096 (mouse-drag-mode-line-1): When dragging a mode line upward,
Richard M. Stallman <rms@gnu.org>
parents: 42149
diff changeset
399
57569
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
400 (defsubst mouse-drag-move-window-top (window growth)
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
401 "Move the top of WINDOW up or down by GROWTH lines.
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
402 Move it down if GROWTH is positive, or up if GROWTH is negative.
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
403 If this would make WINDOW too short, shrink the window or windows
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
404 above it to make room."
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
405 ;; Moving the top of WINDOW is actually moving the bottom of the
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
406 ;; window above.
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
407 (let ((window-above (mouse-drag-window-above window)))
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
408 (and window-above
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
409 (mouse-drag-move-window-bottom window-above (- growth)))))
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
410
25618
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
411 (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
412 "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
413 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
414 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
415 ;; 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
416 (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
417 (let* ((done nil)
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
418 (echo-keystrokes 0)
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
419 (start (event-start start-event))
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
420 (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
421 (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
422 (start-nwindows (count-windows t))
101722
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
423 (on-link (and mouse-1-click-follows-link
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
424 (or mouse-1-click-in-non-selected-windows
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
425 (eq (posn-window start) (selected-window)))
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
426 (mouse-on-link-p start)))
32207
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
427 (minibuffer (frame-parameter nil 'minibuffer))
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
428 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
429 (track-mouse
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
430 (progn
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
431 ;; 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
432 ;; 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
433 (setq should-enlarge-minibuffer
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
434 (and minibuffer
25618
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
435 mode-line-p
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
436 (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
437 (= (nth 1 (window-edges minibuffer))
76293
91a6d7f7e1a7 (mouse-drag-mode-line-1, mouse-drag-vertical-line):
Richard M. Stallman <rms@gnu.org>
parents: 76155
diff changeset
438 (nth 3 (window-edges start-event-window)))))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
439
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
440 ;; 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
441 ;; the mouse.
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
442 (while (not done)
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
443 (setq event (read-event)
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
444 mouse (mouse-position))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
445
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
446 ;; do nothing if
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
447 ;; - 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
448 ;; - 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
449 ;; - 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
450 ;; drag if
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
451 ;; - 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
452 ;; - 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
453 ;; (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
454 ;; quit if
78067
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
455 ;; - there is a keyboard event or some other unknown event.
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
456 (cond ((not (consp event))
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
457 (setq done t))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
458
59470
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
459 ((memq (car event) '(switch-frame select-window))
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
460 nil)
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
461
32207
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
462 ((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
463 (when (consp event)
78067
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
464 ;; Do not unread a drag-mouse-1 event since it will cause the
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
465 ;; selection of the window above when dragging the modeline
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
466 ;; above the selected window.
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
467 (unless (eq (car event) 'drag-mouse-1)
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
468 (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
469 (setq done t))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
470
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
471 ((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
472 nil)
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
473
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
474 ((null (car (cdr mouse)))
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
475 nil)
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
476
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
477 (t
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
478 (setq y (cdr (cdr mouse))
76293
91a6d7f7e1a7 (mouse-drag-mode-line-1, mouse-drag-vertical-line):
Richard M. Stallman <rms@gnu.org>
parents: 76155
diff changeset
479 edges (window-edges start-event-window)
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
480 top (nth 1 edges)
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
481 bot (nth 3 edges))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
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 ;; compute size change needed
25618
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
484 (cond (mode-line-p
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
485 (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
486 (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
487 (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
488 (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
489 ;; 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
490 (setq growth (- top y))))
25618
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
491 (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
492
16636
ba78d234fe6c (mouse-drag-mode-line): Don't get error
Richard M. Stallman <rms@gnu.org>
parents: 16621
diff changeset
493 ;; 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
494 (when (and (/= growth 0)
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
495 (not minibuffer)
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
496 (one-window-p t))
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
497 (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
498
101722
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
499 ;; If we ever move, make sure we don't mistakenly treat
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
500 ;; some unexpected `mouse-1' final event as a sign that
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
501 ;; this whole drag was nothing more than a click.
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
502 (if (/= growth 0) (setq on-link nil))
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
503
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
504 ;; grow/shrink minibuffer?
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
505 (if should-enlarge-minibuffer
68858
bb38a98ef7ad (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom
Richard M. Stallman <rms@gnu.org>
parents: 68734
diff changeset
506 (unless resize-mini-windows
bb38a98ef7ad (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom
Richard M. Stallman <rms@gnu.org>
parents: 68734
diff changeset
507 (mouse-drag-move-window-bottom start-event-window growth))
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
508 ;; 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
509 ;(message "growth = %d" growth)
57569
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
510 (if mode-line-p
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
511 (mouse-drag-move-window-bottom start-event-window growth)
f2e8ab894ad3 (mouse-drag-move-window-top): New function.
David Ponce <david@dponce.com>
parents: 57524
diff changeset
512 (mouse-drag-move-window-top start-event-window growth)))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
513
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
514 ;; 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
515 ;; 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
516 ;; short, rescind the change.
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
517 ;;
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
518 ;; 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
519 ;; 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
520 ;; 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
521 ;; 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
522 ;; 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
523 ;; around it.
32207
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
524 (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
525 (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
526 (> growth 0)
32207
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
527 mode-line-p
78067
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
528 (/= top
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
529 (nth 1 (window-edges
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
530 ;; Choose right window.
b24147eb76bb (mouse-drag-mode-line-1): Quit mouse tracking when
Martin Rudalics <rudalics@gmx.at>
parents: 76876
diff changeset
531 start-event-window)))))
101722
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
532 (set-window-configuration wconfig)))))
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
533
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
534 ;; Presumably if this was just a click, the last event should
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
535 ;; be `mouse-1', whereas if this did move the mouse, it should be
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
536 ;; a `drag-mouse-1'. In any case `on-link' would have been nulled
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
537 ;; above if there had been any significant mouse movement.
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
538 (when (and on-link (eq 'mouse-1 (car-safe event)))
c65ecdf80c27 (mouse-drag-mode-line-1): Obey mouse-1-click-follows-link.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101581
diff changeset
539 (push (cons 'mouse-2 (cdr event)) unread-command-events))))))
25618
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
540
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
541 (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
542 "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
543 (interactive "e")
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
544 (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
545
ed0f7bf2cfc7 (mouse-drag-mode-line-1): Extension of former
Gerd Moellmann <gerd@gnu.org>
parents: 25547
diff changeset
546 (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
547 "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
548 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
549 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
550 (interactive "e")
32207
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
551 ;; 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
552 ;; 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
553 ;; 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
554 (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
555 (window (posn-window start))
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
556 (frame (window-frame window))
03dee1b8a506 (mouse-drag-header-line): Don't allow window resizing
Gerd Moellmann <gerd@gnu.org>
parents: 31923
diff changeset
557 (first-window (frame-first-window frame)))
65349
3607a394b655 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 64762
diff changeset
558 (unless (or (eq window first-window)
3607a394b655 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 64762
diff changeset
559 (= (nth 1 (window-edges window))
3607a394b655 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 64762
diff changeset
560 (nth 1 (window-edges first-window))))
3607a394b655 *** empty log message ***
Chong Yidong <cyd@stupidchicken.com>
parents: 64762
diff changeset
561 (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
562
8519
7802e26b3bfd (mouse-drag-mode-line): New function (from mldrag.el,
Richard M. Stallman <rms@gnu.org>
parents: 8487
diff changeset
563
71391
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
564 (defun mouse-drag-vertical-line-rightward-window (window)
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
565 "Return a window that is immediately to the right of WINDOW, or nil."
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
566 (let ((bottom (nth 3 (window-inside-edges window)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
567 (left (nth 0 (window-inside-edges window)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
568 best best-right
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
569 (try (previous-window window)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
570 (while (not (eq try window))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
571 (let ((try-top (nth 1 (window-inside-edges try)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
572 (try-bottom (nth 3 (window-inside-edges try)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
573 (try-right (nth 2 (window-inside-edges try))))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
574 (if (and (< try-top bottom)
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
575 (>= try-bottom bottom)
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
576 (< try-right left)
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
577 (or (null best-right) (> try-right best-right)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
578 (setq best-right try-right best try)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
579 (setq try (previous-window try)))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
580 best))
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
581
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
582 (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
583 "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
584 (interactive "e")
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
585 ;; 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
586 (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
587 (let* ((done nil)
988d8082f292 (mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents: 20124
diff changeset
588 (echo-keystrokes 0)
988d8082f292 (mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents: 20124
diff changeset
589 (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
590 (start-event-window (car (car (cdr start-event))))
72999
c983ed5a8049 (mouse-on-link-p): Tentatively fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72890
diff changeset
591 event mouse x left right edges growth
20686
988d8082f292 (mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents: 20124
diff changeset
592 (which-side
988d8082f292 (mouse-drag-vertical-line): Properly determine which
Richard M. Stallman <rms@gnu.org>
parents: 20124
diff changeset
593 (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
594 'right)))
69514
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
595 (cond
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
596 ((one-window-p t)
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
597 (error "Attempt to resize sole ordinary window"))
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
598 ((and (eq which-side 'right)
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
599 (>= (nth 2 (window-inside-edges start-event-window))
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
600 (frame-width start-event-frame)))
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
601 (error "Attempt to drag rightmost scrollbar"))
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
602 ((and (eq which-side 'left)
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
603 (= (nth 0 (window-inside-edges start-event-window)) 0))
4540a0223bcc * mouse.el (mouse-drag-vertical-line): Use window-inside-edges
Chong Yidong <cyd@stupidchicken.com>
parents: 68858
diff changeset
604 (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
605 (track-mouse
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
606 (progn
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
607 ;; 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
608 ;; the mouse.
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
609 (while (not done)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
610 (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
611 mouse (mouse-position))
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
612 ;; do nothing if
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
613 ;; - 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
614 ;; - 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
615 ;; - 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
616 ;; drag if
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
617 ;; - 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
618 ;; - 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
619 ;; (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
620 ;; quit if
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
621 ;; - 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
622 ;; unknown event.
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
623 (cond ((integerp event)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
624 (setq done t))
59470
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
625 ((memq (car event) '(switch-frame select-window))
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
626 nil)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
627 ((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
628 '(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
629 (if (consp event)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
630 (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
631 (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
632 (setq done t))
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
633 ((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
634 nil)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
635 ((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
636 nil)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
637 (t
67524
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
638 (let ((window
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
639 ;; If the scroll bar is on the window's left,
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
640 ;; adjust the window on the left.
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
641 (if (eq which-side 'right)
76293
91a6d7f7e1a7 (mouse-drag-mode-line-1, mouse-drag-vertical-line):
Richard M. Stallman <rms@gnu.org>
parents: 76155
diff changeset
642 start-event-window
71391
baf495881cff (mouse-drag-vertical-line-rightward-window): New function.
Richard M. Stallman <rms@gnu.org>
parents: 69514
diff changeset
643 (mouse-drag-vertical-line-rightward-window
76293
91a6d7f7e1a7 (mouse-drag-mode-line-1, mouse-drag-vertical-line):
Richard M. Stallman <rms@gnu.org>
parents: 76155
diff changeset
644 start-event-window))))
20124
ecae234a33bb (mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents: 18689
diff changeset
645 (setq x (- (car (cdr mouse))
23854
cb2244476b40 (mouse-drag-vertical-line):
Karl Heuer <kwzh@gnu.org>
parents: 23619
diff changeset
646 (if (eq which-side 'right) 0 2))
67524
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
647 edges (window-edges window)
20124
ecae234a33bb (mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents: 18689
diff changeset
648 left (nth 0 edges)
ecae234a33bb (mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents: 18689
diff changeset
649 right (nth 2 edges))
ecae234a33bb (mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents: 18689
diff changeset
650 ;; 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
651 ;; window too thin.
ecae234a33bb (mouse-drag-vertical-line): Handle left-side scroll bars.
Karl Heuer <kwzh@gnu.org>
parents: 18689
diff changeset
652 (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
653 (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
654 ;; compute size change needed
67524
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
655 (setq growth (- x right -1))
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
656 (condition-case nil
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
657 (adjust-window-trailing-edge window growth t)
9014ad13a926 (mouse-drag-vertical-line): Use adjust-window-trailing-edge.
Richard M. Stallman <rms@gnu.org>
parents: 67158
diff changeset
658 (error nil))))))))))
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
659
4554
cf541ed1fed8 (mouse-set-point): Use event-end, not event-start.
Richard M. Stallman <rms@gnu.org>
parents: 4532
diff changeset
660 (defun mouse-set-point (event)
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
661 "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
662 This should be bound to a mouse click event type."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
663 (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
664 (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
665 ;; 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
666 ;; If EVENT is a click, event-end and event-start give same value.
54867
c59162a8d0f8 (mouse-set-point): Use it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53133
diff changeset
667 (posn-set-point (event-end event)))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668
10720
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
669 (defvar mouse-last-region-beg nil)
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
670 (defvar mouse-last-region-end nil)
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
671 (defvar mouse-last-region-tick nil)
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
672
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
673 (defun mouse-region-match ()
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
674 "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
675 (and (mark t) mark-active
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
676 (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
677 (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
678 (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
679
1420
4005f73e5712 (mouse-set-region): New command. Bind drag-mouse-1 to it.
Richard M. Stallman <rms@gnu.org>
parents: 1363
diff changeset
680 (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
681 "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
682 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
683 (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
684 (mouse-minibuffer-check click)
103893
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
685 (select-window (posn-window (event-start click)))
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
686 (let ((beg (posn-point (event-start click)))
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
687 (end (posn-point (event-end click))))
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
688 (and mouse-drag-copy-region (integerp beg) (integerp end)
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
689 ;; Don't set this-command to `kill-region', so a following
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
690 ;; C-w won't double the text in the kill ring. Ignore
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
691 ;; `last-command' so we don't append to a preceding kill.
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
692 (let (this-command last-command deactivate-mark)
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
693 (copy-region-as-kill beg end)))
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
694 (if (numberp beg) (goto-char beg))
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
695 ;; On a text terminal, bounce the cursor.
12078
eb9f9e9cd522 (mouse-set-region): Don't bounce the cursor on X.
Karl Heuer <kwzh@gnu.org>
parents: 11863
diff changeset
696 (or transient-mark-mode
103893
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
697 (window-system)
2799
93a5aef19835 (mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents: 2632
diff changeset
698 (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
699 (push-mark)
103893
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
700 ;; If `select-active-regions' is non-nil, `set-mark' sets the
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
701 ;; primary selection to the buffer's region, overriding the role
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
702 ;; of `copy-region-as-kill'; that's why we did the copy first.
2802
02c75b605550 (mouse-set-region): Call set-mark to activate mark.
Richard M. Stallman <rms@gnu.org>
parents: 2799
diff changeset
703 (set-mark (point))
103893
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
704 (if (numberp end) (goto-char end))
10720
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
705 (mouse-set-region-1)))
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
706
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
707 (defun mouse-set-region-1 ()
55803
9070d5f984ea (mouse-set-region-1): Use temporary transient-mark-mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55260
diff changeset
708 ;; Set transient-mark-mode for a little while.
93549
b615c4d2a14d (mouse-set-region-1): Save the old value of transient-mark-mode.
Chong Yidong <cyd@stupidchicken.com>
parents: 93512
diff changeset
709 (unless (eq (car-safe transient-mark-mode) 'only)
b615c4d2a14d (mouse-set-region-1): Save the old value of transient-mark-mode.
Chong Yidong <cyd@stupidchicken.com>
parents: 93512
diff changeset
710 (setq transient-mark-mode
b615c4d2a14d (mouse-set-region-1): Save the old value of transient-mark-mode.
Chong Yidong <cyd@stupidchicken.com>
parents: 93512
diff changeset
711 (cons 'only
b615c4d2a14d (mouse-set-region-1): Save the old value of transient-mark-mode.
Chong Yidong <cyd@stupidchicken.com>
parents: 93512
diff changeset
712 (unless (eq transient-mark-mode 'lambda)
b615c4d2a14d (mouse-set-region-1): Save the old value of transient-mark-mode.
Chong Yidong <cyd@stupidchicken.com>
parents: 93512
diff changeset
713 transient-mark-mode))))
10720
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
714 (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
715 (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
716 (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
717
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
718 (defcustom mouse-scroll-delay 0.25
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
719 "The pause between scroll steps caused by mouse drags, in seconds.
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
720 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
721 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
722 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
723 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
724 This variable's value may be non-integral.
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
725 Setting this to zero causes Emacs to scroll as fast as it can."
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
726 :type 'number
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
727 :group 'mouse)
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
728
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
729 (defcustom mouse-scroll-min-lines 1
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
730 "The minimum number of lines scrolled by dragging mouse out of window.
13068
9cc4392719e3 [These changes were actually in the previous version.
Richard M. Stallman <rms@gnu.org>
parents: 13038
diff changeset
731 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
732 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
733 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
734 the mouse has moved. However, it always scrolls at least the number
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
735 of lines specified by this variable."
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
736 :type 'integer
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
737 :group 'mouse)
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
738
7932
ac4b606bcfa2 (mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents: 7901
diff changeset
739 (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
740 "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
741 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
742 the newly visible text.
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
743 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
744 (cond
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
745 ((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
746 (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
747 ((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
748 (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
749 (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
750 (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
751 (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
752 (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
753 (progn
76118755a179 (mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents: 7932
diff changeset
754 (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
755 (if (natnump jump)
21176
c42a2b3bbb21 (mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 21148
diff changeset
756 (if (window-end window)
c42a2b3bbb21 (mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 21148
diff changeset
757 (progn
c42a2b3bbb21 (mouse-scroll-subr): Handle if window-end returns nil.
Richard M. Stallman <rms@gnu.org>
parents: 21148
diff changeset
758 (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
759 ;; 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
760 ;; 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
761 (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
762 (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
763 (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
764 (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
765 (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
766 ;; 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
767 ;; 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
768 ;; 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
769 (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
770 (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
771 (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
772 (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
773 (goto-char opoint))))
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
774
5027
38980ea73075 (mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents: 5007
diff changeset
775 (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
776
12436
ffd777dc7d29 (mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12357
diff changeset
777 (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
778
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
779 (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
780 "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
781 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
782 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
783 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
784 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
785
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
786 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
787 (interactive "e")
59470
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
788 (let ((w (posn-window (event-start start-event))))
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
789 (if (and (window-minibuffer-p w)
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
790 (not (minibuffer-window-active-p w)))
42806
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
791 (save-excursion
59526
d52b0a40bde9 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 59500
diff changeset
792 ;; Swallow the up-event.
42806
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
793 (read-event)
66322
e921fbeaaddb 2005-10-23 MIYOSHI Masanori <miyoshi@meadowy.org> (tiny change)
Romain Francoise <romain@orebokech.com>
parents: 66180
diff changeset
794 (set-buffer (get-buffer-create "*Messages*"))
42806
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
795 (goto-char (point-max))
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
796 (display-buffer (current-buffer)))
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
797 ;; 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
798 (run-hooks 'mouse-leave-buffer-hook)
67997
217b260efd66 (mouse-drag-track): Renamed, from `mouse-drag-region-1'. Includes
J.D. Smith <jdsmith@as.arizona.edu>
parents: 67965
diff changeset
799 (mouse-drag-track start-event t))))
42806
7ec99458ed2e (mouse-drag-region-1): Renamed from mouse-drag-region.
Richard M. Stallman <rms@gnu.org>
parents: 42399
diff changeset
800
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
801
72890
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
802 (defun mouse-posn-property (pos property)
73006
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
803 "Look for a property at click position.
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
804 POS may be either a buffer position or a click position like
73042
f4f55aa95877 (mouse-posn-property): Fix typo for `event-start' in
David Kastrup <dak@gnu.org>
parents: 73006
diff changeset
805 those returned from `event-start'. If the click position is on
73006
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
806 a string, the text property PROPERTY is examined.
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
807 If this is nil or the click is not on a string, then
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
808 the corresponding buffer position is searched for PROPERTY.
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
809 If PROPERTY is encountered in one of those places,
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
810 its value is returned."
72890
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
811 (if (consp pos)
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
812 (let ((w (posn-window pos)) (pt (posn-point pos))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
813 (str (posn-string pos)))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
814 (or (and str
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
815 (get-text-property (cdr str) property (car str)))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
816 (and pt
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
817 (get-char-property pt property w))))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
818 (get-char-property pos property)))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
819
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
820 (defun mouse-on-link-p (pos)
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
821 "Return non-nil if POS is on a link in the current buffer.
72077
e345212112f0 (mouse-on-link-p): Doc fix.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 71391
diff changeset
822 POS must be a buffer position in the current buffer or a mouse
e345212112f0 (mouse-on-link-p): Doc fix.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 71391
diff changeset
823 event location in the selected window (see `event-start').
60253
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
824 However, if `mouse-1-click-in-non-selected-windows' is non-nil,
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
825 POS may be a mouse event location in any window.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
826
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
827 A clickable link is identified by one of the following methods:
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
828
59500
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
829 - If the character at POS has a non-nil `follow-link' text or
61376
15f4c9e1a9b2 (mouse-on-link-p): Tiny doc fix.
Kim F. Storm <storm@cua.dk>
parents: 61160
diff changeset
830 overlay property, the value of that property determines what to do.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
831
59500
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
832 - If there is a local key-binding or a keybinding at position POS
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
833 for the `follow-link' event, the binding of that event determines
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
834 what to do.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
835
59500
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
836 The resulting value determine whether POS is inside a link:
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
837
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
838 - If the value is `mouse-face', POS is inside a link if there
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
839 is a non-nil `mouse-face' property at POS. Return t in this case.
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
840
59500
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
841 - If the value is a function, FUNC, POS is inside a link if
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
842 the call \(FUNC POS) returns non-nil. Return the return value
72077
e345212112f0 (mouse-on-link-p): Doc fix.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 71391
diff changeset
843 from that call. Arg is \(posn-point POS) if POS is a mouse event.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
844
59500
e7064c8273f5 More doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 59499
diff changeset
845 - Otherwise, return the value itself.
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
846
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
847 The return value is interpreted as follows:
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
848
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
849 - If it is a string, the mouse-1 event is translated into the
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
850 first character of the string, i.e. the action of the mouse-1
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
851 click is the local or global binding of that character.
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
852
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
853 - If it is a vector, the mouse-1 event is translated into the
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
854 first element of that vector, i.e. the action of the mouse-1
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
855 click is the local or global binding of that event.
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
856
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
857 - Otherwise, the mouse-1 event is translated into a mouse-2 event
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
858 at the same position."
72890
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
859 (let ((action
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
860 (and (or (not (consp pos))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
861 mouse-1-click-in-non-selected-windows
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
862 (eq (selected-window) (posn-window pos)))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
863 (or (mouse-posn-property pos 'follow-link)
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
864 (key-binding [follow-link] nil t pos)))))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
865 (cond
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
866 ((eq action 'mouse-face)
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
867 (and (mouse-posn-property pos 'mouse-face) t))
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
868 ((functionp action)
73006
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
869 ;; FIXME: This seems questionable if the click is not in a buffer.
72999
c983ed5a8049 (mouse-on-link-p): Tentatively fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72890
diff changeset
870 ;; Should we instead decide that `action' takes a `posn'?
73006
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
871 (if (consp pos)
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
872 (with-current-buffer (window-buffer (posn-window pos))
73755
ef7b62d477fd (mouse-set-font): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 73042
diff changeset
873 (funcall action (posn-point pos)))
73006
17ac31b82912 (mouse-posn-property): Improve doc string.
David Kastrup <dak@gnu.org>
parents: 72999
diff changeset
874 (funcall action pos)))
72890
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
875 (t action))))
60204
074d6632232c (mouse-on-link-p): If arg POS is a mouse event,
Kim F. Storm <storm@cua.dk>
parents: 59996
diff changeset
876
61160
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
877 (defun mouse-fixup-help-message (msg)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
878 "Fix help message MSG for `mouse-1-click-follows-link'."
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
879 (let (mp pos)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
880 (if (and mouse-1-click-follows-link
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
881 (stringp msg)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
882 (save-match-data
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
883 (string-match "^mouse-2" msg))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
884 (setq mp (mouse-pixel-position))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
885 (consp (setq pos (cdr mp)))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
886 (car pos) (>= (car pos) 0)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
887 (cdr pos) (>= (cdr pos) 0)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
888 (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
889 (windowp (posn-window pos)))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
890 (with-current-buffer (window-buffer (posn-window pos))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
891 (if (mouse-on-link-p pos)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
892 (setq msg (concat
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
893 (cond
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
894 ((eq mouse-1-click-follows-link 'double) "double-")
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
895 ((and (integerp mouse-1-click-follows-link)
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
896 (< mouse-1-click-follows-link 0)) "Long ")
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
897 (t ""))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
898 "mouse-1" (substring msg 7)))))))
2bc2e06d78aa (mouse-1-click-follows-link): Increase to 450 ms.
Kim F. Storm <storm@cua.dk>
parents: 60253
diff changeset
899 msg)
59016
1c959d343308 (mouse-1-click-follows-link): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 58837
diff changeset
900
73755
ef7b62d477fd (mouse-set-font): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 73042
diff changeset
901 (defun mouse-drag-track (start-event &optional
67997
217b260efd66 (mouse-drag-track): Renamed, from `mouse-drag-region-1'. Includes
J.D. Smith <jdsmith@as.arizona.edu>
parents: 67965
diff changeset
902 do-mouse-drag-region-post-process)
217b260efd66 (mouse-drag-track): Renamed, from `mouse-drag-region-1'. Includes
J.D. Smith <jdsmith@as.arizona.edu>
parents: 67965
diff changeset
903 "Track mouse drags by highlighting area between point and cursor.
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
904 The region will be defined with mark and point.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
905 DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
906 `mouse-drag-region'."
6266
66c0ed95c03f (mouse-minibuffer-check): New function to disallow mouse events in an inactive
Karl Heuer <kwzh@gnu.org>
parents: 6231
diff changeset
907 (mouse-minibuffer-check start-event)
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
908 (setq mouse-selection-click-count-buffer (current-buffer))
103947
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
909 ;; We must call deactivate-mark before repositioning point.
109062
d8144fe7f3f8 * bindings.el (global-map): Bind delete and DEL, the former to
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
910 ;; Otherwise, for `select-active-regions' non-nil, we get the wrong
103947
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
911 ;; selection if the user drags a region, clicks elsewhere to
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
912 ;; reposition point, then middle-clicks to paste the selection.
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
913 (deactivate-mark)
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
914 (let* ((original-window (selected-window))
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
915 ;; We've recorded what we needed from the current buffer and
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
916 ;; window, now let's jump to the place of the event, where things
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
917 ;; are happening.
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
918 (_ (mouse-set-point start-event))
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
919 (echo-keystrokes 0)
14179
7db5b89b78b6 (mouse-drag-region, mouse-drag-secondary): Bind echo-keystrokes to 0.
Richard M. Stallman <rms@gnu.org>
parents: 13872
diff changeset
920 (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
921 (start-point (posn-point start-posn))
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
922 (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
923 (start-window-start (window-start start-window))
28075
7421de9165d2 (mouse-drag-region): Don't run up-event handler
Gerd Moellmann <gerd@gnu.org>
parents: 27834
diff changeset
924 (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
925 (bounds (window-edges start-window))
58194
00222ee714ca (mouse-drag-copy-region): Add :version.
Kim F. Storm <storm@cua.dk>
parents: 57927
diff changeset
926 (make-cursor-line-fully-visible nil)
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
927 (top (nth 1 bounds))
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
928 (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
929 (nth 3 bounds)
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
930 ;; 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
931 (1- (nth 3 bounds))))
60204
074d6632232c (mouse-on-link-p): If arg POS is a mouse event,
Kim F. Storm <storm@cua.dk>
parents: 59996
diff changeset
932 (on-link (and mouse-1-click-follows-link
60253
6452fdddef8f (mouse-1-click-in-non-selected-windows): New defcustom.
Kim F. Storm <storm@cua.dk>
parents: 60204
diff changeset
933 (or mouse-1-click-in-non-selected-windows
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
934 (eq start-window original-window))
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
935 ;; Use start-point before the intangibility
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
936 ;; treatment, in case we click on a link inside an
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
937 ;; intangible text.
72890
5ba1cd1da822 * mouse-sel.el (mouse-sel-follow-link-p): Use event position
David Kastrup <dak@gnu.org>
parents: 72427
diff changeset
938 (mouse-on-link-p start-posn)))
74367
a3192cfa5e41 (mouse-drag-track): Suppress automatic hscrolling for initial down
Chong Yidong <cyd@stupidchicken.com>
parents: 74238
diff changeset
939 ;; Suppress automatic hscrolling, because that is a nuisance
a3192cfa5e41 (mouse-drag-track): Suppress automatic hscrolling for initial down
Chong Yidong <cyd@stupidchicken.com>
parents: 74238
diff changeset
940 ;; when setting point near the right fringe (but see below).
a3192cfa5e41 (mouse-drag-track): Suppress automatic hscrolling for initial down
Chong Yidong <cyd@stupidchicken.com>
parents: 74238
diff changeset
941 (automatic-hscrolling-saved automatic-hscrolling)
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
942 (automatic-hscrolling nil)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
943 event end end-point)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
944
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
945 (setq mouse-selection-click-count (1- (event-click-count start-event)))
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
946 ;; 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
947 ;; 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
948 (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
949 (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
950 (setq start-point (point))
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
951
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
952 ;; Activate the mark.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
953 (setq transient-mark-mode
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
954 (if (eq transient-mark-mode 'lambda)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
955 '(only)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
956 (cons 'only transient-mark-mode)))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
957 (push-mark nil nil t)
3961
e828d5f28ca2 * mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents: 3928
diff changeset
958
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
959 ;; Track the mouse until we get a non-movement event.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
960 (track-mouse
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
961 (while (progn
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
962 (setq event (read-event))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
963 (or (mouse-movement-p event)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
964 (memq (car-safe event) '(switch-frame select-window))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
965 (unless (memq (car-safe event) '(switch-frame select-window))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
966 ;; Automatic hscrolling did not occur during the call to
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
967 ;; `read-event'; but if the user subsequently drags the
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
968 ;; mouse, go ahead and hscroll.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
969 (let ((automatic-hscrolling automatic-hscrolling-saved))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
970 (redisplay))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
971 (setq end (event-end event)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
972 end-point (posn-point end))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
973 (if (and (eq (posn-window end) start-window)
3961
e828d5f28ca2 * mouse.el (mouse-drag-region): Correctly handle drags which enter
Jim Blandy <jimb@redhat.com>
parents: 3928
diff changeset
974 (integer-or-marker-p end-point))
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
975 ;; If moving in the original window, move point by going
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
976 ;; to start first, so that if end is in intangible text,
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
977 ;; point jumps away from start. Don't do it if
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
978 ;; start=end, or a single click would select a region if
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
979 ;; it's on intangible text.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
980 (unless (= start-point end-point)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
981 (goto-char start-point)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
982 (goto-char end-point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
983 (let ((mouse-row (cdr (cdr (mouse-position)))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
984 (cond
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
985 ((null mouse-row))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
986 ((< mouse-row top)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
987 (mouse-scroll-subr start-window (- mouse-row top)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
988 nil start-point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
989 ((>= mouse-row bottom)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
990 (mouse-scroll-subr start-window (1+ (- mouse-row bottom))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
991 nil start-point))))))))
23611
4c8718a0fb85 (mouse-drag-region): Fake up a mouse-motion event
Richard M. Stallman <rms@gnu.org>
parents: 22852
diff changeset
992
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
993 ;; Handle the terminating event if possible.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
994 (when (consp event)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
995 ;; Ensure that point is on the end of the last event.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
996 (when (and (setq end-point (posn-point (event-end event)))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
997 (eq (posn-window end) start-window)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
998 (integer-or-marker-p end-point)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
999 (/= start-point end-point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1000 (goto-char start-point)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1001 (goto-char end-point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1002 ;; Find its binding.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1003 (let* ((fun (key-binding (vector (car event))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1004 (do-multi-click (and (> (event-click-count event) 0)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1005 (functionp fun)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1006 (not (memq fun '(mouse-set-point
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1007 mouse-set-region))))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1008 (if (and (/= (mark) (point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1009 (not do-multi-click))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1010 ;; If point has moved, finish the drag.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1011 (let* (last-command this-command)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1012 ;; Copy the region so that `select-active-regions' can
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1013 ;; override `copy-region-as-kill'.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1014 (and mouse-drag-copy-region
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1015 do-mouse-drag-region-post-process
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1016 (let (deactivate-mark)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1017 (copy-region-as-kill (mark) (point)))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1018 ;; If point hasn't moved, run the binding of the
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1019 ;; terminating up-event.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1020 (if do-multi-click (goto-char start-point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1021 (deactivate-mark)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1022 (when (and (functionp fun)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1023 (= start-hscroll (window-hscroll start-window))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1024 ;; Don't run the up-event handler if the window
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1025 ;; start changed in a redisplay after the
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1026 ;; mouse-set-point for the down-mouse event at
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1027 ;; the beginning of this function. When the
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1028 ;; window start has changed, the up-mouse event
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1029 ;; contains a different position due to the new
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1030 ;; window contents, and point is set again.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1031 (or end-point
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1032 (= (window-start start-window)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1033 start-window-start)))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1034 (when (and on-link
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1035 (= start-point (point))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1036 (mouse--remap-link-click-p start-event event))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1037 ;; If we rebind to mouse-2, reselect previous selected
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1038 ;; window, so that the mouse-2 event runs in the same
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1039 ;; situation as if user had clicked it directly. Fixes
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1040 ;; the bug reported by juri@jurta.org on 2005-12-27.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1041 (if (or (vectorp on-link) (stringp on-link))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1042 (setq event (aref on-link 0))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1043 (select-window original-window)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1044 (setcar event 'mouse-2)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1045 ;; If this mouse click has never been done by the
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1046 ;; user, it doesn't have the necessary property to be
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1047 ;; interpreted correctly.
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1048 (put 'mouse-2 'event-kind 'mouse-click)))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1049 (push event unread-command-events)))))))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1050
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1051 (defun mouse--remap-link-click-p (start-event end-event)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1052 (or (and (eq mouse-1-click-follows-link 'double)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1053 (= (event-click-count start-event) 2))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1054 (and
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1055 (not (eq mouse-1-click-follows-link 'double))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1056 (= (event-click-count start-event) 1)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1057 (= (event-click-count end-event) 1)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1058 (or (not (integerp mouse-1-click-follows-link))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1059 (let ((t0 (posn-timestamp (event-start start-event)))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1060 (t1 (posn-timestamp (event-end end-event))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1061 (and (integerp t0) (integerp t1)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1062 (if (> mouse-1-click-follows-link 0)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1063 (<= (- t1 t0) mouse-1-click-follows-link)
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1064 (< (- t0 t1) mouse-1-click-follows-link))))))))
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1065
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1066
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1067 ;; 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
1068 (defun mouse-skip-word (dir)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1069 "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
1070 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
1071 (let* ((char (following-char))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1072 (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
1073 (cond ((string= syntax "w")
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1074 ;; 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
1075 ;; 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
1076 ;; and thus they will skip over a true word boundary. So,
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96375
diff changeset
1077 ;; we simulate the original behavior by using forward-word.
22852
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1078 (if (< dir 0)
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1079 (if (not (looking-at "\\<"))
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1080 (forward-word -1))
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1081 (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
1082 (forward-word 1))))
dfb255fb91c8 (mouse-skip-word): If point is at word constituent
Kenichi Handa <handa@m17n.org>
parents: 22845
diff changeset
1083 ((string= syntax " ")
13038
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1084 (if (< dir 0)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1085 (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
1086 (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
1087 ((string= syntax "_")
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1088 (if (< dir 0)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1089 (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
1090 (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
1091 ((< dir 0)
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1092 (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
1093 (forward-char -1)))
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1094 (t
d07703594662 (C-down-mouse-1): Use buffer menu, not font menu.
Richard M. Stallman <rms@gnu.org>
parents: 12844
diff changeset
1095 (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
1096 (forward-char 1))))))
3928
c5f9d7f928a7 * mouse.el (mouse-drag-region-1): Commented out.
Jim Blandy <jimb@redhat.com>
parents: 3899
diff changeset
1097
4751
c63ce262aa4d (mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents: 4738
diff changeset
1098 (defun mouse-start-end (start end mode)
66669
550c8e306cb5 Fix special handling of DEL after dragging a region:
Richard M. Stallman <rms@gnu.org>
parents: 66322
diff changeset
1099 "Return a list of region bounds based on START and END according to MODE.
52405
970694efa9b5 (mouse-popup-menubar, mouse-skip-word): Doc fix.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
1100 If MODE is 0 then set point to (min START END), mark to (max START END).
970694efa9b5 (mouse-popup-menubar, mouse-skip-word): Doc fix.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
1101 If MODE is 1 then set point to start of word at (min START END),
970694efa9b5 (mouse-popup-menubar, mouse-skip-word): Doc fix.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
1102 mark to end of word at (max START END).
970694efa9b5 (mouse-popup-menubar, mouse-skip-word): Doc fix.
Dave Love <fx@gnu.org>
parents: 52401
diff changeset
1103 If MODE is 2 then do the same for lines."
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1104 (if (> start end)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1105 (let ((temp start))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1106 (setq start end
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1107 end temp)))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1108 (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
1109 (cond ((= mode 0)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1110 (list start end))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1111 ((and (= mode 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1112 (= 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
1113 (char-after start)
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1114 (= (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
1115 (list start
66aadd6ba5e6 (mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents: 5869
diff changeset
1116 (save-excursion
66aadd6ba5e6 (mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents: 5869
diff changeset
1117 (goto-char start)
66aadd6ba5e6 (mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents: 5869
diff changeset
1118 (forward-sexp 1)
66aadd6ba5e6 (mouse-start-end): For double click with START on openparen,
Richard M. Stallman <rms@gnu.org>
parents: 5869
diff changeset
1119 (point))))
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1120 ((and (= mode 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1121 (= 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
1122 (char-after start)
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1123 (= (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
1124 (list (save-excursion
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1125 (goto-char (1+ start))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1126 (backward-sexp 1)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1127 (point))
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1128 (1+ start)))
15561
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1129 ((and (= mode 1)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1130 (= start end)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1131 (char-after start)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1132 (= (char-syntax (char-after start)) ?\"))
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1133 (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
1134 (save-excursion
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1135 (goto-char (- start 1))
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1136 (looking-at "\\s(\\|\\s \\|\\s>")))))
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1137 (if open
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1138 (list start
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1139 (save-excursion
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1140 (condition-case nil
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
1141 (progn
15561
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1142 (goto-char start)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1143 (forward-sexp 1)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1144 (point))
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1145 (error end))))
16746
9d2a854bac89 (mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents: 16636
diff changeset
1146 (list (save-excursion
15561
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1147 (condition-case nil
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1148 (progn
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1149 (goto-char (1+ start))
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1150 (backward-sexp 1)
6f50026fd1e6 (mouse-start-end): Support selecting strings by double
Richard M. Stallman <rms@gnu.org>
parents: 15476
diff changeset
1151 (point))
16746
9d2a854bac89 (mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents: 16636
diff changeset
1152 (error end)))
9d2a854bac89 (mouse-start-end): Put values in proper order,
Richard M. Stallman <rms@gnu.org>
parents: 16636
diff changeset
1153 (1+ start)))))
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1154 ((= mode 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1155 (list (save-excursion
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1156 (goto-char start)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1157 (mouse-skip-word -1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1158 (point))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1159 (save-excursion
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1160 (goto-char end)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1161 (mouse-skip-word 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1162 (point))))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1163 ((= mode 2)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1164 (list (save-excursion
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1165 (goto-char start)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1166 (beginning-of-line 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1167 (point))
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1168 (save-excursion
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1169 (goto-char end)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1170 (forward-line 1)
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
1171 (point))))))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1172
3712
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1173 ;; Subroutine: set the mark where CLICK happened,
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1174 ;; but don't do anything else.
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1175 (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
1176 (mouse-minibuffer-check click)
3712
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1177 (let ((posn (event-start click)))
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1178 (select-window (posn-window posn))
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1179 (if (numberp (posn-point posn))
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1180 (push-mark (posn-point posn) t t))))
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1181
15613
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1182 (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
1183 (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
1184 (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
1185 (event (car last))
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1186 (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
1187 (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
1188 (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
1189 (new
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1190 (if (consp event)
18503
828ca7cea30f (mouse-undouble-last-event): Use reverse, not nreverse.
Richard M. Stallman <rms@gnu.org>
parents: 18459
diff changeset
1191 ;; 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
1192 ;; 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
1193 (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
1194 (cdr event))
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1195 event)))
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1196 (setcar last new)
17983
56f88318699c (mouse-undouble-last-event): Return nil if the event
Richard M. Stallman <rms@gnu.org>
parents: 17636
diff changeset
1197 (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
1198 (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
1199 t
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1200 (setcar last event)
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1201 nil)))
4c646bed64d0 (mouse-show-mark): In transient mark mode, delete mouse-drag-overlay.
Miles Bader <miles@gnu.org>
parents: 15561
diff changeset
1202
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
1203 ;; 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
1204
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1205 (defun mouse-set-mark (click)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1206 "Set mark at the position clicked on with the mouse.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1207 Display cursor at that position for a second.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1208 This must be bound to a mouse click."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
1209 (interactive "e")
8534
a446d13c46ea (mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents: 8519
diff changeset
1210 (mouse-minibuffer-check click)
a446d13c46ea (mouse-set-mark): Select the window before saving point.
Richard M. Stallman <rms@gnu.org>
parents: 8519
diff changeset
1211 (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
1212 ;; We don't use save-excursion because that preserves the mark too.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 (let ((point-save (point)))
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 (unwind-protect
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1215 (progn (mouse-set-point click)
3119
0d4886af9262 (mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 2802
diff changeset
1216 (push-mark nil t t)
0d4886af9262 (mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 2802
diff changeset
1217 (or transient-mark-mode
0d4886af9262 (mouse-set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 2802
diff changeset
1218 (sit-for 1)))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 (goto-char point-save))))
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1221 (defun mouse-kill (click)
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1222 "Kill the region between point and the mouse click.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1223 The text is saved in the kill ring, as with \\[kill-region]."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
1224 (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
1225 (mouse-minibuffer-check click)
6301
80e3ee8d618d (mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents: 6266
diff changeset
1226 (let* ((posn (event-start click))
80e3ee8d618d (mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents: 6266
diff changeset
1227 (click-posn (posn-point posn)))
80e3ee8d618d (mouse-kill): Select the clicked window first.
Karl Heuer <kwzh@gnu.org>
parents: 6266
diff changeset
1228 (select-window (posn-window posn))
1039
8ab465f7a7ff *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 840
diff changeset
1229 (if (numberp click-posn)
8ab465f7a7ff *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 840
diff changeset
1230 (kill-region (min (point) click-posn)
8ab465f7a7ff *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 840
diff changeset
1231 (max (point) click-posn)))))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1232
705
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
1233 (defun mouse-yank-at-click (click arg)
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
1234 "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
1235 Also move point to one end of the text thus inserted (normally the end),
42149
111acebcb4e0 Fix typo.
Pavel Janík <Pavel@Janik.cz>
parents: 42004
diff changeset
1236 and set mark at the beginning.
5799
13d7ce941848 (mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents: 5280
diff changeset
1237 Prefix arguments are interpreted as with \\[yank].
13d7ce941848 (mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents: 5280
diff changeset
1238 If `mouse-yank-at-point' is non-nil, insert at point
103947
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1239 regardless of where you click.
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1240 If `select-active-regions' is non-nil, the mark is deactivated
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1241 before inserting the text."
57843
e91b3798021f (mouse-yank-at-click, mouse-yank-secondary): Revert
Jan Djärv <jan.h.d@swipnet.se>
parents: 57785
diff changeset
1242 (interactive "e\nP")
10258
0bcc67b3fe66 (mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents: 9936
diff changeset
1243 ;; 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
1244 (run-hooks 'mouse-leave-buffer-hook)
103947
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1245 (when select-active-regions
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1246 ;; Without this, confusing things happen upon e.g. inserting into
37177e1f2fcb * w32-fns.el (x-selection-owner-p): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 103893
diff changeset
1247 ;; the middle of an active region.
103950
6d93a06037ee Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 103949
diff changeset
1248 (deactivate-mark))
5799
13d7ce941848 (mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents: 5280
diff changeset
1249 (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
1250 (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
1251 (setq mouse-selection-click-count 0)
705
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
1252 (yank arg))
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
1253
87387
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1254 (defun mouse-yank-primary (click)
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1255 "Insert the primary selection at the position clicked on.
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1256 Move point to the end of the inserted text.
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1257 If `mouse-yank-at-point' is non-nil, insert at point
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1258 regardless of where you click."
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1259 (interactive "e")
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1260 ;; Give temporary modes such as isearch a chance to turn off.
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1261 (run-hooks 'mouse-leave-buffer-hook)
103949
d7999ea3bbc2 * mouse.el (mouse-yank-primary): If select-active-regions is non-nil,
Chong Yidong <cyd@stupidchicken.com>
parents: 103947
diff changeset
1262 (when select-active-regions
d7999ea3bbc2 * mouse.el (mouse-yank-primary): If select-active-regions is non-nil,
Chong Yidong <cyd@stupidchicken.com>
parents: 103947
diff changeset
1263 ;; Without this, confusing things happen upon e.g. inserting into
d7999ea3bbc2 * mouse.el (mouse-yank-primary): If select-active-regions is non-nil,
Chong Yidong <cyd@stupidchicken.com>
parents: 103947
diff changeset
1264 ;; the middle of an active region.
103950
6d93a06037ee Fix last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 103949
diff changeset
1265 (deactivate-mark))
87387
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1266 (or mouse-yank-at-point (mouse-set-point click))
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1267 (let ((primary (x-get-selection 'PRIMARY)))
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1268 (if primary
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1269 (insert (x-get-selection 'PRIMARY))
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1270 (error "No primary selection"))))
e73e483c5735 (mouse-yank-primary): New function (almost same as mouse-yank-secondary).
Richard M. Stallman <rms@gnu.org>
parents: 87301
diff changeset
1271
705
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
1272 (defun mouse-kill-ring-save (click)
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1273 "Copy the region between point and the mouse click in the kill ring.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
1274 This does not delete the region; it acts like \\[kill-ring-save]."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
1275 (interactive "e")
3712
9e0f49a8f967 (mouse-set-mark-fast): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3566
diff changeset
1276 (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
1277 (let (this-command last-command)
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1278 (kill-ring-save (point) (mark t))))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1280 ;; This function used to delete the text between point and the mouse
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1281 ;; whenever it was equal to the front of the kill ring, but some
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1282 ;; people found that confusing.
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
1283
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1284 ;; A list (TEXT START END), describing the text and position of the last
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1285 ;; invocation of mouse-save-then-kill.
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
1286 (defvar mouse-save-then-kill-posn nil)
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
1287
5007
8ed435ca9650 (mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents: 4906
diff changeset
1288 (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
1289 ;; We must make our own undo boundaries
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1290 ;; 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
1291 (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
1292 (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
1293 ;; 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
1294 ;; just delete.
38980ea73075 (mouse-save-then-kill-delete-region): Take args BEG and END.
Richard M. Stallman <rms@gnu.org>
parents: 5007
diff changeset
1295 (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
1296 ;; 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
1297 ;; 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
1298 ;; 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
1299 (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
1300 (delete-region beg
44680acb5d14 (mouse-save-then-kill-delete-region): Turn off change hooks
Richard M. Stallman <rms@gnu.org>
parents: 7794
diff changeset
1301 (+ 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
1302 (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
1303 ;; 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
1304 (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
1305 (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
1306 ;; 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
1307 ;; 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
1308 (setq buffer-undo-list t)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1309 (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
1310 (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
1311 (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
1312 (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
1313 ;; 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
1314 ;; 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
1315 (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
1316 (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
1317 ;; 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
1318 (and tail
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1319 (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
1320 (undo-boundary))
4751
c63ce262aa4d (mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents: 4738
diff changeset
1321
1214
467833df795b (mouse-split-window-vertically): Use @.
Richard M. Stallman <rms@gnu.org>
parents: 1113
diff changeset
1322 (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
1323 "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
1324 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
1325 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
1326 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
1327 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
1328
c63ce262aa4d (mouse-save-then-kill): If follows a multi-click selection,
Richard M. Stallman <rms@gnu.org>
parents: 4738
diff changeset
1329 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
1330 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
1331 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
1332 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
1333 (interactive "e")
21426
4b4a4e32ffef (mouse-save-then-kill): Get point-before-scroll
Richard M. Stallman <rms@gnu.org>
parents: 21194
diff changeset
1334 (let ((before-scroll
4b4a4e32ffef (mouse-save-then-kill): Get point-before-scroll
Richard M. Stallman <rms@gnu.org>
parents: 21194
diff changeset
1335 (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
1336 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
1337 (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
1338 (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
1339 ;; 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
1340 ;; 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
1341 (this-command this-command))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1342 (if (and (with-current-buffer
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1343 (window-buffer (posn-window (event-start click)))
12436
ffd777dc7d29 (mouse-selection-click-count-buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 12357
diff changeset
1344 (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
1345 ;; 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
1346 (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
1347 (current-buffer)))))
10556
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1348 (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
1349 (equal click-posn
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1350 (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
1351 ;; 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
1352 (let* ((range
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1353 (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
1354 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
1355 ;; 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
1356 ;; 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
1357 (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
1358 (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
1359 (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
1360 (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
1361 ;; 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
1362 ;; 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
1363 ;; (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
1364 (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
1365 (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
1366 ;; 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
1367 (setq mouse-save-then-kill-posn
109112
a46a2b77a8b1 Simplify mouse-dragging implementation.
Chong Yidong <cyd@stupidchicken.com>
parents: 109062
diff changeset
1368 (list (car kill-ring) (point) click-posn)))
10556
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1369 ;; 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
1370 ;; that time kill.
11818
f470809e6a60 (mouse-save-then-kill): When making a new region
Richard M. Stallman <rms@gnu.org>
parents: 11453
diff changeset
1371 (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
1372 (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
1373 (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
1374 (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
1375 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
1376 (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
1377 (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
1378 ;; 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
1379 ;; 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
1380 (progn
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1381 (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
1382 ;; 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
1383 (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
1384 ;; 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
1385 ;; 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
1386 (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
1387 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
1388 (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
1389 (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
1390 '(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
1391 (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
1392 (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
1393 ;; 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
1394 (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
1395 (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
1396 (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
1397 (if (numberp new)
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1398 (progn
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1399 ;; 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
1400 ;; 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
1401 (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
1402 (goto-char new)
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1403 (set-mark new))
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1404 (setq deactivate-mark nil)))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1405 (kill-new (buffer-substring (point) (mark t)) t))
10556
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1406 ;; 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
1407 (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
1408 (if before-scroll
fda9e00240b0 (mouse-save-then-kill): When we don't use existing
Richard M. Stallman <rms@gnu.org>
parents: 10554
diff changeset
1409 (goto-char before-scroll))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1410 (exchange-point-and-mark) ;Why??? --Stef
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1411 (kill-new (buffer-substring (point) (mark t))))
10720
4526bdcc806e (mouse-drag-region): Delete the overlay before
Richard M. Stallman <rms@gnu.org>
parents: 10556
diff changeset
1412 (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
1413 (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
1414 (list (car kill-ring) (point) click-posn)))))))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1415
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1416 (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
1417 (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
1418 (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
1419 (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
1420 (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
1421
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1422 (defconst mouse-secondary-overlay
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1423 (let ((ol (make-overlay (point-min) (point-min))))
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1424 (delete-overlay ol)
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1425 (overlay-put ol 'face 'secondary-selection)
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1426 ol)
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1427 "An overlay which records the current secondary selection.
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1428 It is deleted when there is no secondary selection.")
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1429
9206
06864fef4ec3 (mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8765
diff changeset
1430 (defvar mouse-secondary-click-count 0)
06864fef4ec3 (mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8765
diff changeset
1431
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1432 ;; 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
1433 ;; May be nil.
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1434 (defvar mouse-secondary-start nil)
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1435
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1436 (defun mouse-start-secondary (click)
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1437 "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
1438 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
1439 and complete the secondary selection."
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1440 (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
1441 (mouse-minibuffer-check click)
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1442 (let ((posn (event-start click)))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1443 (with-current-buffer (window-buffer (posn-window posn))
3823
7747dabf897f (mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents: 3808
diff changeset
1444 ;; Cancel any preexisting secondary selection.
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1445 (delete-overlay mouse-secondary-overlay)
3823
7747dabf897f (mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents: 3808
diff changeset
1446 (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
1447 (progn
7747dabf897f (mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents: 3808
diff changeset
1448 (or mouse-secondary-start
7747dabf897f (mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents: 3808
diff changeset
1449 (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
1450 (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
1451
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1452 (defun mouse-set-secondary (click)
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1453 "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
1454 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
1455 (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
1456 (mouse-minibuffer-check click)
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1457 (let ((posn (event-start click))
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1458 beg
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1459 (end (event-end click)))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1460 (with-current-buffer (window-buffer (posn-window posn))
3823
7747dabf897f (mouse-secondary-save-then-kill): Don't switch windows.
Richard M. Stallman <rms@gnu.org>
parents: 3808
diff changeset
1461 (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
1462 (setq beg (posn-point posn)))
76876
e3994020ab84 (mouse-set-secondary): Update mouse-secondary-overlay.
Chong Yidong <cyd@stupidchicken.com>
parents: 76575
diff changeset
1463 (move-overlay mouse-secondary-overlay beg (posn-point end))
e3994020ab84 (mouse-set-secondary): Update mouse-secondary-overlay.
Chong Yidong <cyd@stupidchicken.com>
parents: 76575
diff changeset
1464 (x-set-selection
e3994020ab84 (mouse-set-secondary): Update mouse-secondary-overlay.
Chong Yidong <cyd@stupidchicken.com>
parents: 76575
diff changeset
1465 'SECONDARY
e3994020ab84 (mouse-set-secondary): Update mouse-secondary-overlay.
Chong Yidong <cyd@stupidchicken.com>
parents: 76575
diff changeset
1466 (buffer-substring (overlay-start mouse-secondary-overlay)
e3994020ab84 (mouse-set-secondary): Update mouse-secondary-overlay.
Chong Yidong <cyd@stupidchicken.com>
parents: 76575
diff changeset
1467 (overlay-end mouse-secondary-overlay))))))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1468
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1469 (defun mouse-drag-secondary (start-event)
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1470 "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
1471 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
1472 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
1473 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
1474 (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
1475 (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
1476 (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
1477 (start-posn (event-start start-event))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1478 (start-point (posn-point start-posn))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1479 (start-window (posn-window start-posn))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1480 (bounds (window-edges start-window))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1481 (top (nth 1 bounds))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1482 (bottom (if (window-minibuffer-p start-window)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1483 (nth 3 bounds)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1484 ;; Don't count the mode line.
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1485 (1- (nth 3 bounds))))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1486 (click-count (1- (event-click-count start-event))))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1487 (with-current-buffer (window-buffer start-window)
9206
06864fef4ec3 (mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8765
diff changeset
1488 (setq mouse-secondary-click-count click-count)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1489 (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
1490 ;; 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
1491 ;; of one word or line.
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1492 (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
1493 (set-marker mouse-secondary-start nil)
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1494 ;; Why the double move? --Stef
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1495 ;; (move-overlay mouse-secondary-overlay 1 1
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1496 ;; (window-buffer start-window))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1497 (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
1498 (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
1499 ;; 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
1500 (or mouse-secondary-start
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1501 (setq mouse-secondary-start (make-marker)))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1502 (set-marker mouse-secondary-start start-point)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1503 (delete-overlay mouse-secondary-overlay))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1504 (let (event end end-point)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1505 (track-mouse
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1506 (while (progn
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1507 (setq event (read-event))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1508 (or (mouse-movement-p event)
59470
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
1509 (memq (car-safe event) '(switch-frame select-window))))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1510
59470
f009f3970cd9 (mouse-drag-mode-line-1, mouse-drag-vertical-line, mouse-drag-region)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59128
diff changeset
1511 (if (memq (car-safe event) '(switch-frame select-window))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1512 nil
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1513 (setq end (event-end event)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1514 end-point (posn-point end))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1515 (cond
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1516 ;; Are we moving within the original window?
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1517 ((and (eq (posn-window end) start-window)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1518 (integer-or-marker-p end-point))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1519 (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
1520 click-count)))
8224
1cc48bdd0c6b (mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents: 8204
diff changeset
1521 (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
1522 (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
1523 (progn
1cc48bdd0c6b (mouse-drag-secondary): Don't start making an overlay
Richard M. Stallman <rms@gnu.org>
parents: 8204
diff changeset
1524 (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
1525 (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
1526 (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
1527 (t
4a0b3a63e51e (mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents: 7363
diff changeset
1528 (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
1529 (cond
4a0b3a63e51e (mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents: 7363
diff changeset
1530 ((null mouse-row))
4a0b3a63e51e (mouse-drag-secondary): Handle mouse motion out of window
Richard M. Stallman <rms@gnu.org>
parents: 7363
diff changeset
1531 ((< mouse-row top)
7932
ac4b606bcfa2 (mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents: 7901
diff changeset
1532 (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
1533 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
1534 ((>= mouse-row bottom)
7932
ac4b606bcfa2 (mouse-scroll-subr): New arg WINDOW.
Richard M. Stallman <rms@gnu.org>
parents: 7901
diff changeset
1535 (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
1536 mouse-secondary-overlay start-point)))))))))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1537
7966
76118755a179 (mouse-scroll-subr): Preserve point if WINDOW's not the selected window.
Richard M. Stallman <rms@gnu.org>
parents: 7932
diff changeset
1538 (if (consp event)
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1539 (if (marker-position mouse-secondary-start)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1540 (save-window-excursion
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1541 (delete-overlay mouse-secondary-overlay)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1542 (x-set-selection 'SECONDARY nil)
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1543 (select-window start-window)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1544 (save-excursion
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1545 (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
1546 (sit-for 1)
86f1da650461 (mouse-drag-secondary): Make sure to return nil
Richard M. Stallman <rms@gnu.org>
parents: 16304
diff changeset
1547 nil))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1548 (x-set-selection
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1549 'SECONDARY
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1550 (buffer-substring (overlay-start mouse-secondary-overlay)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1551 (overlay-end mouse-secondary-overlay)))))))))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1552
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1553 (defun mouse-yank-secondary (click)
5799
13d7ce941848 (mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents: 5280
diff changeset
1554 "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
1555 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
1556 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
1557 regardless of where you click."
57843
e91b3798021f (mouse-yank-at-click, mouse-yank-secondary): Revert
Jan Djärv <jan.h.d@swipnet.se>
parents: 57785
diff changeset
1558 (interactive "e")
10258
0bcc67b3fe66 (mouse-minibuffer-check, mouse-drag-mode-line)
Richard M. Stallman <rms@gnu.org>
parents: 9936
diff changeset
1559 ;; 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
1560 (run-hooks 'mouse-leave-buffer-hook)
5799
13d7ce941848 (mouse-yank-secondary): Do move point.
Richard M. Stallman <rms@gnu.org>
parents: 5280
diff changeset
1561 (or mouse-yank-at-point (mouse-set-point click))
81903
3bdde0e93c76 (mouse-yank-secondary): Better error message if no secondary selection.
Richard M. Stallman <rms@gnu.org>
parents: 78126
diff changeset
1562 (let ((secondary (x-get-selection 'SECONDARY)))
3bdde0e93c76 (mouse-yank-secondary): Better error message if no secondary selection.
Richard M. Stallman <rms@gnu.org>
parents: 78126
diff changeset
1563 (if secondary
3bdde0e93c76 (mouse-yank-secondary): Better error message if no secondary selection.
Richard M. Stallman <rms@gnu.org>
parents: 78126
diff changeset
1564 (insert (x-get-selection 'SECONDARY))
3bdde0e93c76 (mouse-yank-secondary): Better error message if no secondary selection.
Richard M. Stallman <rms@gnu.org>
parents: 78126
diff changeset
1565 (error "No secondary selection"))))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1566
5280
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1567 (defun mouse-kill-secondary ()
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1568 "Kill the text in the secondary selection.
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1569 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
1570 but it can work as either one.
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1571
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1572 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
1573 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
1574 is to prevent accidents."
5280
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1575 (interactive)
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1576 (let* ((keys (this-command-keys))
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1577 (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
1578 (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
1579 (if (listp click)
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1580 (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
1581 (current-buffer)))
6a260dd9ee05 (mouse-kill-secondary): Get rid of CLICK argument.
Richard M. Stallman <rms@gnu.org>
parents: 5198
diff changeset
1582 (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
1583 (let (this-command)
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1584 (with-current-buffer (overlay-buffer mouse-secondary-overlay)
10838
6c0dc7a8a07a (mouse-kill-secondary): Avoid changing this-command.
Richard M. Stallman <rms@gnu.org>
parents: 10790
diff changeset
1585 (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
1586 (overlay-end mouse-secondary-overlay))))
103893
c75839749e65 * simple.el (deactivate-mark): Optional argument FORCE.
Chong Yidong <cyd@stupidchicken.com>
parents: 101722
diff changeset
1587 (delete-overlay mouse-secondary-overlay))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1588
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1589 (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
1590 "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
1591 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
1592 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
1593 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
1594 this command deletes the text.
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1595 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
1596 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
1597
7302
1d9c6f42c7ae (mouse-secondary-save-then-kill): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
1598 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
1599 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
1600 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
1601 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
1602 (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
1603 (mouse-minibuffer-check click)
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1604 (let ((posn (event-start click))
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1605 (click-posn (posn-point (event-start click)))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1606 ;; 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
1607 ;; prevent setting this-command to kill-region.
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1608 (this-command this-command))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1609 (or (eq (window-buffer (posn-window posn))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1610 (or (overlay-buffer mouse-secondary-overlay)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1611 (if mouse-secondary-start
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1612 (marker-buffer mouse-secondary-start))))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1613 (error "Wrong buffer"))
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1614 (with-current-buffer (window-buffer (posn-window posn))
9206
06864fef4ec3 (mouse-secondary-click-count): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8765
diff changeset
1615 (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
1616 (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
1617 (equal click-posn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1618 (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
1619 ;; 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
1620 (let* ((range
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1621 (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
1622 mouse-secondary-click-count)))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1623 ;; 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
1624 ;; 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
1625 (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
1626 (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
1627 (move-overlay mouse-secondary-overlay (car range)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1628 (overlay-end mouse-secondary-overlay))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1629 (move-overlay mouse-secondary-overlay
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1630 (overlay-start mouse-secondary-overlay)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1631 (nth 1 range)))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1632 ;; 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
1633 ;; Replace it with the extended region.
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1634 ;; (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
1635 (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
1636 (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
1637 (overlay-end mouse-secondary-overlay)) t)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1638 ;; 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
1639 (setq mouse-save-then-kill-posn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1640 (list (car kill-ring) (point) click-posn)))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1641 ;; 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
1642 ;; that time kill.
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1643 (progn
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1644 (mouse-save-then-kill-delete-region
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1645 (overlay-start mouse-secondary-overlay)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1646 (overlay-end mouse-secondary-overlay))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1647 (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
1648 (setq mouse-secondary-click-count 0)
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1649 (delete-overlay mouse-secondary-overlay)))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1650 (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
1651 mouse-save-then-kill-posn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1652 (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
1653 (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
1654 ;; 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
1655 ;; 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
1656 (progn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1657 (mouse-save-then-kill-delete-region
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1658 (overlay-start mouse-secondary-overlay)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1659 (overlay-end mouse-secondary-overlay))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1660 (setq mouse-save-then-kill-posn nil)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1661 (delete-overlay mouse-secondary-overlay))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1662 (if (overlay-start mouse-secondary-overlay)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1663 ;; We have a selection, so adjust it.
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1664 (progn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1665 (if (numberp click-posn)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1666 (progn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1667 ;; 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
1668 ;; 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
1669 (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
1670 (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
1671 (move-overlay mouse-secondary-overlay click-posn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1672 (overlay-end mouse-secondary-overlay))
4788
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1673 (move-overlay mouse-secondary-overlay
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1674 (overlay-start mouse-secondary-overlay)
3182c0f7ace4 (mouse-delete-max-match): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4751
diff changeset
1675 click-posn))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1676 (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
1677 (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
1678 ;; 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
1679 ;; 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
1680 ;; 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
1681 ;; (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
1682 (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
1683 (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
1684 (overlay-end mouse-secondary-overlay)) t)
21194
7a7950ffa79b (mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents: 21176
diff changeset
1685 (let (deactivate-mark)
7a7950ffa79b (mouse-drag-region): Bind deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents: 21176
diff changeset
1686 (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
1687 (overlay-end mouse-secondary-overlay)))))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1688 (if mouse-secondary-start
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1689 ;; 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
1690 ;; so put the other end here.
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1691 (let ((start (+ 0 mouse-secondary-start)))
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1692 (kill-ring-save start click-posn)
65640
906677409870 (mouse-move-drag-overlay): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65623
diff changeset
1693 (move-overlay mouse-secondary-overlay start click-posn))))
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1694 (setq mouse-save-then-kill-posn
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1695 (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
1696 (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
1697 (x-set-selection 'SECONDARY
5153
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1698 (buffer-substring
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1699 (overlay-start mouse-secondary-overlay)
27afcc69725a (mouse-save-then-kill-delete-region):
Richard M. Stallman <rms@gnu.org>
parents: 5027
diff changeset
1700 (overlay-end mouse-secondary-overlay)))))))
3808
d852157f581a (mouse-start-secondary): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3712
diff changeset
1701
21148
bbbd345f54de (mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents: 20686
diff changeset
1702 (defcustom mouse-buffer-menu-maxlen 20
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
1703 "Number of buffers in one pane (submenu) of the buffer menu.
13872
e79f2b570509 (mouse-menu-buffer-maxlen): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13870
diff changeset
1704 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
1705 `mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one."
17636
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
1706 :type 'integer
6a187f72db92 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17008
diff changeset
1707 :group 'mouse)
13872
e79f2b570509 (mouse-menu-buffer-maxlen): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 13870
diff changeset
1708
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1709 (defcustom mouse-buffer-menu-mode-mult 4
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 99491
diff changeset
1710 "Group the buffers by the major mode groups on \\[mouse-buffer-menu]?
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1711 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
1712 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
1713 `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
1714 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
1715 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
1716 :type 'integer
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1717 :group 'mouse
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1718 :version "20.3")
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1719
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
1720 (defvar mouse-buffer-menu-mode-groups
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
1721 (mapcar (lambda (arg) (cons (purecopy (car arg)) (purecopy (cdr arg))))
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
1722 '(("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
1723 ("\\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
1724 . "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
1725 ("\\<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
1726 ("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
1727 ("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
1728 ("Outline" . "Text")
40379
00827567d7bd (mouse-buffer-menu-mode-groups): added SGML group
Sam Steingold <sds@gnu.org>
parents: 40268
diff changeset
1729 ("\\(HT\\|SG\\|X\\|XHT\\)ML" . "SGML")
99491
0424deda6873 (mouse-buffer-menu-mode-groups): Place "Annotate" into
Sam Steingold <sds@gnu.org>
parents: 98483
diff changeset
1730 ("log\\|diff\\|vc\\|cvs\\|Annotate" . "Version Control") ; "Change Management"?
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
1731 ("Lisp" . "Lisp")))
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
1732 "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
1733 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
1734 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
1735
1056
a7fc54083464 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
1736 (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
1737 "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
1738 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
1739 and selects that window."
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1100
diff changeset
1740 (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
1741 (mouse-minibuffer-check event)
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1742 (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
1743 ;; Make an alist of elements that look like (MENU-ITEM . BUFFER).
82298
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1744 (dolist (buf buffers)
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1745 ;; Divide all buffers into buckets for various major modes.
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1746 ;; Each bucket looks like (MODE NAMESTRING BUFFERS...).
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1747 (with-current-buffer buf
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1748 (let* ((adjusted-major-mode major-mode) elt)
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1749 (dolist (group mouse-buffer-menu-mode-groups)
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1750 (when (string-match (car group) (format-mode-line mode-name))
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1751 (setq adjusted-major-mode (cdr group))))
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1752 (setq elt (assoc adjusted-major-mode split-by-major-mode))
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1753 (unless elt
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1754 (setq elt (list adjusted-major-mode
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1755 (if (stringp adjusted-major-mode)
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1756 adjusted-major-mode
87567
4c3c683cdff8 * erc-ibuffer.el (erc-channel-modes):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87387
diff changeset
1757 (format-mode-line mode-name nil nil buf)))
82298
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1758 split-by-major-mode (cons elt split-by-major-mode)))
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1759 (or (memq buf (cdr (cdr elt)))
0b0e460b400a (mouse-buffer-menu): Pass mode-name through format-mode-line because it
Sam Steingold <sds@gnu.org>
parents: 82140
diff changeset
1760 (setcdr (cdr elt) (cons buf (cdr (cdr 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
1761 ;; 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
1762 (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
1763 (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
1764 (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
1765 (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
1766 (+ sum-of-squares
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1767 (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
1768 (setq tail (cdr tail))))
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1769 (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
1770 (* (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
1771 ;; 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
1772 (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
1773 ;; 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
1774 (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
1775 (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
1776 (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
1777 (> (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
1778 ;; 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
1779 ;; 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
1780 ;; 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
1781 (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
1782 (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
1783 (> (* 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
1784 (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
1785 (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
1786 (and this-mode-list
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1787 (setq subdivided-menus
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1788 (cons (cons
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1789 (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
1790 this-mode-list)
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1791 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
1792 (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
1793 (- 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
1794 (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
1795 ;; 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
1796 ;; 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
1797 (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
1798 (let ((others-list
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1799 (mouse-buffer-menu-alist
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1800 ;; 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
1801 ;; 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
1802 (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
1803 (and others-list
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1804 (setq subdivided-menus
f12d1ec614e9 (mouse-buffer-menu): If the buffer menu is split by
Eli Zaretskii <eliz@gnu.org>
parents: 38763
diff changeset
1805 (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
1806 subdivided-menus)))))
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1807 (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
1808 (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
1809 (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
1810 (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
1811 (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
1812 (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
1813 (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
1814 (when buf
41033
0701d564260d (mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents: 40648
diff changeset
1815 (select-window
0701d564260d (mouse-show-mark): Either move point to the mark
Richard M. Stallman <rms@gnu.org>
parents: 40648
diff changeset
1816 (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
1817 window))
21685
b0ae6e29c252 (mouse-buffer-menu-mode-mult): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 21426
diff changeset
1818 (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
1819
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
1820 (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
1821 (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
1822 (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
1823 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
1824 (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
1825 (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
1826 (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
1827 (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
1828 (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
1829 (while tail
63849
91ca3ff1b216 (mouse-buffer-menu-alist): Change space constants followed by a sexp to "?\s ".
Juanma Barranquero <lekktu@gmail.com>
parents: 63256
diff changeset
1830 (or (eq ?\s (aref (buffer-name (car tail)) 0))
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
1831 (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
1832 (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
1833 (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
1834 (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
1835 (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
1836 (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
1837 (let ((elt (car tail)))
74238
1901989292d8 (mouse-popup-menubar, mouse-buffer-menu-alist): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents: 74024
diff changeset
1838 (if (/= (aref (buffer-name elt) 0) ?\s)
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
1839 (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
1840 (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
1841 (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
1842 (format
79542
2a2eddb0058b (mouse-buffer-menu-alist): Keep buffer names left aligned.
Jason Rumney <jasonr@gnu.org>
parents: 78236
diff changeset
1843 (format "%%-%ds %%s%%s %%s" maxlen)
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
1844 (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
1845 (if (buffer-modified-p elt) "*" " ")
105994
009383a57ce8 * x-dnd.el (x-dnd-maybe-call-test-function):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105870
diff changeset
1846 (with-current-buffer 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
1847 (if buffer-read-only "%" " "))
40268
3b6c70f1fe6c (mouse-buffer-menu-mode-groups): Added "Version Control" group.
Sam Steingold <sds@gnu.org>
parents: 38982
diff changeset
1848 (or (buffer-file-name elt)
105994
009383a57ce8 * x-dnd.el (x-dnd-maybe-call-test-function):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105870
diff changeset
1849 (with-current-buffer 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
1850 (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
1851 (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
1852 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
1853 ""))
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
1854 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
1855 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
1856 (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
1857 ;; 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
1858 (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
1859
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
1860 (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
1861 ;; 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
1862 ;; 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
1863 (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
1864 (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
1865 (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
1866 (while alist
21148
bbbd345f54de (mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents: 20686
diff changeset
1867 ;; 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
1868 ;; 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
1869 (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
1870 (if next
21148
bbbd345f54de (mouse-buffer-menu-maxlen): Renamed from mouse-menu-buffer-maxlen.
Richard M. Stallman <rms@gnu.org>
parents: 20686
diff changeset
1871 (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
1872 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
1873 (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
1874 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
1875 (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
1876 (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
1877 (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
1878 ;; 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
1879 (list (cons title alist))))
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1880
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1881 ;; These need to be rewritten for the new scroll bar implementation.
66
5793fbcb9ac1 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1882
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1883 ;;!! ;; Commands for the scroll bar.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1884 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1885 ;;!! (defun mouse-scroll-down (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1886 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1887 ;;!! (scroll-down (1+ (cdr (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1888 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1889 ;;!! (defun mouse-scroll-up (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1890 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1891 ;;!! (scroll-up (1+ (cdr (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1892 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1893 ;;!! (defun mouse-scroll-down-full ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1894 ;;!! (interactive "@")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1895 ;;!! (scroll-down nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1896 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1897 ;;!! (defun mouse-scroll-up-full ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1898 ;;!! (interactive "@")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1899 ;;!! (scroll-up nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1900 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1901 ;;!! (defun mouse-scroll-move-cursor (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1902 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1903 ;;!! (move-to-window-line (1+ (cdr (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1904 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1905 ;;!! (defun mouse-scroll-absolute (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1906 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1907 ;;!! (let* ((pos (car event))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1908 ;;!! (position (car pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1909 ;;!! (length (car (cdr pos))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1910 ;;!! (if (<= length 0) (setq length 1))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1911 ;;!! (let* ((scale-factor (max 1 (/ length (/ 8000000 (buffer-size)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1912 ;;!! (newpos (* (/ (* (/ (buffer-size) scale-factor)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1913 ;;!! position)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1914 ;;!! length)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1915 ;;!! scale-factor)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1916 ;;!! (goto-char newpos)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1917 ;;!! (recenter '(4)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1918 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1919 ;;!! (defun mouse-scroll-left (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1920 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1921 ;;!! (scroll-left (1+ (car (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1922 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1923 ;;!! (defun mouse-scroll-right (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1924 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1925 ;;!! (scroll-right (1+ (car (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1926 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1927 ;;!! (defun mouse-scroll-left-full ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1928 ;;!! (interactive "@")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1929 ;;!! (scroll-left nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1930 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1931 ;;!! (defun mouse-scroll-right-full ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1932 ;;!! (interactive "@")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1933 ;;!! (scroll-right nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1934 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1935 ;;!! (defun mouse-scroll-move-cursor-horizontally (click)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1936 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1937 ;;!! (move-to-column (1+ (car (mouse-coords click)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1938 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1939 ;;!! (defun mouse-scroll-absolute-horizontally (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1940 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1941 ;;!! (let* ((pos (car event))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1942 ;;!! (position (car pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1943 ;;!! (length (car (cdr pos))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1944 ;;!! (set-window-hscroll (selected-window) 33)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1945 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1946 ;;!! (global-set-key [scroll-bar mouse-1] 'mouse-scroll-up)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1947 ;;!! (global-set-key [scroll-bar mouse-2] 'mouse-scroll-absolute)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1948 ;;!! (global-set-key [scroll-bar mouse-3] 'mouse-scroll-down)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1949 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1950 ;;!! (global-set-key [vertical-slider mouse-1] 'mouse-scroll-move-cursor)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1951 ;;!! (global-set-key [vertical-slider mouse-2] 'mouse-scroll-move-cursor)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1952 ;;!! (global-set-key [vertical-slider mouse-3] 'mouse-scroll-move-cursor)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1953 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1954 ;;!! (global-set-key [thumbup mouse-1] 'mouse-scroll-up-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1955 ;;!! (global-set-key [thumbup mouse-2] 'mouse-scroll-up-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1956 ;;!! (global-set-key [thumbup mouse-3] 'mouse-scroll-up-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1957 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1958 ;;!! (global-set-key [thumbdown mouse-1] 'mouse-scroll-down-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1959 ;;!! (global-set-key [thumbdown mouse-2] 'mouse-scroll-down-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1960 ;;!! (global-set-key [thumbdown mouse-3] 'mouse-scroll-down-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1961 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1962 ;;!! (global-set-key [horizontal-scroll-bar mouse-1] 'mouse-scroll-left)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1963 ;;!! (global-set-key [horizontal-scroll-bar mouse-2]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1964 ;;!! 'mouse-scroll-absolute-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1965 ;;!! (global-set-key [horizontal-scroll-bar mouse-3] 'mouse-scroll-right)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1966 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1967 ;;!! (global-set-key [horizontal-slider mouse-1]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1968 ;;!! 'mouse-scroll-move-cursor-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1969 ;;!! (global-set-key [horizontal-slider mouse-2]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1970 ;;!! 'mouse-scroll-move-cursor-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1971 ;;!! (global-set-key [horizontal-slider mouse-3]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1972 ;;!! 'mouse-scroll-move-cursor-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1973 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1974 ;;!! (global-set-key [thumbleft mouse-1] 'mouse-scroll-left-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1975 ;;!! (global-set-key [thumbleft mouse-2] 'mouse-scroll-left-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1976 ;;!! (global-set-key [thumbleft mouse-3] 'mouse-scroll-left-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1977 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1978 ;;!! (global-set-key [thumbright mouse-1] 'mouse-scroll-right-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1979 ;;!! (global-set-key [thumbright mouse-2] 'mouse-scroll-right-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1980 ;;!! (global-set-key [thumbright mouse-3] 'mouse-scroll-right-full)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1981 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1982 ;;!! (global-set-key [horizontal-scroll-bar S-mouse-2]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1983 ;;!! 'mouse-split-window-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1984 ;;!! (global-set-key [mode-line S-mouse-2]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1985 ;;!! 'mouse-split-window-horizontally)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1986 ;;!! (global-set-key [vertical-scroll-bar S-mouse-2]
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1987 ;;!! 'mouse-split-window)
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
1988
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1989 ;;!! ;;;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1990 ;;!! ;;;; Here are experimental things being tested. Mouse events
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1991 ;;!! ;;;; are of the form:
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1992 ;;!! ;;;; ((x y) window screen-part key-sequence timestamp)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1993 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1994 ;;!! ;;;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1995 ;;!! ;;;; Dynamically track mouse coordinates
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1996 ;;!! ;;;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1997 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1998 ;;!! ;;(defun track-mouse (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
1999 ;;!! ;; "Track the coordinates, absolute and relative, of the mouse."
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2000 ;;!! ;; (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2001 ;;!! ;; (while mouse-grabbed
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2002 ;;!! ;; (let* ((pos (read-mouse-position (selected-screen)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2003 ;;!! ;; (abs-x (car pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2004 ;;!! ;; (abs-y (cdr pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2005 ;;!! ;; (relative-coordinate (coordinates-in-window-p
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2006 ;;!! ;; (list (car pos) (cdr pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2007 ;;!! ;; (selected-window))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2008 ;;!! ;; (if (consp relative-coordinate)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2009 ;;!! ;; (message "mouse: [%d %d], (%d %d)" abs-x abs-y
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2010 ;;!! ;; (car relative-coordinate)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2011 ;;!! ;; (car (cdr relative-coordinate)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2012 ;;!! ;; (message "mouse: [%d %d]" abs-x abs-y)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2013 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2014 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2015 ;;!! ;; Dynamically put a box around the line indicated by point
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2016 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2017 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2018 ;;!! ;;(require 'backquote)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2019 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2020 ;;!! ;;(defun mouse-select-buffer-line (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2021 ;;!! ;; (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2022 ;;!! ;; (let ((relative-coordinate
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2023 ;;!! ;; (coordinates-in-window-p (car event) (selected-window)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2024 ;;!! ;; (abs-y (car (cdr (car event)))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2025 ;;!! ;; (if (consp relative-coordinate)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2026 ;;!! ;; (progn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2027 ;;!! ;; (save-excursion
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2028 ;;!! ;; (move-to-window-line (car (cdr relative-coordinate)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2029 ;;!! ;; (x-draw-rectangle
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2030 ;;!! ;; (selected-screen)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2031 ;;!! ;; abs-y 0
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2032 ;;!! ;; (save-excursion
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2033 ;;!! ;; (move-to-window-line (car (cdr relative-coordinate)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2034 ;;!! ;; (end-of-line)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2035 ;;!! ;; (push-mark nil t)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2036 ;;!! ;; (beginning-of-line)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2037 ;;!! ;; (- (region-end) (region-beginning))) 1))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2038 ;;!! ;; (sit-for 1)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2039 ;;!! ;; (x-erase-rectangle (selected-screen))))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2040 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2041 ;;!! ;;(defvar last-line-drawn nil)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2042 ;;!! ;;(defvar begin-delim "[^ \t]")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2043 ;;!! ;;(defvar end-delim "[^ \t]")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2044 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2045 ;;!! ;;(defun mouse-boxing (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2046 ;;!! ;; (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2047 ;;!! ;; (save-excursion
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2048 ;;!! ;; (let ((screen (selected-screen)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2049 ;;!! ;; (while (= (x-mouse-events) 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2050 ;;!! ;; (let* ((pos (read-mouse-position screen))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2051 ;;!! ;; (abs-x (car pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2052 ;;!! ;; (abs-y (cdr pos))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2053 ;;!! ;; (relative-coordinate
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2054 ;;!! ;; (coordinates-in-window-p `(,abs-x ,abs-y)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2055 ;;!! ;; (selected-window)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2056 ;;!! ;; (begin-reg nil)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2057 ;;!! ;; (end-reg nil)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2058 ;;!! ;; (end-column nil)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2059 ;;!! ;; (begin-column nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2060 ;;!! ;; (if (and (consp relative-coordinate)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2061 ;;!! ;; (or (not last-line-drawn)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2062 ;;!! ;; (not (= last-line-drawn abs-y))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2063 ;;!! ;; (progn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2064 ;;!! ;; (move-to-window-line (car (cdr relative-coordinate)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2065 ;;!! ;; (if (= (following-char) 10)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2066 ;;!! ;; ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2067 ;;!! ;; (progn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2068 ;;!! ;; (setq begin-reg (1- (re-search-forward end-delim)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2069 ;;!! ;; (setq begin-column (1- (current-column)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2070 ;;!! ;; (end-of-line)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2071 ;;!! ;; (setq end-reg (1+ (re-search-backward begin-delim)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2072 ;;!! ;; (setq end-column (1+ (current-column)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2073 ;;!! ;; (message "%s" (buffer-substring begin-reg end-reg))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2074 ;;!! ;; (x-draw-rectangle screen
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2075 ;;!! ;; (setq last-line-drawn abs-y)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2076 ;;!! ;; begin-column
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2077 ;;!! ;; (- end-column begin-column) 1))))))))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2078 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2079 ;;!! ;;(defun mouse-erase-box ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2080 ;;!! ;; (interactive)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2081 ;;!! ;; (if last-line-drawn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2082 ;;!! ;; (progn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2083 ;;!! ;; (x-erase-rectangle (selected-screen))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2084 ;;!! ;; (setq last-line-drawn nil))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2085 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2086 ;;!! ;;; (defun test-x-rectangle ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2087 ;;!! ;;; (use-local-mouse-map (setq rectangle-test-map (make-sparse-keymap)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2088 ;;!! ;;; (define-key rectangle-test-map mouse-motion-button-left 'mouse-boxing)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2089 ;;!! ;;; (define-key rectangle-test-map mouse-button-left-up 'mouse-erase-box))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2090 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2091 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2092 ;;!! ;; Here is how to do double clicking in lisp. About to change.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2093 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2094 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2095 ;;!! (defvar double-start nil)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2096 ;;!! (defconst double-click-interval 300
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2097 ;;!! "Max ticks between clicks")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2098 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2099 ;;!! (defun double-down (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2100 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2101 ;;!! (if double-start
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2102 ;;!! (let ((interval (- (nth 4 event) double-start)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2103 ;;!! (if (< interval double-click-interval)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2104 ;;!! (progn
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2105 ;;!! (backward-up-list 1)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2106 ;;!! ;; (message "Interval %d" interval)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2107 ;;!! (sleep-for 1)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2108 ;;!! (setq double-start nil))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2109 ;;!! (setq double-start (nth 4 event))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2110 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2111 ;;!! (defun double-up (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2112 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2113 ;;!! (and double-start
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2114 ;;!! (> (- (nth 4 event ) double-start) double-click-interval)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2115 ;;!! (setq double-start nil)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2116 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2117 ;;!! ;;; (defun x-test-doubleclick ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2118 ;;!! ;;; (use-local-mouse-map (setq doubleclick-test-map (make-sparse-keymap)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2119 ;;!! ;;; (define-key doubleclick-test-map mouse-button-left 'double-down)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2120 ;;!! ;;; (define-key doubleclick-test-map mouse-button-left-up 'double-up))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2121 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2122 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2123 ;;!! ;; This scrolls while button is depressed. Use preferable in scroll bar.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2124 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2125 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2126 ;;!! (defvar scrolled-lines 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2127 ;;!! (defconst scroll-speed 1)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2128 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2129 ;;!! (defun incr-scroll-down (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2130 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2131 ;;!! (setq scrolled-lines 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2132 ;;!! (incremental-scroll scroll-speed))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2133 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2134 ;;!! (defun incr-scroll-up (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2135 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2136 ;;!! (setq scrolled-lines 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2137 ;;!! (incremental-scroll (- scroll-speed)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2138 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2139 ;;!! (defun incremental-scroll (n)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2140 ;;!! (while (= (x-mouse-events) 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2141 ;;!! (setq scrolled-lines (1+ (* scroll-speed scrolled-lines)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2142 ;;!! (scroll-down n)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2143 ;;!! (sit-for 300 t)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2144 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2145 ;;!! (defun incr-scroll-stop (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2146 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2147 ;;!! (message "Scrolled %d lines" scrolled-lines)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2148 ;;!! (setq scrolled-lines 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2149 ;;!! (sleep-for 1))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2150 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2151 ;;!! ;;; (defun x-testing-scroll ()
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2152 ;;!! ;;; (let ((scrolling-map (function mouse-vertical-scroll-bar-prefix)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2153 ;;!! ;;; (define-key scrolling-map mouse-button-left 'incr-scroll-down)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2154 ;;!! ;;; (define-key scrolling-map mouse-button-right 'incr-scroll-up)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2155 ;;!! ;;; (define-key scrolling-map mouse-button-left-up 'incr-scroll-stop)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2156 ;;!! ;;; (define-key scrolling-map mouse-button-right-up 'incr-scroll-stop)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2157 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2158 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2159 ;;!! ;; Some playthings suitable for picture mode? They need work.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2160 ;;!! ;;
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2161 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2162 ;;!! (defun mouse-kill-rectangle (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2163 ;;!! "Kill the rectangle between point and the mouse cursor."
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2164 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2165 ;;!! (let ((point-save (point)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2166 ;;!! (save-excursion
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2167 ;;!! (mouse-set-point event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2168 ;;!! (push-mark nil t)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2169 ;;!! (if (> point-save (point))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2170 ;;!! (kill-rectangle (point) point-save)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2171 ;;!! (kill-rectangle point-save (point))))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2172 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2173 ;;!! (defun mouse-open-rectangle (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2174 ;;!! "Kill the rectangle between point and the mouse cursor."
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2175 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2176 ;;!! (let ((point-save (point)))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2177 ;;!! (save-excursion
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2178 ;;!! (mouse-set-point event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2179 ;;!! (push-mark nil t)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2180 ;;!! (if (> point-save (point))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2181 ;;!! (open-rectangle (point) point-save)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2182 ;;!! (open-rectangle point-save (point))))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2183 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2184 ;;!! ;; Must be a better way to do this.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2185 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2186 ;;!! (defun mouse-multiple-insert (n char)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2187 ;;!! (while (> n 0)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2188 ;;!! (insert char)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2189 ;;!! (setq n (1- n))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2190 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2191 ;;!! ;; What this could do is not finalize until button was released.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2192 ;;!!
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2193 ;;!! (defun mouse-move-text (event)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2194 ;;!! "Move text from point to cursor position, inserting spaces."
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2195 ;;!! (interactive "@e")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2196 ;;!! (let* ((relative-coordinate
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2197 ;;!! (coordinates-in-window-p (car event) (selected-window))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2198 ;;!! (if (consp relative-coordinate)
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2199 ;;!! (cond ((> (current-column) (car relative-coordinate))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2200 ;;!! (delete-char
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2201 ;;!! (- (car relative-coordinate) (current-column))))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2202 ;;!! ((< (current-column) (car relative-coordinate))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2203 ;;!! (mouse-multiple-insert
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2204 ;;!! (- (car relative-coordinate) (current-column)) " "))
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2205 ;;!! ((= (current-column) (car relative-coordinate)) (ding))))))
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2206
105601
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105372
diff changeset
2207 (define-obsolete-function-alias
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105372
diff changeset
2208 'mouse-choose-completion 'choose-completion "23.2")
4081
da352b92ca90 (mouse-choose-completion): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3961
diff changeset
2209
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2210 ;; Font selection.
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
2211
4294
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2212 (defun font-menu-add-default ()
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2213 (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
2214 (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
2215 (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
2216 (if (assoc "Default" elt)
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2217 (delete (assoc "Default" elt) elt))
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2218 (setcdr elt
25547
2992a7953ac4 (font-menu-add-default): Simplify code.
Richard M. Stallman <rms@gnu.org>
parents: 25288
diff changeset
2219 (cons (list "Default" default)
4294
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2220 (cdr elt)))))
644e33e3ab38 (font-menu-add-default): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4274
diff changeset
2221
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2222 (defvar x-fixed-font-alist
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2223 (list
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2224 (purecopy "Font Menu")
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2225 (cons
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2226 (purecopy "Misc")
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2227 (mapcar
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2228 (lambda (arg) (cons (purecopy (car arg)) (purecopy (cdr arg))))
8460
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2229 ;; For these, we specify the pixel height and width.
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2230 '(("fixed" "fixed")
8460
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2231 ("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
2232 ("6x12"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2233 "-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
2234 ("6x13"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2235 "-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
2236 ("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
2237 ("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
2238 ("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
2239 ("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
2240 ("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
2241 ("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
2242 ("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
2243 ("")
8487
0a77d1dbae03 (x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents: 8477
diff changeset
2244 ("clean 5x8"
0a77d1dbae03 (x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents: 8477
diff changeset
2245 "-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
2246 ("clean 6x8"
0a77d1dbae03 (x-fixed-font-alist): Add clean 5x8 and clean 6x8.
Richard M. Stallman <rms@gnu.org>
parents: 8477
diff changeset
2247 "-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
2248 ("clean 8x8"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2249 "-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
2250 ("clean 8x10"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2251 "-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
2252 ("clean 8x14"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2253 "-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
2254 ("clean 8x16"
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2255 "-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
2256 ("")
25097
65612dade7f5 (x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents: 24962
diff changeset
2257 ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1")
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2258 ;; We don't seem to have these; who knows what they are.
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2259 ;; ("fg-18" "fg-18")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2260 ;; ("fg-25" "fg-25")
25097
65612dade7f5 (x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents: 24962
diff changeset
2261 ("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
2262 ("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
2263 ("lucidasanstypewriter-bold-24"
65612dade7f5 (x-fixed-font-alist): Add lucidasanstypewriter.
Dave Love <fx@gnu.org>
parents: 24962
diff changeset
2264 "-b&h-lucidatypewriter-bold-r-normal-sans-*-240-*-*-*-*-iso8859-1")
93512
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2265 ;; ("lucidatypewriter-bold-r-24" "-b&h-lucidatypewriter-bold-r-normal-sans-24-240-75-75-m-140-iso8859-1")
425b4f72a3dc (mouse-major-mode-menu-prefix): Remove. Remove uses.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92046
diff changeset
2266 ;; ("fixed-medium-20" "-misc-fixed-medium-*-*-*-20-*-*-*-*-*-*-*")
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2267 )))
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2268
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2269 (cons
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2270 (purecopy "Courier")
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2271 (mapcar
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2272 (lambda (arg) (cons (purecopy (car arg)) (purecopy (cdr arg))))
8460
5fd799a9946e (x-fixed-font-alist): Regularize how fonts are specified.
Richard M. Stallman <rms@gnu.org>
parents: 8426
diff changeset
2273 ;; For these, we specify the point height.
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2274 '(("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1")
3231
fb322590dda0 (x-fixed-font-alist): Specify field 7, not field 6.
Richard M. Stallman <rms@gnu.org>
parents: 3119
diff changeset
2275 ("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
2276 ("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
2277 ("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
2278 ("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
2279 ("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
2280 ("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
2281 ("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
2282 ("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
2283 ("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
2284 ("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
2285 ("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
2286 ("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
2287 ("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
2288 ("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
2289 ("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
2290 ("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
2291 ("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
2292 ("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
2293 ("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
2294 ("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
2295 ("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
2296 ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1")
105765
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2297 ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1")
db5e4a5897ec * textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105601
diff changeset
2298 ))))
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2299 "X fonts suitable for use in Emacs.")
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2300
95841
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 95788
diff changeset
2301 (declare-function generate-fontset-menu "fontset" ())
b4e36ff621b3 Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 95788
diff changeset
2302
95788
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2303 (defun mouse-select-font ()
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2304 "Prompt for a font name, using `x-popup-menu', and return it."
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2305 (interactive)
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2306 (unless (display-multi-font-p)
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2307 (error "Cannot change fonts on this display"))
101581
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2308 (car
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2309 (x-popup-menu
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2310 (if (listp last-nonmenu-event)
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2311 last-nonmenu-event
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2312 (list '(0 0) (selected-window)))
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2313 (append x-fixed-font-alist
c78f51452913 (mouse-select-font): Return a string instead of a list.
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
2314 (list (generate-fontset-menu))))))
95788
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2315
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2316 (declare-function text-scale-mode "face-remap")
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2317
6867
0f4c8109274a (x-fixed-font-alist): Give multiple names for try for certain fonts.
Richard M. Stallman <rms@gnu.org>
parents: 6548
diff changeset
2318 (defun mouse-set-font (&rest fonts)
95788
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2319 "Set the default font for the selected frame.
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2320 The argument FONTS is a list of font names; the first valid font
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2321 in this list is used.
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2322
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2323 When called interactively, pop up a menu and allow the user to
4542b29082c9 (mouse-select-font): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 94678
diff changeset
2324 choose a font."
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2325 (interactive
45570
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2326 (progn (unless (display-multi-font-p)
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2327 (error "Cannot change fonts on this display"))
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2328 (x-popup-menu
58837
e3c6ff0922c2 (mouse-set-font): Handle the case where the command was not invoked
Luc Teirlinck <teirllm@auburn.edu>
parents: 58194
diff changeset
2329 (if (listp last-nonmenu-event)
e3c6ff0922c2 (mouse-set-font): Handle the case where the command was not invoked
Luc Teirlinck <teirllm@auburn.edu>
parents: 58194
diff changeset
2330 last-nonmenu-event
e3c6ff0922c2 (mouse-set-font): Handle the case where the command was not invoked
Luc Teirlinck <teirllm@auburn.edu>
parents: 58194
diff changeset
2331 (list '(0 0) (selected-window)))
45570
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2332 ;; Append list of fontsets currently defined.
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2333 (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
2334 (if fonts
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2335 (let (font)
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2336 (while fonts
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2337 (condition-case nil
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2338 (progn
98483
82020c1ee454 (mouse-set-font): Use set-frame-font.
Glenn Morris <rgm@gnu.org>
parents: 97422
diff changeset
2339 (set-frame-font (car fonts))
6914
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2340 (setq font (car fonts))
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2341 (setq fonts nil))
7021
da5dc735eb50 (mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents: 6923
diff changeset
2342 (error
da5dc735eb50 (mouse-set-font): Simply call set-default-font.
Richard M. Stallman <rms@gnu.org>
parents: 6923
diff changeset
2343 (setq fonts (cdr fonts)))))
6914
569c2c6d812f (mouse-set-font): Don't error if no selection.
Karl Heuer <kwzh@gnu.org>
parents: 6867
diff changeset
2344 (if (null font)
45570
1739a350f81c (mouse-set-font): Avoid misleading error message if user makes no selection.
Richard M. Stallman <rms@gnu.org>
parents: 44474
diff changeset
2345 (error "Font not found")))))
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2346
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2347 (defvar mouse-appearance-menu-map nil)
96033
6600c6bbfa93 (x-select-font): Declare.
Glenn Morris <rgm@gnu.org>
parents: 95979
diff changeset
2348 (declare-function x-select-font "xfns.c" (&optional frame ignored)) ; USE_GTK
96062
585941e8f7bc (buffer-face-mode-invoke): Declare.
Glenn Morris <rgm@gnu.org>
parents: 96043
diff changeset
2349 (declare-function buffer-face-mode-invoke "face-remap"
585941e8f7bc (buffer-face-mode-invoke): Declare.
Glenn Morris <rgm@gnu.org>
parents: 96043
diff changeset
2350 (face arg &optional interactive))
97422
6e551caf98f6 Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents: 97043
diff changeset
2351 (declare-function font-face-attributes "font.c" (font &optional frame))
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2352
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2353 (defun mouse-appearance-menu (event)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2354 (interactive "@e")
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2355 (require 'face-remap)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2356 (when (display-multi-font-p)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2357 (with-selected-window (car (event-start event))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2358 (if mouse-appearance-menu-map
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2359 nil ; regenerate new fonts
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2360 ;; Initialize mouse-appearance-menu-map
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2361 (setq mouse-appearance-menu-map
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2362 (make-sparse-keymap "Change Default Buffer Face"))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2363 (define-key mouse-appearance-menu-map [face-remap-reset-base]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2364 '(menu-item "Reset to Default" face-remap-reset-base))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2365 (define-key mouse-appearance-menu-map [text-scale-decrease]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2366 '(menu-item "Decrease Buffer Text Size" text-scale-decrease))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2367 (define-key mouse-appearance-menu-map [text-scale-increase]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2368 '(menu-item "Increase Buffer Text Size" text-scale-increase))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2369 ;; Font selector
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2370 (if (functionp 'x-select-font)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2371 (define-key mouse-appearance-menu-map [x-select-font]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2372 '(menu-item "Change Buffer Font..." x-select-font))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2373 ;; If the select-font is unavailable, construct a menu.
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2374 (let ((font-submenu (make-sparse-keymap "Change Text Font"))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2375 (font-alist (cdr (append x-fixed-font-alist
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2376 (list (generate-fontset-menu))))))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2377 (dolist (family font-alist)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2378 (let* ((submenu-name (car family))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2379 (submenu-map (make-sparse-keymap submenu-name)))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2380 (dolist (font (cdr family))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2381 (let ((font-name (car font))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2382 font-symbol)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2383 (if (string= font-name "")
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2384 (define-key submenu-map [space]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2385 '("--"))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2386 (setq font-symbol (intern (cadr font)))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2387 (define-key submenu-map (vector font-symbol)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2388 (list 'menu-item (car font) font-symbol)))))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2389 (define-key font-submenu (vector (intern submenu-name))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2390 (list 'menu-item submenu-name submenu-map))))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2391 (define-key mouse-appearance-menu-map [font-submenu]
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2392 (list 'menu-item "Change Text Font" font-submenu)))))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2393 (let ((choice (x-popup-menu event mouse-appearance-menu-map)))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2394 (setq choice (nth (1- (length choice)) choice))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2395 (cond ((eq choice 'text-scale-increase)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2396 (text-scale-increase 1))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2397 ((eq choice 'text-scale-decrease)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2398 (text-scale-increase -1))
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2399 ((eq choice 'face-remap-reset-base)
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2400 (text-scale-mode 0)
96043
a678c02d0c40 Use buffer-face-mode for mouse font menu
Miles Bader <miles@gnu.org>
parents: 96033
diff changeset
2401 (buffer-face-mode 0))
96218
15fc1f3d8664 Handle void selection in mouse-appearance-menu
Miles Bader <miles@gnu.org>
parents: 96062
diff changeset
2402 (choice
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2403 ;; Either choice == 'x-select-font, or choice is a
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2404 ;; symbol whose name is a font.
96043
a678c02d0c40 Use buffer-face-mode for mouse font menu
Miles Bader <miles@gnu.org>
parents: 96033
diff changeset
2405 (buffer-face-mode-invoke (font-face-attributes
a678c02d0c40 Use buffer-face-mode for mouse font menu
Miles Bader <miles@gnu.org>
parents: 96033
diff changeset
2406 (if (eq choice 'x-select-font)
a678c02d0c40 Use buffer-face-mode for mouse font menu
Miles Bader <miles@gnu.org>
parents: 96033
diff changeset
2407 (x-select-font)
a678c02d0c40 Use buffer-face-mode for mouse font menu
Miles Bader <miles@gnu.org>
parents: 96033
diff changeset
2408 (symbol-name choice)))
105372
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 105048
diff changeset
2409 t
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 105048
diff changeset
2410 (called-interactively-p 'interactive))))))))
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2411
465
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
2412
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
2413 ;;; Bindings for mouse commands.
36359663b6d8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
2414
2799
93a5aef19835 (mouse-drag-region): New command, on down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents: 2632
diff changeset
2415 (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
2416 (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
2417 (global-set-key [drag-mouse-1] 'mouse-set-region)
1057
d9775f33488d *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1056
diff changeset
2418
4738
76a2ea569de5 (mouse-set-region): Put region in kill ring.
Richard M. Stallman <rms@gnu.org>
parents: 4592
diff changeset
2419 ;; 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
2420 (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
2421 (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
2422
53133
50717ae10f39 Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so
Kim F. Storm <storm@cua.dk>
parents: 52405
diff changeset
2423 ;; Clicking on the fringes causes hscrolling:
50717ae10f39 Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so
Kim F. Storm <storm@cua.dk>
parents: 52405
diff changeset
2424 (global-set-key [left-fringe mouse-1] 'mouse-set-point)
50717ae10f39 Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so
Kim F. Storm <storm@cua.dk>
parents: 52405
diff changeset
2425 (global-set-key [right-fringe mouse-1] 'mouse-set-point)
50717ae10f39 Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so
Kim F. Storm <storm@cua.dk>
parents: 52405
diff changeset
2426
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
2427 (global-set-key [mouse-2] 'mouse-yank-at-click)
72427
3fc22ce89bd1 (global-map): Allow yanking with mouse-2 at a spot whose
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 72077
diff changeset
2428 ;; Allow yanking also when the corresponding cursor is "in the fringe".
74024
fbcf2e3cbf22 (global-map): Change 2006-08-16 fix to call mouse-yank-at-click
Chong Yidong <cyd@stupidchicken.com>
parents: 73755
diff changeset
2429 (global-set-key [right-fringe mouse-2] 'mouse-yank-at-click)
75610
e50186bf86ca <left-fringe mouse-2, right-fringe mouse-3, left-fringe mouse-3>: New bindings.
Eli Zaretskii <eliz@gnu.org>
parents: 75430
diff changeset
2430 (global-set-key [left-fringe mouse-2] 'mouse-yank-at-click)
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
2431 (global-set-key [mouse-3] 'mouse-save-then-kill)
75610
e50186bf86ca <left-fringe mouse-2, right-fringe mouse-3, left-fringe mouse-3>: New bindings.
Eli Zaretskii <eliz@gnu.org>
parents: 75430
diff changeset
2432 (global-set-key [right-fringe mouse-3] 'mouse-save-then-kill)
e50186bf86ca <left-fringe mouse-2, right-fringe mouse-3, left-fringe mouse-3>: New bindings.
Eli Zaretskii <eliz@gnu.org>
parents: 75430
diff changeset
2433 (global-set-key [left-fringe mouse-3] 'mouse-save-then-kill)
705
c7d478752305 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 659
diff changeset
2434
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1765
diff changeset
2435 ;; 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
2436 ;; 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
2437 (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
2438 (if (not (eq system-type 'ms-dos))
95977
d76373886395 (mouse-appearance-menu-map): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 95841
diff changeset
2439 (global-set-key [S-down-mouse-1] 'mouse-appearance-menu))
9753
00144934b449 Put mouse-set-font on C-down-mouse-1.
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
2440 ;; C-down-mouse-2 is bound in facemenu.el.
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
2441 (global-set-key [C-down-mouse-3]
105870
26baacb565b0 * textmodes/tex-mode.el (tex-alt-dvi-print-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105765
diff changeset
2442 `(menu-item ,(purecopy "Menu Bar") ignore
93889
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
2443 :filter (lambda (_)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
2444 (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0))
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
2445 (mouse-menu-bar-map)
a22fbbd18c59 * mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93664
diff changeset
2446 (mouse-menu-major-mode-map)))))
9488
114fe3739aa3 (mouse-major-mode-menu): Use minor-mode-map-alist
Richard M. Stallman <rms@gnu.org>
parents: 9206
diff changeset
2447
1100
5b3b202a84c8 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
2448
1056
a7fc54083464 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
2449 ;; Replaced with dragging mouse-1
a7fc54083464 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1039
diff changeset
2450 ;; (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
2451
32327
140165e85530 ([header-line mouse-1]): Bind to mouse-select-window.
Eli Zaretskii <eliz@gnu.org>
parents: 32319
diff changeset
2452 ;; 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
2453 ;; 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
2454 ;; 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
2455 ;; versions.
6090
e7c900a464d3 (help-menu-map): Variable deleted, and its binding.
Richard M. Stallman <rms@gnu.org>
parents: 6003
diff changeset
2456 (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
2457 (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
2458 (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
2459 (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
2460 (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
2461 (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
2462 (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
2463 (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
2464 (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
2465 (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
2466 (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
2467 (global-set-key [vertical-line mouse-1] 'mouse-select-window)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2468
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2469 (provide 'mouse)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 465
diff changeset
2470
25288
65dbd144132d Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents: 25097
diff changeset
2471 ;; This file contains the functionality of the old mldrag.el.
65dbd144132d Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents: 25097
diff changeset
2472 (defalias 'mldrag-drag-mode-line 'mouse-drag-mode-line)
65dbd144132d Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents: 25097
diff changeset
2473 (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
2474 (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
2475 (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
2476 (provide 'mldrag)
65dbd144132d Provide `mldrag' for compatibility.
Dave Love <fx@gnu.org>
parents: 25097
diff changeset
2477
65623
fcbaf6135d19 (mouse-drag-mode-line-1, mouse-drag-vertical-line):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65498
diff changeset
2478 ;; arch-tag: 9a710ce1-914a-4923-9b81-697f7bf82ab3
659
505130d1ddf8 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2479 ;;; mouse.el ends here