From: Eli Zaretskii <eliz@gnu.org>
To: Andrey Listopadov <andreyorst@gmail.com>
Cc: 52896@debbugs.gnu.org
Subject: bug#52896: 29.0.50; transient-mark-mode is set to a lot of 'only syms
Date: Mon, 03 Jan 2022 16:21:52 +0200 [thread overview]
Message-ID: <83bl0sdhmn.fsf@gnu.org> (raw)
In-Reply-To: <CAAKhXoYCtuEmyx2Qn8Ra6c9kRZWEi3viLRhKc29_vbkxK3J-Yw@mail.gmail.com> (message from Andrey Listopadov on Thu, 30 Dec 2021 23:40:25 +0300)
> From: Andrey Listopadov <andreyorst@gmail.com>
> Date: Thu, 30 Dec 2021 23:40:25 +0300
> Cc: 52896@debbugs.gnu.org
>
> 1. M-x transient-mark-mode RET - turn tmm off;
> 2. S-right - select the default text in the *scratch* buffer;
> 3. `C-x C-x`, `C-x C-x`, `C-x C-x`, `C-x C-x`, `C-x C-x`, `C-x C-x` -
> this would cons some `only' symbols to the list;
> 4. `C-g' - remove the region highlighting, this removes one `only'
> from the list;
> 5. `C-SPC C-SPC' - displays a message "mark set" and then "mark
> activated", but no highlighting happens, because of remaining `only'
> in the list.
Thanks. Does the patch below give good results, i.e. does it fix this
problem without introducing any others?
diff --git a/lisp/simple.el b/lisp/simple.el
index 070d276..31463a7 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6664,7 +6664,7 @@ exchange-point-and-mark
(user-error "No mark set in this buffer"))
(set-mark (point))
(goto-char omark)
- (cond (temp-highlight
+ (cond ((not temp-highlight)
(setq-local transient-mark-mode (cons 'only transient-mark-mode)))
((xor arg (not (region-active-p)))
(deactivate-mark))
next prev parent reply other threads:[~2022-01-03 14:21 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-12-30 9:53 bug#52896: 29.0.50; transient-mark-mode is set to a lot of 'only syms Andrey Listopadov
2021-12-30 18:49 ` Eli Zaretskii
2021-12-30 19:07 ` Andrey Listopadov
2021-12-30 19:20 ` Eli Zaretskii
2021-12-30 20:02 ` Andrey Listopadov
2021-12-30 20:17 ` Eli Zaretskii
2021-12-30 20:20 ` Andrey Listopadov
2021-12-30 20:27 ` Andrey Listopadov
2021-12-30 20:32 ` Andrey Listopadov
2021-12-30 20:40 ` Andrey Listopadov
2022-01-03 14:21 ` Eli Zaretskii [this message]
2022-01-03 14:54 ` Eli Zaretskii
2022-01-07 18:17 ` Andrey Listopadov
2022-01-07 18:32 ` Eli Zaretskii
2022-01-07 18:52 ` Andrey Listopadov
2022-02-13 10:11 ` Lars Ingebrigtsen
2022-02-13 11:31 ` Andrey Listopadov
2022-02-13 13:23 ` Eli Zaretskii
2022-02-14 10:49 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=83bl0sdhmn.fsf@gnu.org \
--to=eliz@gnu.org \
--cc=52896@debbugs.gnu.org \
--cc=andreyorst@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.