Fix "C-SPC C-SPC" after "C-x C-x"

* lisp/simple.el (exchange-point-and-mark): Fix what the command
does when 'transient-mark-mode' is OFF.  (Bug#52896)

diff --git a/lisp/simple.el b/lisp/simple.el
index 070d2764fe850071092a0792bca78ced5291ce7d..cbcde9fb8da037f812333609684c6fdb9e993db9 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6664,7 +6664,7 @@ mode temporarily."
         (user-error "No mark set in this buffer"))
     (set-mark (point))
     (goto-char omark)
-    (cond (temp-highlight
+    (cond ((and (not arg) (not temp-highlight))
           (setq-local transient-mark-mode (cons 'only transient-mark-mode)))
          ((xor arg (not (region-active-p)))
           (deactivate-mark))