emacs-bug-tracker
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debbugs-tracker] bug#10022: closed (24.0.91; `isearch-mouse-2' relies o


From: GNU bug Tracking System
Subject: [debbugs-tracker] bug#10022: closed (24.0.91; `isearch-mouse-2' relies on `x-get-selection' - NG for Windows etc.)
Date: Fri, 18 Nov 2011 19:15:01 +0000

Your message dated Fri, 18 Nov 2011 14:13:07 -0500
with message-id <address@hidden>
and subject line Re: bug#10022: 24.0.91; `isearch-mouse-2' relies on 
`x-get-selection' - NG for Windows etc.
has caused the debbugs.gnu.org bug report #10022,
regarding 24.0.91; `isearch-mouse-2' relies on `x-get-selection' - NG for 
Windows etc.
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
10022: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10022
GNU Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- Subject: 24.0.91; `isearch-mouse-2' relies on `x-get-selection' - NG for Windows etc. Date: Fri, 11 Nov 2011 17:01:06 -0800
No, I am not certain this is a bug - you decide.
 
In `isearch-mode-map', `isearch-mouse-2' is bound to `mouse-2' and
`down-mouse-2' is bound to nil.

`isearch-mouse-2':
 
(defun isearch-mouse-2 (click)
  "Handle mouse-2 in Isearch mode.
For a click in the echo area, invoke `isearch-yank-x-selection'.
Otherwise invoke whatever the calling mouse-2 command sequence
is bound to outside of Isearch."
  (interactive "e")
  (let* ((w (posn-window (event-start click)))
  (overriding-terminal-local-map nil)
  (binding (key-binding (this-command-keys-vector) t)))
    (if (and (window-minibuffer-p w)
      (not (minibuffer-window-active-p w))) ; in echo area
 (isearch-yank-x-selection)
      (when (functionp binding)
 (call-interactively binding)))))
 
I globally bind `down-mouse-2' to a command of mine,
`mouse-flash-position-or-M-x', which highlights the yank position (or
calls `M-x' in the echo area).  The highlighting intentionally happens
only while the mouse button is pressed.
 
Because of this global binding, I need to change the `isearch-mode-map'
binding of `down-mouse-2' to `ignore'.  Dunno whether a binding of
`ignore' makes better sense for vanilla Emacs here too (e.g., in case
someone binds `down-mouse-2' globally).
 
However, that is not sufficient, to be able to use `mouse-2' with
Isearch.  Perhaps because of some selection setting I have, with my
setup (on MS Windows) `x-get-selection' just returns nil.
 
That means that `isearch-mouse-2' barfs when it calls
`isearch-yank-selection'.  That function tries to yank the string
returned by `x-get-selection', but that function returns nil, not a
string.  The PRIMARY selection is not set, at least in my context.
This function apparently depend ons it being set.  Seems like a
bug, to me.
 
To fix this, I use a hack like this in `isearch-mouse-2'.  Dunno
what the right fix for vanilla Emacs would be.
 
(when (and transient-mark-mode (/= (region-beginning) (region-end)))
  (x-set-selection 'PRIMARY (buffer-substring-no-properties 
                             (region-beginning) (region-end)))
  (deactivate-mark)
  (isearch-yank-x-selection))
 
Consider this only an FYI.  I suspect there is a problem, and that the
`isearch-mouse-2' code should not depend on the PRIMARY selection being
set, but you decide.

In GNU Emacs 24.0.91.1 (i386-mingw-nt5.1.2600) of 2011-11-07 on MARVIN
 Windowing system distributor `Microsoft Corp.', version 5.1.2600
 configured using `configure --with-gcc (4.6) --no-opt --cflags
 -I"D:/devel/emacs/libs/libXpm-3.5.8/include"
 -I"D:/devel/emacs/libs/libXpm-3.5.8/src"
 -I"D:/devel/emacs/libs/libpng-dev_1.4.3-1/include"
 -I"D:/devel/emacs/libs/zlib-dev_1.2.5-2/include"
 -I"D:/devel/emacs/libs/giflib-4.1.4-1/include"
 -I"D:/devel/emacs/libs/jpeg-6b-4/include"
 -I"D:/devel/emacs/libs/tiff-3.8.2-1/include"
 -I"D:/devel/emacs/libs/gnutls-2.10.1/include" --ldflags
 -L"D:/devel/emacs/libs/gnutls-2.10.1/lib"'
 




--- End Message ---
--- Begin Message --- Subject: Re: bug#10022: 24.0.91; `isearch-mouse-2' relies on `x-get-selection' - NG for Windows etc. Date: Fri, 18 Nov 2011 14:13:07 -0500 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.91 (gnu/linux)
>> To the extent that isearch only binds mouse-2 in the minibuffer (yes,
>> it technically also binds it in the main buffer, but to a command that
>> just delegates to the normal binding), I don't think 
>> down-mouse-2 should default to `ignore', except maybe in the minibuffer.

> What I meant was that a nil binding means pick up any currently
> effective (e.g.  global) binding.  If someone binds `down-mouse-2'
> globally (as I do) then that binding will be picked for Isearch also,
> and it might not be appropriate there.

But as I point out, the mouse-2 binding also runs the global binding
(tho indirectly, and except when in the minibuffer area), so running the
global binding of down-mouse-2 seems like the right thing to do.

>> so it really doesn't seem like a bug for it to fail when there is
>> no GUI selection
> The bug would presumably be that `x-get-selection' returns nil here,

?? What should it return if there's no GUI selection?

> Agreed.  There is no change needed for vanilla Emacs 24.

OK, thanks.

> The only changes I have made are (a) for a non-nil option
> `isearchp-mouse-2-flag' (yank the non-empty region)

As mentioned on gnu.emacs.help (which may not have gotten to
address@hidden :-( ), users should already be able to get such
behavior with

  (define-key isearch-mode-map [mouse-2] 'isearch-yank-x-selection)

but this wouldn't override select-active-region (which is a separate
issue, although your isearchp-mouse-2-flag controls both).


        Stefan


--- End Message ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]