[Emacs-diffs] Changes to emacs/src/keyboard.c

[Richard M . Stallman]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.780 emacs/src/keyboard.c:1.781
*** emacs/src/keyboard.c:1.780  Sun Jun 13 22:39:20 2004
--- emacs/src/keyboard.c        Mon Jun 21 03:22:34 2004
***************
*** 681,686 ****
--- 681,688 ----
     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.
     Also start echoing.  */
***************
*** 1822,1827 ****
--- 1824,1839 ----
            call1 (Vrun_hooks, intern ("activate-mark-hook"));
        }
  
+       /* Setting transient-mark-mode to `only' is a way of
+        turning it on for just one command.  */
+       if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks))
+       {
+         if (EQ (Vtransient_mark_mode, Qidentity))
+           Vtransient_mark_mode = Qnil;
+         if (EQ (Vtransient_mark_mode, Qonly))
+           Vtransient_mark_mode = Qidentity;
+       }
+ 
      finalize:
  
        if (current_buffer == prev_buffer