* bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice.
@ 2021-10-08 20:19 David M. Koppelman
2021-10-09 13:09 ` Lars Ingebrigtsen
0 siblings, 1 reply; 5+ messages in thread
From: David M. Koppelman @ 2021-10-08 20:19 UTC (permalink / raw)
To: 51101
Execute:
(read-char-from-minibuffer "Answer y or n" '(?y ?n))
and press Enter. The form returns Enter (13) rather than re-prompting
for a y or n.
This causes a dataloss threat due to read-char-from-minibuffer being
called through ask-user-about-supersession-threat.
Even if the read-char-from-minibuffer bug is quickly fixed, I'd
sleep better if the following patch were applied to userlock.el:
@@ -194,7 +194,9 @@ ask-user-about-supersession-threat
(list "File reverted" filename)))
((eq answer ?n)
(signal 'file-supersession
- (list "File changed on disk" filename)))))
+ (list "File changed on disk" filename)))
+ ((eq answer ?y))
+ (t (setq answer nil))))
(message
"File on disk now will become a backup file if you save these changes.")
(setq buffer-backed-up nil))))
In GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.30, cairo version 1.17.4)
of 2021-10-08 built on dmk-laptop-21
Repository revision: e73c9ac4ed4ce0a4b423dae6acbfb384c1afbce0
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101002
System Description: Fedora Linux 35 (KDE Plasma Prerelease)
Configured using:
'configure 'CFLAGS=-O3 -march=native' --without-pop
--with-native-compilation'
Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES
NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF
TOOLKIT_SCROLL_BARS X11 XDBE XIM XPM GTK3 ZLIB
Important settings:
value of $LC_COLLATE: C
value of $LC_TIME: C
value of $LANG: en_US.UTF-8
locale-coding-system: utf-8-unix
Major mode: Lisp Interaction
Minor modes in effect:
tooltip-mode: t
global-eldoc-mode: t
eldoc-mode: t
show-paren-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
tool-bar-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
indent-tabs-mode: t
transient-mark-mode: t
Load-path shadows:
None found.
Features:
(shadow sort mail-extr emacsbug message rmc puny dired dired-loaddefs
rfc822 mml mml-sec epa derived epg rfc6068 epg-config gnus-util rmail
rmail-loaddefs auth-source cl-seq eieio eieio-core cl-macs
eieio-loaddefs password-cache json map text-property-search seq gv
byte-opt bytecomp byte-compile cconv mm-decode mm-bodies mm-encode
mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047
rfc2045 ietf-drums mm-util mail-prsvr mail-utils time-date subr-x
cl-loaddefs cl-lib iso-transl tooltip eldoc paren electric uniquify
ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win
term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode lisp-mode prog-mode register
page tab-bar menu-bar rfn-eshadow isearch easymenu timer select
scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors
frame minibuffer cl-generic cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932
hebrew greek romanian slovak czech european ethiopic indian cyrillic
chinese composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice button
loaddefs faces cus-face macroexp files window text-properties overlay
sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote threads dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting cairo
move-toolbar gtk x-toolkit x multi-tty make-network-process
native-compile emacs)
Memory information:
((conses 16 68625 10824)
(symbols 48 6630 0)
(strings 32 19929 1554)
(string-bytes 1 675055)
(vectors 16 13948)
(vector-slots 8 286810 18217)
(floats 8 24 38)
(intervals 56 232 0)
(buffers 992 11))
^ permalink raw reply [flat|nested] 5+ messages in thread* bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice.
2021-10-08 20:19 bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice David M. Koppelman
@ 2021-10-09 13:09 ` Lars Ingebrigtsen
2021-10-09 15:02 ` David Koppelman
2021-10-10 17:31 ` Juri Linkov
0 siblings, 2 replies; 5+ messages in thread
From: Lars Ingebrigtsen @ 2021-10-09 13:09 UTC (permalink / raw)
To: David M. Koppelman; +Cc: 51101, Juri Linkov
"David M. Koppelman" <koppel@ece.lsu.edu> writes:
> Execute:
>
> (read-char-from-minibuffer "Answer y or n" '(?y ?n))
>
> and press Enter. The form returns Enter (13) rather than re-prompting
> for a y or n.
It seems undocumented what RET is supposed to do in this function --
I've added Juri to the CCs, perhaps he has some comments.
> This causes a dataloss threat due to read-char-from-minibuffer being
> called through ask-user-about-supersession-threat.
>
> Even if the read-char-from-minibuffer bug is quickly fixed, I'd
> sleep better if the following patch were applied to userlock.el:
>
> @@ -194,7 +194,9 @@ ask-user-about-supersession-threat
> (list "File reverted" filename)))
> ((eq answer ?n)
> (signal 'file-supersession
> - (list "File changed on disk" filename)))))
> + (list "File changed on disk" filename)))
> + ((eq answer ?y))
> + (t (setq answer nil))))
But I think ask-user-about-supersession-threat is working correctly here
already (almost by chance). RET means "yes" in functions like
`y-or-n-p', which this is basically an extended version of, so it should
work as "yes" here, too.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice.
2021-10-09 13:09 ` Lars Ingebrigtsen
@ 2021-10-09 15:02 ` David Koppelman
2021-10-10 17:31 ` Juri Linkov
1 sibling, 0 replies; 5+ messages in thread
From: David Koppelman @ 2021-10-09 15:02 UTC (permalink / raw)
To: Lars Ingebrigtsen; +Cc: 51101, Juri Linkov
> But I think ask-user-about-supersession-threat is working correctly here
> already (almost by chance). RET means "yes" in functions like
> `y-or-n-p', which this is basically an extended version of, so it should
> work as "yes" here, too.
That might make sense if someone were expecting a prompt, but this
prompt appears totally unexpectedly when one tries to enter text into
a buffer, often that text includes enter. It would be easy to overlook
the prompt and so suffer dataloss.
David
Lars Ingebrigtsen <larsi@gnus.org> writes:
> "David M. Koppelman" <koppel@ece.lsu.edu> writes:
>
>> Execute:
>>
>> (read-char-from-minibuffer "Answer y or n" '(?y ?n))
>>
>> and press Enter. The form returns Enter (13) rather than re-prompting
>> for a y or n.
>
> It seems undocumented what RET is supposed to do in this function --
> I've added Juri to the CCs, perhaps he has some comments.
>
>> This causes a dataloss threat due to read-char-from-minibuffer being
>> called through ask-user-about-supersession-threat.
>>
>> Even if the read-char-from-minibuffer bug is quickly fixed, I'd
>> sleep better if the following patch were applied to userlock.el:
>>
>> @@ -194,7 +194,9 @@ ask-user-about-supersession-threat
>> (list "File reverted" filename)))
>> ((eq answer ?n)
>> (signal 'file-supersession
>> - (list "File changed on disk" filename)))))
>> + (list "File changed on disk" filename)))
>> + ((eq answer ?y))
>> + (t (setq answer nil))))
>
> But I think ask-user-about-supersession-threat is working correctly here
> already (almost by chance). RET means "yes" in functions like
> `y-or-n-p', which this is basically an extended version of, so it should
> work as "yes" here, too.
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice.
2021-10-09 13:09 ` Lars Ingebrigtsen
2021-10-09 15:02 ` David Koppelman
@ 2021-10-10 17:31 ` Juri Linkov
2021-10-10 20:06 ` Lars Ingebrigtsen
1 sibling, 1 reply; 5+ messages in thread
From: Juri Linkov @ 2021-10-10 17:31 UTC (permalink / raw)
To: Lars Ingebrigtsen; +Cc: David M. Koppelman, 51101
close 51101 28.0.60
quit
>> Execute:
>>
>> (read-char-from-minibuffer "Answer y or n" '(?y ?n))
>>
>> and press Enter. The form returns Enter (13) rather than re-prompting
>> for a y or n.
>
> It seems undocumented what RET is supposed to do in this function --
> I've added Juri to the CCs, perhaps he has some comments.
RET is supposed to do exactly the same what it did in
read-char-choice-with-read-key, or when these variables are non-nil:
read-char-choice-use-read-key and y-or-n-p-use-read-key,
i.e. to ignore RET and read the character again.
So this is fixed accordingly now in 28.0.
>> This causes a dataloss threat due to read-char-from-minibuffer being
>> called through ask-user-about-supersession-threat.
>>
>> Even if the read-char-from-minibuffer bug is quickly fixed, I'd
>> sleep better if the following patch were applied to userlock.el:
>>
>> @@ -194,7 +194,9 @@ ask-user-about-supersession-threat
>> (list "File reverted" filename)))
>> ((eq answer ?n)
>> (signal 'file-supersession
>> - (list "File changed on disk" filename)))))
>> + (list "File changed on disk" filename)))
>> + ((eq answer ?y))
>> + (t (setq answer nil))))
I installed the patch provided by David as well.
> But I think ask-user-about-supersession-threat is working correctly here
> already (almost by chance). RET means "yes" in functions like
> `y-or-n-p', which this is basically an extended version of, so it should
> work as "yes" here, too.
Maybe it works here because ask-user-about-supersession-threat
is called from C with some flag that disables signaling 'quit'.
But when trying to type RET after (y-or-n-p "Answer y or n: ")
it terminates with the 'quit' signal. And indeed in the map
used by y-or-n-p, RET is bound to 'exit':
(define-key query-replace-map "\r" 'exit)
I noticed the recent commit ec9f25bd356c7c81d94c78f11100b97d6d52ce97
saying that RET means "yes" in y-or-n-p. But anyway since RET
now does the same that read-char-choice-with-read-key does,
so I removed mentions of RET from the doc string. Or should
the fixed behavior be mentioned?
^ permalink raw reply [flat|nested] 5+ messages in thread* bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice.
2021-10-10 17:31 ` Juri Linkov
@ 2021-10-10 20:06 ` Lars Ingebrigtsen
0 siblings, 0 replies; 5+ messages in thread
From: Lars Ingebrigtsen @ 2021-10-10 20:06 UTC (permalink / raw)
To: Juri Linkov; +Cc: David M. Koppelman, 51101
Juri Linkov <juri@linkov.net> writes:
> Maybe it works here because ask-user-about-supersession-threat
> is called from C with some flag that disables signaling 'quit'.
> But when trying to type RET after (y-or-n-p "Answer y or n: ")
> it terminates with the 'quit' signal. And indeed in the map
> used by y-or-n-p, RET is bound to 'exit':
>
> (define-key query-replace-map "\r" 'exit)
I must have tested this in the wrong version of Emacs -- I thought I was
testing y-or-n-p in Emacs 26.3 to see what it did there, but I must have
started a more recent version instead.
> I noticed the recent commit ec9f25bd356c7c81d94c78f11100b97d6d52ce97
> saying that RET means "yes" in y-or-n-p. But anyway since RET
> now does the same that read-char-choice-with-read-key does,
> so I removed mentions of RET from the doc string. Or should
> the fixed behavior be mentioned?
No, that's fine.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2021-10-10 20:06 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-08 20:19 bug#51101: 29.0.50; read-char-from-minibuffer accepts Enter even when not a choice David M. Koppelman
2021-10-09 13:09 ` Lars Ingebrigtsen
2021-10-09 15:02 ` David Koppelman
2021-10-10 17:31 ` Juri Linkov
2021-10-10 20:06 ` Lars Ingebrigtsen
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).