From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: phillip.lord@newcastle.ac.uk (Phillip Lord) Newsgroups: gmane.emacs.devel Subject: Re: pre-command-hook with input methods Date: Wed, 27 May 2015 17:03:06 +0100 Message-ID: <87617em2it.fsf@newcastle.ac.uk> References: <878ugcmqr6.fsf@newcastle.ac.uk> <87fvajb0vs.fsf@newcastle.ac.uk> <87siej9h8c.fsf@newcastle.ac.uk> <87iofb2wfk.fsf@newcastle.ac.uk> <87egpz14re.fsf@newcastle.ac.uk> <878ug53ljk.fsf@newcastle.ac.uk> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1432742622 28870 80.91.229.3 (27 May 2015 16:03:42 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 27 May 2015 16:03:42 +0000 (UTC) Cc: emacs-devel@gnu.org To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed May 27 18:03:41 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Yxdnw-0000IM-OS for ged-emacs-devel@m.gmane.org; Wed, 27 May 2015 18:03:41 +0200 Original-Received: from localhost ([::1]:54630 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yxdnw-0007CO-2O for ged-emacs-devel@m.gmane.org; Wed, 27 May 2015 12:03:40 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:49596) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YxdnW-00076e-1G for emacs-devel@gnu.org; Wed, 27 May 2015 12:03:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YxdnQ-00024D-GA for emacs-devel@gnu.org; Wed, 27 May 2015 12:03:13 -0400 Original-Received: from cheviot22.ncl.ac.uk ([128.240.234.22]:35224) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YxdnQ-000243-7N for emacs-devel@gnu.org; Wed, 27 May 2015 12:03:08 -0400 Original-Received: from smtpauth-vm.ncl.ac.uk ([10.8.233.129] helo=smtpauth.ncl.ac.uk) by cheviot22.ncl.ac.uk with esmtp (Exim 4.63) (envelope-from ) id 1YxdnP-0006mW-Dg; Wed, 27 May 2015 17:03:07 +0100 Original-Received: from jangai.ncl.ac.uk ([10.66.67.223] helo=localhost) by smtpauth.ncl.ac.uk with esmtpsa (TLSv1:AES128-SHA:128) (Exim 4.63) (envelope-from ) id 1YxdnP-000239-1j; Wed, 27 May 2015 17:03:07 +0100 In-Reply-To: (Stefan Monnier's message of "Mon, 25 May 2015 18:52:10 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.0.0.0 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 128.240.234.22 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:186875 Archived-At: Had a bit of a nightmare building from trunk. I still do not understand why this happens so inconsistently for me; my "main" clone failed to build even after make bookstrap, but a clone of the clone worked fine. I really must be doing something wrong thing. Still I have tried adding this to pabbrev. The -off variable is just so I test what I am seeing. (defvar pabbrev-input-event-functions-off t) (defun pabbrev-input-event-functions (_) (unless pabbrev-input-event-functions-off (condition-case err (when pabbrev-marker (pabbrev-delete-last-suggestion))))) This appears to work. Using italian-postfix, with -off set to t in scratch I get, after typing "bu" I get b[u]u_ (where u_ is u underlined). With it -off set to nil, I get bu_ (i.e. a u waiting for the dead-key). At the moment, this also means that it's never possible to complete after a "u" (or a "u`") or any character with a dead key. That would require quite a lot more thought; I guess that the "u" you can see on screen is not really in the buffer until the command (and key sequence) has completed anyway. Still if someone really cared about this, they could switch to a pre-fix method. I tried french-prefix and that works nicely, although, even using Emacs, I still can't actually speak French. So, the practical upshot is, yes, it seems to work nicely! Phil Stefan Monnier writes: >> I think so yes -- so long as input-event means "user input-event" or I >> have some way of telling. Something coming in from a process, or >> file-watch notifications need to be ignored. > > Could you try the patch below to see if it provides the feature > you need? > > > Stefan > > > diff --git a/etc/NEWS b/etc/NEWS > index 1cccc31..f1b7119 100644 > --- a/etc/NEWS > +++ b/etc/NEWS > @@ -811,6 +811,8 @@ behavior, set `diff-switches' to `-c'. > > * Lisp Changes in Emacs 25.1 > > +** New hook `input-event-functions' run whenever a user-input event is read. > + > ** The default value of `load-read-function' is now `read'. > > ** New hook `pre-redisplay-functions', a bit easier to use than pre-redisplay-function. > diff --git a/lisp/subr.el b/lisp/subr.el > index b9a847d..df0ed42 100644 > --- a/lisp/subr.el > +++ b/lisp/subr.el > @@ -1110,6 +1110,12 @@ See `event-start' for a description of the value returned." > "Return the multi-click count of EVENT, a click or drag event. > The return value is a positive integer." > (if (and (consp event) (integerp (nth 2 event))) (nth 2 event) 1)) > + > +(defvar input-event-functions nil > + ;; BEWARE: If it looks like this is not run anywhere, it's normal: > + ;; this is run in keyboard.c. > + "Special hook run each time a user-input event is read. > +Each function is called with one argument: the event.") > > ;;;; Extracting fields of the positions in an event. > > diff --git a/src/keyboard.c b/src/keyboard.c > index eb66c44..5c64199 100644 > --- a/src/keyboard.c > +++ b/src/keyboard.c > @@ -2454,7 +2454,7 @@ read_char (int commandflag, Lisp_Object map, > /* Also check was_disabled so last-nonmenu-event won't return > a bad value when submenus are involved. (Bug#447) */ > && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar) || was_disabled)) > - *used_mouse_menu = 1; > + *used_mouse_menu = true; > > goto reread_for_input_method; > } > @@ -2995,6 +2995,8 @@ read_char (int commandflag, Lisp_Object map, > if (! NILP (also_record)) > record_char (also_record); > > + Frun_hook_with_args (2, ((Lisp_Object []) {Qinput_event_functions, c})); > + > /* Wipe the echo area. > But first, if we are about to use an input method, > save the echo area contents for it to refer to. */ > @@ -3986,7 +3988,7 @@ kbd_buffer_get_event (KBOARD **kbp, > obj = list1 (intern ("ns-unput-working-text")); > kbd_fetch_ptr = event + 1; > if (used_mouse_menu) > - *used_mouse_menu = 1; > + *used_mouse_menu = true; > } > #endif > > @@ -4181,13 +4183,13 @@ kbd_buffer_get_event (KBOARD **kbp, > && !EQ (event->frame_or_window, event->arg) > && (event->kind == MENU_BAR_EVENT > || event->kind == TOOL_BAR_EVENT)) > - *used_mouse_menu = 1; > + *used_mouse_menu = true; > #endif > #ifdef HAVE_NS > /* Certain system events are non-key events. */ > if (used_mouse_menu > && event->kind == NS_NONKEY_EVENT) > - *used_mouse_menu = 1; > + *used_mouse_menu = true; > #endif > > /* Wipe out this event, to catch bugs. */ > @@ -8445,7 +8447,7 @@ read_char_x_menu_prompt (Lisp_Object map, > Lisp_Object prev_event, bool *used_mouse_menu) > { > if (used_mouse_menu) > - *used_mouse_menu = 0; > + *used_mouse_menu = false; > > /* Use local over global Menu maps. */ > > @@ -8494,7 +8496,7 @@ read_char_x_menu_prompt (Lisp_Object map, > else if (NILP (value)) > value = Qt; > if (used_mouse_menu) > - *used_mouse_menu = 1; > + *used_mouse_menu = true; > return value; > } > return Qnil ; > @@ -9067,7 +9069,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt, > : (/* indec.start < t || fkey.start < t || */ keytran.start < t)) > { > Lisp_Object key; > - bool used_mouse_menu = 0; > + bool used_mouse_menu = false; > > /* Where the last real key started. If we need to throw away a > key that has expanded into more than one element of keybuf > @@ -11078,6 +11080,7 @@ syms_of_keyboard (void) > DEFSYM (Qself_insert_command, "self-insert-command"); > DEFSYM (Qforward_char, "forward-char"); > DEFSYM (Qbackward_char, "backward-char"); > + DEFSYM (Qinput_event_functions, "input-event-functions"); > > /* Non-nil disable property on a command means do not execute it; > call disabled-command-function's value instead. */