GNU bug report logs -
#35238
27.0.50; Clarify eventp behaviour with booleans
Previous Next
Reported by: "Basil L. Contovounesios" <contovob <at> tcd.ie>
Date: Thu, 11 Apr 2019 22:43:02 UTC
Severity: minor
Tags: fixed, patch
Found in version 27.0.50
Done: "Basil L. Contovounesios" <contovob <at> tcd.ie>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 35238 in the body.
You can then email your comments to 35238 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
Report forwarded
to
monnier <at> iro.umontreal.ca, bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Thu, 11 Apr 2019 22:43:02 GMT)
Full text and
rfc822 format available.
Acknowledgement sent
to
"Basil L. Contovounesios" <contovob <at> tcd.ie>
:
New bug report received and forwarded. Copy sent to
monnier <at> iro.umontreal.ca, bug-gnu-emacs <at> gnu.org
.
(Thu, 11 Apr 2019 22:43:02 GMT)
Full text and
rfc822 format available.
Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
[Message part 1 (text/plain, inline)]
Severity: minor
Tags: patch
As mentioned in a past commit[1], nil is not an event.
Since the car of a mouse click event is considered its type,
shouldn't (nil) also be rejected as an event?
(eventp '(nil)) ; => t
Should t be counted as an event?
(eventp t) ; => t
(eventp '(t)) ; => t
If not, would the following change be welcome?
[eventp.diff (text/x-diff, inline)]
diff --git a/lisp/subr.el b/lisp/subr.el
index bdf98979c4..8c4df5bc6c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1227,12 +1227,14 @@ listify-key-sequence
c)))
key)))
-(defun eventp (obj)
- "True if the argument is an event object."
- (when obj
- (or (integerp obj)
- (and (symbolp obj) obj (not (keywordp obj)))
- (and (consp obj) (symbolp (car obj))))))
+(defun eventp (object)
+ "Return non-nil if OBJECT is an input event or event object."
+ (or (integerp object)
+ (and (symbolp (if (consp object)
+ (setq object (car object))
+ object))
+ (not (booleanp object))
+ (not (keywordp object)))))
(defun event-modifiers (event)
"Return a list of symbols representing the modifier keys in event EVENT.
[Message part 3 (text/plain, inline)]
[1: e18941095a]: * lisp/term/x-win.el (x-menu-bar-open): ...
2012-08-10 10:47:12 -0400
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=e18941095a56075d6eb908a65aafcd1697fea2ae
Thanks,
--
Basil
In GNU Emacs 27.0.50 (build 9, x86_64-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2019-04-11 built on thunk
Repository revision: 0627a8d7bc6ffa29d7a503fd36e760778ecb9fa1
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12003000
System Description: Debian GNU/Linux buster/sid
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Thu, 11 Apr 2019 23:43:01 GMT)
Full text and
rfc822 format available.
Message #8 received at 35238 <at> debbugs.gnu.org (full text, mbox):
> As mentioned in a past commit[1], nil is not an event.
> Since the car of a mouse click event is considered its type,
> shouldn't (nil) also be rejected as an event?
Not sure it's worth the trouble (there are already lots of other objects
that aren't events but for which eventp returns non-nil).
> Should t be counted as an event?
>
> (eventp t) ; => t
> (eventp '(t)) ; => t
Not sure if we ever generate such an event, but what would be the
benefit of rejecting it?
Stefan
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Fri, 12 Apr 2019 11:12:02 GMT)
Full text and
rfc822 format available.
Message #11 received at 35238 <at> debbugs.gnu.org (full text, mbox):
[Message part 1 (text/plain, inline)]
Stefan Monnier <monnier <at> IRO.UMontreal.CA> writes:
>> As mentioned in a past commit[1], nil is not an event.
>> Since the car of a mouse click event is considered its type,
>> shouldn't (nil) also be rejected as an event?
>
> Not sure it's worth the trouble (there are already lots of other objects
> that aren't events but for which eventp returns non-nil).
Sure, but the following would at least make eventp treat nil
consistently:
[eventp.diff (text/x-diff, inline)]
diff --git a/lisp/subr.el b/lisp/subr.el
index bdf98979c4..407bd6379d 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1227,12 +1227,13 @@ listify-key-sequence
c)))
key)))
-(defun eventp (obj)
- "True if the argument is an event object."
- (when obj
- (or (integerp obj)
- (and (symbolp obj) obj (not (keywordp obj)))
- (and (consp obj) (symbolp (car obj))))))
+(defun eventp (object)
+ "Return non-nil if OBJECT is an input event or event object."
+ (or (integerp object)
+ (and (symbolp (if (consp object)
+ (setq object (car object))
+ object))
+ (not (keywordp object)))))
(defun event-modifiers (event)
"Return a list of symbols representing the modifier keys in event EVENT.
[Message part 3 (text/plain, inline)]
>> Should t be counted as an event?
>>
>> (eventp t) ; => t
>> (eventp '(t)) ; => t
>
> Not sure if we ever generate such an event, but what would be the
> benefit of rejecting it?
I don't know, it could even be detrimental; I was just curious.
Thanks,
--
Basil
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Fri, 12 Apr 2019 12:26:01 GMT)
Full text and
rfc822 format available.
Message #14 received at 35238 <at> debbugs.gnu.org (full text, mbox):
> Sure, but the following would at least make eventp treat nil
> consistently:
No objection on my side (nor to the previous patch, FWIW),
Stefan
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Fri, 12 Apr 2019 12:32:02 GMT)
Full text and
rfc822 format available.
Message #17 received at 35238 <at> debbugs.gnu.org (full text, mbox):
> From: "Basil L. Contovounesios" <contovob <at> tcd.ie>
> Date: Fri, 12 Apr 2019 12:11:01 +0100
> Cc: 35238 <at> debbugs.gnu.org
>
> -(defun eventp (obj)
> - "True if the argument is an event object."
> - (when obj
> - (or (integerp obj)
> - (and (symbolp obj) obj (not (keywordp obj)))
> - (and (consp obj) (symbolp (car obj))))))
> +(defun eventp (object)
> + "Return non-nil if OBJECT is an input event or event object."
> + (or (integerp object)
> + (and (symbolp (if (consp object)
> + (setq object (car object))
> + object))
> + (not (keywordp object)))))
Please make sure the ELisp manual is kept in sync. Also, does this
need to be called out in NEWS?
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Sat, 13 Apr 2019 17:54:02 GMT)
Full text and
rfc822 format available.
Message #20 received at 35238 <at> debbugs.gnu.org (full text, mbox):
Eli Zaretskii <eliz <at> gnu.org> writes:
> Please make sure the ELisp manual is kept in sync.
While skimming the manual, I came across recent-keys in (info "(elisp)
Recording Input"). Stefan extended this function in Emacs 25.1[1] with
an optional argument INCLUDE-CMDS which causes it to output "events of
the form (nil . COMMAND)".
(The manual wasn't updated to document this alternative behaviour, but I
can do that in addition to / instead of the eventp change if one of ye
doesn't beat me to it.)
The question is, should eventp continue returning non-nil for these
events of the form (nil . COMMAND)? Or should recent-keys be changed to
return a different form of event? If my assumption is correct that the
former option is preferred, I will check that the manual documents such
events consistently instead of changing the behaviour of eventp.
Note that (seq-every-p #'eventp (recent-keys t)) is currently non-nil,
and the only caller that specifies INCLUDE-CMDS non-nil is view-lossage,
which doesn't rely on eventp.
[1: eca1ea9655]: * lisp/help.el (view-lossage): ...
2014-11-09 21:58:52 -0500
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=eca1ea96559e04e18a62a61208d501c557dd4cab
> Also, does this need to be called out in NEWS?
Depends on what actually ends up needing to be changed, I think.
My original intention to treat events of the form (nil ...) as nil now
seems less plausible, so the only changes I foresee are docfixes.
Thanks,
--
Basil
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Sun, 14 Apr 2019 03:14:02 GMT)
Full text and
rfc822 format available.
Message #23 received at 35238 <at> debbugs.gnu.org (full text, mbox):
> The question is, should eventp continue returning non-nil for these
> events of the form (nil . COMMAND)?
I don't think we need to consider them as events.
More specifically, recent-keys uses this representation for the
execution of a command because it expects that no event would have such
a shape.
Stefan
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Mon, 22 Apr 2019 23:21:02 GMT)
Full text and
rfc822 format available.
Message #26 received at 35238 <at> debbugs.gnu.org (full text, mbox):
[Message part 1 (text/plain, inline)]
Stefan Monnier <monnier <at> iro.umontreal.ca> writes:
>> The question is, should eventp continue returning non-nil for these
>> events of the form (nil . COMMAND)?
>
> I don't think we need to consider them as events.
> More specifically, recent-keys uses this representation for the
> execution of a command because it expects that no event would have such
> a shape.
OK, then how's the following?
[0001-Clarify-what-constitutes-an-event-bug-35238.patch (text/x-diff, inline)]
From 62f82c31406b9ea3ca59258bba9663184b8d5734 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob <at> tcd.ie>
Date: Sun, 21 Apr 2019 23:02:01 +0100
Subject: [PATCH] Clarify what constitutes an event (bug#35238)
* doc/lispref/commands.texi (Input Events): Specify that events are
non-nil and remove vestiges of bug#10190.
* doc/lispref/os.texi (Recording Input): Document optional argument
of recent-keys.
* lisp/subr.el (eventp): Check that the car of conses is non-nil.
* etc/NEWS: Announce it as an incompatible change.
* src/keyboard.c (Frecent_keys): Clarify that returned "events" are
not real events.
---
doc/lispref/commands.texi | 9 +++------
doc/lispref/os.texi | 7 ++++++-
etc/NEWS | 5 +++++
lisp/subr.el | 14 ++++++++------
src/keyboard.c | 2 +-
5 files changed, 23 insertions(+), 14 deletions(-)
diff --git a/doc/lispref/commands.texi b/doc/lispref/commands.texi
index cd44c1c87e..5ea0be2667 100644
--- a/doc/lispref/commands.texi
+++ b/doc/lispref/commands.texi
@@ -1047,12 +1047,9 @@ Input Events
This function returns non-@code{nil} if @var{object} is an input event
or event type.
-Note that any symbol might be used as an event or an event type.
-@code{eventp} cannot distinguish whether a symbol is intended by Lisp
-code to be used as an event. Instead, it distinguishes whether the
-symbol has actually been used in an event that has been read as input in
-the current Emacs session. If a symbol has not yet been so used,
-@code{eventp} returns @code{nil}.
+Note that any non-@code{nil} symbol might be used as an event or an
+event type; @code{eventp} cannot distinguish whether a symbol is
+intended by Lisp code to be used as an event.
@end defun
@menu
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 59cd5a8fe8..fef954eb7a 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -2197,7 +2197,7 @@ Recording Input
@subsection Recording Input
@cindex recording input
-@defun recent-keys
+@defun recent-keys &optional include-cmds
This function returns a vector containing the last 300 input events from
the keyboard or mouse. All input events are included, whether or not
they were used as parts of key sequences. Thus, you always get the last
@@ -2205,6 +2205,11 @@ Recording Input
(These are excluded because they are less interesting for debugging; it
should be enough to see the events that invoked the macros.)
+If @var{include-cmds} is non-@code{nil}, complete key sequences in the
+result vector are interleaved with pseudo-events of the form
+@code{(nil . @var{COMMAND})}, where @var{COMMAND} is the binding of
+the key sequence (@pxref{Command Overview}).
+
A call to @code{clear-this-command-keys} (@pxref{Command Loop Info})
causes this function to return an empty vector immediately afterward.
@end defun
diff --git a/etc/NEWS b/etc/NEWS
index b13ab47768..76943391bc 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1526,6 +1526,11 @@ performs (setq-local indent-line-function #'indent-relative).
** 'make-process' no longer accepts a non-nil ':stop' key. This has
never worked reliably, and now causes an error.
++++
+** 'eventp' no longer returns non-nil for lists whose car is nil.
+This is consistent with the fact that nil, though a symbol, is not a
+valid event type.
+
* Lisp Changes in Emacs 27.1
diff --git a/lisp/subr.el b/lisp/subr.el
index f68f9dd419..be21dc67a0 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1238,12 +1238,14 @@ listify-key-sequence
c)))
key)))
-(defun eventp (obj)
- "True if the argument is an event object."
- (when obj
- (or (integerp obj)
- (and (symbolp obj) obj (not (keywordp obj)))
- (and (consp obj) (symbolp (car obj))))))
+(defun eventp (object)
+ "Return non-nil if OBJECT is an input event or event object."
+ (or (integerp object)
+ (and (if (consp object)
+ (setq object (car object))
+ object)
+ (symbolp object)
+ (not (keywordp object)))))
(defun event-modifiers (event)
"Return a list of symbols representing the modifier keys in event EVENT.
diff --git a/src/keyboard.c b/src/keyboard.c
index dff8f6b2fc..6d3030644a 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -9966,7 +9966,7 @@ If CHECK-TIMERS is non-nil, timers that are ready to run will do so. */)
DEFUN ("recent-keys", Frecent_keys, Srecent_keys, 0, 1, 0,
doc: /* Return vector of last few events, not counting those from keyboard macros.
If INCLUDE-CMDS is non-nil, include the commands that were run,
-represented as events of the form (nil . COMMAND). */)
+represented as pseudo-events of the form (nil . COMMAND). */)
(Lisp_Object include_cmds)
{
bool cmds = !NILP (include_cmds);
--
2.20.1
[Message part 3 (text/plain, inline)]
Thanks,
--
Basil
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Tue, 23 Apr 2019 02:07:02 GMT)
Full text and
rfc822 format available.
Message #29 received at 35238 <at> debbugs.gnu.org (full text, mbox):
> OK, then how's the following?
LGTM
Stefan
Added tag(s) fixed.
Request was from
"Basil L. Contovounesios" <contovob <at> tcd.ie>
to
control <at> debbugs.gnu.org
.
(Tue, 07 May 2019 17:09:01 GMT)
Full text and
rfc822 format available.
bug closed, send any further explanations to
35238 <at> debbugs.gnu.org and "Basil L. Contovounesios" <contovob <at> tcd.ie>
Request was from
"Basil L. Contovounesios" <contovob <at> tcd.ie>
to
control <at> debbugs.gnu.org
.
(Tue, 07 May 2019 17:09:01 GMT)
Full text and
rfc822 format available.
Information forwarded
to
bug-gnu-emacs <at> gnu.org
:
bug#35238
; Package
emacs
.
(Tue, 07 May 2019 17:09:02 GMT)
Full text and
rfc822 format available.
Message #36 received at 35238-done <at> debbugs.gnu.org (full text, mbox):
tags 35238 fixed
close 35238
quit
Stefan Monnier <monnier <at> IRO.UMontreal.CA> writes:
>> OK, then how's the following?
>
> LGTM
Thanks, I pushed to master[1] and am therefore closing this report.
[1: c972da907d]: Clarify what constitutes an event (bug#35238)
2019-05-07 18:00:20 +0100
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=c972da907d494b6d5efd423aa3b5d0b23f7b7801
--
Basil
bug archived.
Request was from
Debbugs Internal Request <help-debbugs <at> gnu.org>
to
internal_control <at> debbugs.gnu.org
.
(Wed, 05 Jun 2019 11:24:04 GMT)
Full text and
rfc822 format available.
This bug report was last modified 4 years and 320 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.