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. */ |
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 |