/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.681.2.13 by miles, Tue Jul 6 10:14:28 2004 UTC revision 1.681.2.14 by miles, Tue Jul 6 10:17:20 2004 UTC
# Line 681  static SIGTYPE interrupt_signal P_ ((int Line 681  static SIGTYPE interrupt_signal P_ ((int
681     to support it.  */     to support it.  */
682  static int cannot_suspend;  static int cannot_suspend;
683    
684    extern Lisp_Object Qidentity, Qonly;
685    
686  /* Install the string STR as the beginning of the string of echoing,  /* Install the string STR as the beginning of the string of echoing,
687     so that it serves as a prompt for the next character.     so that it serves as a prompt for the next character.
688     Also start echoing.  */     Also start echoing.  */
# Line 1822  command_loop_1 () Line 1824  command_loop_1 ()
1824              call1 (Vrun_hooks, intern ("activate-mark-hook"));              call1 (Vrun_hooks, intern ("activate-mark-hook"));
1825          }          }
1826    
1827          /* Setting transient-mark-mode to `only' is a way of
1828             turning it on for just one command.  */
1829          if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks))
1830            {
1831              if (EQ (Vtransient_mark_mode, Qidentity))
1832                Vtransient_mark_mode = Qnil;
1833              if (EQ (Vtransient_mark_mode, Qonly))
1834                Vtransient_mark_mode = Qidentity;
1835            }
1836    
1837      finalize:      finalize:
1838    
1839        if (current_buffer == prev_buffer        if (current_buffer == prev_buffer

Legend:
Removed from v.1.681.2.13  
changed lines
  Added in v.1.681.2.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26