annotate lisp/term/bg-mouse.el @ 1314:15a91d7ae2d1

[xemacs-hg @ 2003-02-20 08:16:21 by ben] check in makefile fixes et al Makefile.in.in: Major surgery. Move all stuff related to building anything in the src/ directory into src/. Simplify the dependencies -- everything in src/ is dependent on the single entry `src' in MAKE_SUBDIRS. Remove weirdo targets like `all-elc[s]', dump-elc[s], etc. mule/mule-msw-init.el: Removed. Delete this file. mule/mule-win32-init.el: New file, with stuff from mule-msw-init.el -- not just for MS Windows native, boys and girls! bytecomp.el: Change code inserted to catch trying to load a Mule-only .elc file in a non-Mule XEmacs. Formerly you got the rather cryptic "The required feature `mule' cannot be provided". Now you get "Loading this file requires Mule support". finder.el: Remove dependency on which directory this function is invoked from. update-elc.el: Don't mess around with ../src/BYTECOMPILE_CHANGE. Now that Makefile.in.in and xemacs.mak are in sync, both of them use NEEDTODUMP and the other one isn't used. dumped-lisp.el: Rewrite in terms of `list' and `nconc' instead of assemble-list, so we can have arbitrary forms, not just `when-feature'. very-early-lisp.el: Nuke this file. finder-inf.el, packages.el, update-elc.el, update-elc-2.el, loadup.el, make-docfile.el: Eliminate references to very-early-lisp. msw-glyphs.el: Comment clarification. xemacs.mak: Add macros DO_TEMACS, DO_XEMACS, and a few others; this macro section is now completely in sync with src/Makefile.in.in. Copy check-features, load-shadows, and rebuilding finder-inf.el from src/Makefile.in.in. The main build/dump/recompile process is now synchronized with src/Makefile.in.in. Change `WARNING' to `NOTE' and `error checking' to `error-checking' TO avoid tripping faux warnings and errors in the VC++ IDE. Makefile.in.in: Major surgery. Move all stuff related to building anything in the src/ directory from top-level Makefile.in.in to here. Simplify the dependencies. Rearrange into logical subsections. Synchronize the main compile/dump/build-elcs section with xemacs.mak, which is already clean and in good working order. Remove weirdo targets like `all-elc[s]', dump-elc[s], etc. Add additional levels of macros \(e.g. DO_TEMACS, DO_XEMACS, TEMACS_BATCH, XEMACS_BATCH, XEMACS_BATCH_PACKAGES) to factor out duplicated stuff. Clean up handling of "HEAP_IN_DATA" (Cygwin) so it doesn't need to ignore the return value from dumping. Add .NO_PARALLEL since various aspects of building and dumping must be serialized but do not always have dependencies between them (this is impossible in some cases). Everything related to src/ now gets built in one pass in this directory by just running `make' (except the Makefiles themselves and config.h, paths.h, Emacs.ad.h, and other generated .h files). console.c: Update list of possibly valid console types. emacs.c: Rationalize the specifying and handling of the type of the first frame. This was originally prompted by a workspace in which I got GTK to compile under C++ and in the process fixed it so it could coexist with X in the same build -- hence, a combined TTY/X/MS-Windows/GTK build is now possible under Cygwin. (However, you can't simultaneously *display* more than one kind of device connection -- but getting that to work is not that difficult. Perhaps a project for a bored grad student. I (ben) would do it but don't see the use.) To make sense of this, I added new switches that can be used to specifically indicate the window system: -x [aka --use-x], -tty \[aka --use-tty], -msw [aka --use-ms-windows], -gtk [aka --use-gtk], and -gnome [aka --use-gnome, same as --use-gtk]. -nw continues as an alias for -tty. When none have been given, XEmacs checks for other parameters implying particular device types (-t -> tty, -display -> x [or should it have same treatment as DISPLAY below?]), and has ad-hoc logic afterwards: if env var DISPLAY is set, use x (or gtk? perhaps should check whether gnome is running), else MS Windows if it exsits, else TTY if it exists, else stream, and you must be running in batch mode. This also fixes an existing bug whereby compiling with no x, no mswin, no tty, when running non- interactively (e.g. to dump) I get "sorry, must have TTY support". emacs.c: Turn on Vstack_trace_on_error so that errors are debuggable even when occurring extremely early in reinitialization. emacs.c: Try to make sure that the user can see message output under Windows (i.e. it doesn't just disappear right away) regardless of when it occurs, e.g. in the middle of creating the first frame. emacs.c: Define new function `emacs-run-status', indicating whether XEmacs is noninteractive or interactive, whether raw, post-dump/pdump-load or run-temacs, whether we are dumping, whether pdump is in effect. event-stream.c: It's "mommas are fat", not "momas are fat". Fix other typo. event-stream.c: Conditionalize in_menu_callback check on HAVE_MENUBARS, because it won't exist on w/o menubar support, lisp.h: More hackery on RETURN_NOT_REACHED. Cygwin v3.2 DOES complain here if RETURN_NOT_REACHED() is blank, as it is for GCC 2.5+. So make it blank only for GCC 2.5 through 2.999999999999999. Declare Vstack_trace_on_error. profile.c: Need to include "profile.h" to fix warnings. sheap.c: Don't fatal() when need to rerun Make, just stderr_out() and exit(0). That way we can distinguish between a dumping failing expectedly (due to lack of stack space, triggering another dump) and unexpectedly, in which case, we want to stop building. (or go on, if -K is given) syntax.c, syntax.h: Use ints where they belong, and enum syntaxcode's where they belong, and fix warnings thereby. syntax.h: Fix crash caused by an edge condition in the syntax-cache macros. text.h: Spacing fixes. xmotif.h: New file, to get around shadowing warnings. EmacsManager.c, event-Xt.c, glyphs-x.c, gui-x.c, input-method-motif.c, xmmanagerp.h, xmprimitivep.h: Include xmotif.h. alloc.c: Conditionalize in_malloc on ERROR_CHECK_MALLOC. config.h.in, file-coding.h, fileio.c, getloadavg.c, select-x.c, signal.c, sysdep.c, sysfile.h, systime.h, text.c, unicode.c: Eliminate HAVE_WIN32_CODING_SYSTEMS, use WIN32_ANY instead. Replace defined (WIN32_NATIVE) || defined (CYGWIN) with WIN32_ANY. lisp.h: More futile attempts to walk and chew gum at the same time when dealing with subr's that don't return.
author ben
date Thu, 20 Feb 2003 08:16:21 +0000
parents d682c0f82a71
children 85bd42a1e544 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;; Author: John Robinson <jr@bbn-unix.arpa>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 ;; Stephen Gildea <gildea@bbn.com>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 ;; Maintainer: FSF
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 ;; Keywords: hardware
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;; any later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 ;; GNU General Public License for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 ;;; Code:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
28 ;;; #### utterly broken. I've put in hacks so we don't get byte-comp
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
29 ;;; warnings, but this shit should go NOW. --ben
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
30
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 ;;; Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 ;;; Modularized and enhanced by gildea@bbn.com Nov 1987
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 ;;; Time stamp <89/03/21 14:27:08 gildea>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 ;;; User customization option:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 (defvar bg-mouse-fast-select-window nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 "*Non-nil for mouse hits to select new window, then execute; else just select.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 ;;; These numbers are summed to make the index into the mouse-map.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 ;;; The low three bits correspond to what the mouse actually sends.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 (defconst bg-button-r 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 (defconst bg-button-m 2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 (defconst bg-button-c 2)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 (defconst bg-button-l 4)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 (defconst bg-in-modeline 8)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 (defconst bg-in-scrollbar 16)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 (defconst bg-in-minibuf 24)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 ;;; semicolon screws up indenting, so use this instead
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 (defconst semicolon ?\;)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 ;;; Defuns:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
55 ;; #### bunch of crap.
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
56 (globally-declare-boundp 'mouse-map)
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
57
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
58 (defun bg-window-edges (&optional win)
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
59 (error "not implemented")
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
60 (window-pixel-edges win))
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
61
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 (defun bg-mouse-report (prefix-arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 "Read, parse, and execute a BBN BitGraph mouse click.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 L-- move point | These apply for mouse click in a window.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 --R set mark | If bg-mouse-fast-select-window is nil,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 L-R kill region | these commands on a nonselected window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 -C- move point and yank | just select that window.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 LC- yank-pop |
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 -CR or LCR undo | \"Scroll bar\" is right-hand window column.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 on modeline: on \"scroll bar\": in minibuffer:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 L-- scroll-up line to top execute-extended-command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 --R scroll-down line to bottom eval-expression
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 -C- proportional goto-char line to middle suspend-emacs
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 To reinitialize the mouse if the terminal is reset, type ESC : RET"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 (interactive "P")
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
79 (declare (special bg-mouse-x bg-mouse-y bg-cursor-window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 (bg-get-tty-num semicolon)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 (let*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 ((screen-mouse-x (min (1- (frame-width)) ;don't hit column 86!
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 (/ (bg-get-tty-num semicolon) 9)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 (screen-mouse-y (- (1- (frame-height)) ;assume default font size.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 0
diff changeset
85 (/ (bg-get-tty-num semicolon) 16)))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 (bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 (bg-cursor-window (selected-window))
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
89 (edges (bg-window-edges bg-mouse-window))
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
90 (minibuf-p (= screen-mouse-y (1- (frame-height))))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 (in-modeline-p (and (not minibuf-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 (= screen-mouse-y (1- (nth 3 edges)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 (in-scrollbar-p (and (not minibuf-p) (not in-modeline-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 (>= screen-mouse-x (1- (nth 2 edges)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 (same-window-p (eq bg-mouse-window bg-cursor-window))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 (in-minibuf-p (and minibuf-p
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 (not bg-mouse-window))) ;minibuf must be inactive
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 (bg-mode-bits (+ (if in-minibuf-p bg-in-minibuf 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 (if in-modeline-p bg-in-modeline 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 (if in-scrollbar-p bg-in-scrollbar 0)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 (bg-command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 (lookup-key mouse-map
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 (char-to-string (+ bg-mode-bits bg-mouse-buttons))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 (bg-mouse-x (- screen-mouse-x (nth 0 edges)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 (bg-mouse-y (- screen-mouse-y (nth 1 edges))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 (cond ((or in-modeline-p in-scrollbar-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 (select-window bg-mouse-window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 (bg-command-execute bg-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 (select-window bg-cursor-window))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 ((or same-window-p in-minibuf-p)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 (bg-command-execute bg-command))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 (t ;in another window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 (select-window bg-mouse-window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 (if bg-mouse-fast-select-window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 (bg-command-execute bg-command)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 )))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 ;;; Library of commands:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 (defun bg-set-point ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 "Move point to location of BitGraph mouse."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
124 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 (bg-move-point-to-x-y bg-mouse-x bg-mouse-y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 (setq this-command 'next-line) ;make subsequent line moves work
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 (setq temporary-goal-column bg-mouse-x))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 (defun bg-set-mark ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 "Set mark at location of BitGraph mouse."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
132 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 (push-mark)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134 (bg-move-point-to-x-y bg-mouse-x bg-mouse-y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 (exchange-point-and-mark))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 (defun bg-yank ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 "Move point to location of BitGraph mouse and yank."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 (interactive "*")
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
140 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 (bg-move-point-to-x-y bg-mouse-x bg-mouse-y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 (setq this-command 'yank)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 (yank))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 (defun yank-pop-1 ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 (interactive "*")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 (yank-pop 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 (defun bg-yank-or-pop ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 "Move point to location of BitGraph mouse and yank. If last command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 was a yank, do a yank-pop."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 (interactive "*")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 (if (eql last-command 'yank)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 (yank-pop 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 (bg-yank)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 ;;; In 18.51, Emacs Lisp doesn't provide most-positive-fixnum
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 (defconst bg-most-positive-fixnum 8388607)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 (defun bg-move-by-percentage ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 "Go to location in buffer that is the same percentage of the way
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 through the buffer as the BitGraph mouse's X position in the window."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
164 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 ;; check carefully for overflow in intermediate calculations
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 (goto-char
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 (cond ((zerop bg-mouse-x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 ((< (buffer-size) (/ bg-most-positive-fixnum bg-mouse-x))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 ;; no danger of overflow: compute it exactly
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 (/ (* bg-mouse-x (buffer-size))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 (1- (window-width))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 (t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 ;; overflow possible: approximate
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 (* (/ (buffer-size) (1- (window-width)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 bg-mouse-x))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 (beginning-of-line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 (what-cursor-position))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 (defun bg-mouse-line-to-top ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 "Scroll the line pointed to by the BitGraph mouse to the top of the window."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
183 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 (scroll-up bg-mouse-y))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 (defun bg-mouse-line-to-center ()
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 0
diff changeset
187 "Scroll the line pointed to by the BitGraph mouse to the center
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 0
diff changeset
188 of the window."
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
190 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 (scroll-up (/ (+ 2 bg-mouse-y bg-mouse-y (- (window-height))) 2)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 (defun bg-mouse-line-to-bottom ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 "Scroll the line pointed to by the mouse to the bottom of the window."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
196 (declare (special bg-mouse-x bg-mouse-y))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 (scroll-up (+ bg-mouse-y (- 2 (window-height)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 (defun bg-kill-region ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 (interactive "*")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 (kill-region (region-beginning) (region-end)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 (defun bg-insert-moused-sexp ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 "Insert a copy of the word (actually sexp) that the mouse is pointing at.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 Sexp is inserted into the buffer at point (where the text cursor is)."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 (interactive)
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
207 (declare (special bg-mouse-x bg-mouse-y bg-cursor-window))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 (let ((moused-text
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 (save-excursion
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 (bg-move-point-to-x-y bg-mouse-x bg-mouse-y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 (if (looking-at "\\s)")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 (forward-char 1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 (forward-sexp 1))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214 (buffer-substring (save-excursion (backward-sexp 1) (point))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 (point)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 (select-window bg-cursor-window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 (delete-horizontal-space)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 (cond
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 ((bolp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 (indent-according-to-mode))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 ;; In Lisp assume double-quote is closing; in Text assume opening.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 ;; Why? Because it does the right thing most often.
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
223 ((save-excursion (backward-char 1)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 (and (not (looking-at "\\s\""))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 (looking-at "[`'\"\\]\\|\\s(")))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 (t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 (insert-string " ")))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 (insert-string moused-text)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 (or (eolp)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 (looking-at "\\s.\\|\\s)")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 (and (looking-at "'") (looking-at "\\sw")) ;hack for text mode
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 (save-excursion (insert-string " ")))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 ;;; Utility functions:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 (defun bg-get-tty-num (term-char)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 "Read from terminal until TERM-CHAR is read, and return intervening number.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 If non-numeric not matching TERM-CHAR, reprogram the mouse and signal an error."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 (let
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 ((num 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 (char (- (read-char) 48)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 (while (and (>= char 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 (<= char 9))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 (setq num (+ (* num 10) char))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 (setq char (- (read-char) 48)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 (or (eq term-char (+ char 48))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 (progn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 (bg-program-mouse)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 (error
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 "Invalid data format in bg-mouse command: mouse reinitialized.")))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 num))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 ;;; Note that this fails in the minibuf because move-to-column doesn't
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 ;;; allow for the width of the prompt.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 (defun bg-move-point-to-x-y (x y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 "Position cursor in window coordinates.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 X and Y are 0-based character positions in the window."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 (move-to-window-line y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 ;; if not on a wrapped line, zero-column will be 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 (let ((zero-column (current-column))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 (scroll-offset (window-hscroll)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 ;; scrolling takes up column 0 to display the $
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 (if (> scroll-offset 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 (setq scroll-offset (1- scroll-offset)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266 (move-to-column (+ zero-column scroll-offset x))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 ))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 ;;; Returns the window that screen position (x, y) is in or nil if none,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 ;;; meaning we are in the echo area with a non-active minibuffer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 ;;; If coordinates-in-window-p were not in an X-windows-specific file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 ;;; we could use that. In Emacs 19 can even use locate-window-from-coordinates
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 (defun bg-window-from-x-y (x y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 "Find window corresponding to screen coordinates.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275 X and Y are 0-based character positions on the screen."
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
276 (let ((edges (bg-window-edges))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 (window nil))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 (while (and (not (eq window (selected-window)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 (or (< y (nth 1 edges))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 (>= y (nth 3 edges))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 (< x (nth 0 edges))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282 (>= x (nth 2 edges))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 (setq window (next-window window))
772
d682c0f82a71 [xemacs-hg @ 2002-03-13 10:00:06 by ben]
ben
parents: 446
diff changeset
284 (setq edges (bg-window-edges window)))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 (cond ((eq window (selected-window))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286 nil) ;we've looped: not found
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287 ((not window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
288 (selected-window)) ;just starting: current window
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 (t
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
290 window))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 ))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 (defun bg-command-execute (bg-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294 (if (commandp bg-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 (command-execute bg-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 (ding)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 (defun bg-program-mouse ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 (send-string-to-terminal "\e:0;7;;;360;512;9;16;9;16c"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 ;;; Note that the doc string for mouse-map (as defined in subr.el)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 ;;; says it is for the X-window mouse. This is wrong; that keymap
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 ;;; should be used for your mouse no matter what terminal you have.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 (or (keymapp mouse-map)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 (setq mouse-map (make-keymap)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308 (defun bind-bg-mouse-click (click-code function)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 "Bind bg-mouse CLICK-CODE to run FUNCTION."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 (define-key mouse-map (char-to-string click-code) function))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 0
diff changeset
312 (bind-bg-mouse-click bg-button-l 'bg-set-point)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 (bind-bg-mouse-click bg-button-m 'bg-yank)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
314 (bind-bg-mouse-click bg-button-r 'bg-set-mark)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 (bind-bg-mouse-click (+ bg-button-l bg-button-m) 'yank-pop-1)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 (bind-bg-mouse-click (+ bg-button-l bg-button-r) 'bg-kill-region)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317 (bind-bg-mouse-click (+ bg-button-m bg-button-r) 'undo)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318 (bind-bg-mouse-click (+ bg-button-l bg-button-m bg-button-r) 'undo)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 (bind-bg-mouse-click (+ bg-in-modeline bg-button-l) 'scroll-up)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320 (bind-bg-mouse-click (+ bg-in-modeline bg-button-m) 'bg-move-by-percentage)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 (bind-bg-mouse-click (+ bg-in-modeline bg-button-r) 'scroll-down)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322 (bind-bg-mouse-click (+ bg-in-scrollbar bg-button-l) 'bg-mouse-line-to-top)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 (bind-bg-mouse-click (+ bg-in-scrollbar bg-button-m) 'bg-mouse-line-to-center)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324 (bind-bg-mouse-click (+ bg-in-scrollbar bg-button-r) 'bg-mouse-line-to-bottom)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 (bind-bg-mouse-click (+ bg-in-minibuf bg-button-l) 'execute-extended-command)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 (bind-bg-mouse-click (+ bg-in-minibuf bg-button-m) 'suspend-emacs)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 (bind-bg-mouse-click (+ bg-in-minibuf bg-button-r) 'eval-expression)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 (provide 'bg-mouse)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 ;;; bg-mouse.el ends here