From 12679e05b0301b602857fccb2e0837e5dd40d6b3 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 2 Apr 2008 20:22:37 +0000 Subject: [PATCH] Restore support for the values `identity' and `only' for transient mark mode, since it can't hurt. Update comments. --- src/keyboard.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index 526586f17f..54a626268a 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -661,6 +661,8 @@ static int store_user_signal_events P_ ((void)); /* Nonzero means don't try to suspend even if the operating system seems to support it. */ static int cannot_suspend; + +extern Lisp_Object Qidentity, Qonly; /* Install the string STR as the beginning of the string of echoing, so that it serves as a prompt for the next character. @@ -1967,6 +1969,14 @@ command_loop_1 () if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks)) { + /* In Emacs 22, setting transient-mark-mode to `only' was a + way of turning it on for just one command. This usage is + obsolete, but support it anyway. */ + if (EQ (Vtransient_mark_mode, Qidentity)) + Vtransient_mark_mode = Qnil; + else if (EQ (Vtransient_mark_mode, Qonly)) + Vtransient_mark_mode = Qidentity; + if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode)) { /* We could also call `deactivate'mark'. */ -- 2.39.2