From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 24 May 2024 13:22:10 +0000 (+0200)
Subject: Remove 'mode-exit(ed)' stuff
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94074c1b0bfb8f15a76d0eb69961fce44e604c49;p=emacs.git

Remove 'mode-exit(ed)' stuff
---

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 34cef519067..9d54ea542e4 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -223,8 +223,6 @@ recently executed command not bound to an input event\"."
   (cond
    ((null last-repeatable-command)
     (error "There is nothing to repeat"))
-   ((eq last-repeatable-command 'mode-exit)
-    (error "`last-repeatable-command' is `mode-exit' and can't be repeated"))
    ((memq last-repeatable-command repeat-too-dangerous)
     (error "Command %S too dangerous to repeat automatically"
 	   last-repeatable-command)))
diff --git a/lisp/replace.el b/lisp/replace.el
index 14b16172e45..042f37a808f 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -3327,7 +3327,6 @@ characters."
 			;; specially here, since we reread
 			;; any unrecognized character.
 			(t
-			 (setq this-command 'mode-exited)
 			 (setq keep-going nil)
 			 (setq unread-command-events
 			       (append (listify-key-sequence key)
diff --git a/lisp/simple.el b/lisp/simple.el
index 32bc4599a1d..8f4664200de 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -9574,8 +9574,7 @@ can get out of the minibuffer or other recursive edit,
 cancel the use of the current buffer (for special-purpose buffers),
 or go back to just one window (by deleting all but the selected window)."
   (interactive)
-  (cond ((eq last-command 'mode-exited) nil)
-	((region-active-p)
+  (cond ((region-active-p)
 	 (deactivate-mark))
 	((> (minibuffer-depth) 0)
 	 (abort-recursive-edit))
diff --git a/src/keyboard.c b/src/keyboard.c
index 3551a77a9c9..d49aa7d2ee8 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -13194,11 +13194,6 @@ Normally a symbol with a function definition, but can be whatever was found
 in the keymap, or whatever the variable `this-command' was set to by that
 command.
 
-The value `mode-exit' is special; it means that the previous command
-read an event that told it to exit, and it did so and unread that event.
-In other words, the present command is the event that made the previous
-command exit.
-
 The value `kill-region' is special; it means that the previous command
 was a kill command.