Mercurial > emacs
comparison src/callint.c @ 3975:718280a1ba74
(Vmark_even_if_inactive): New var, with Lisp variable.
(check_mark): Use it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 04 Jul 1993 04:55:03 +0000 |
parents | 8cf58355e8a1 |
children | 77cb08d1c4a5 |
comparison
equal
deleted
inserted
replaced
3974:cd0cc37be860 | 3975:718280a1ba74 |
---|---|
32 Lisp_Object Qcall_interactively; | 32 Lisp_Object Qcall_interactively; |
33 Lisp_Object Vcommand_history; | 33 Lisp_Object Vcommand_history; |
34 | 34 |
35 Lisp_Object Vcommand_debug_status, Qcommand_debug_status; | 35 Lisp_Object Vcommand_debug_status, Qcommand_debug_status; |
36 Lisp_Object Qenable_recursive_minibuffers; | 36 Lisp_Object Qenable_recursive_minibuffers; |
37 | |
38 /* Non-nil means treat the mark as active | |
39 even if mark_active is 0. */ | |
40 Lisp_Object Vmark_even_if_inactive; | |
37 | 41 |
38 Lisp_Object Qlist; | 42 Lisp_Object Qlist; |
39 Lisp_Object preserved_fns; | 43 Lisp_Object preserved_fns; |
40 | 44 |
41 /* This comment supplies the doc string for interactive, | 45 /* This comment supplies the doc string for interactive, |
139 check_mark () | 143 check_mark () |
140 { | 144 { |
141 Lisp_Object tem = Fmarker_buffer (current_buffer->mark); | 145 Lisp_Object tem = Fmarker_buffer (current_buffer->mark); |
142 if (NILP (tem) || (XBUFFER (tem) != current_buffer)) | 146 if (NILP (tem) || (XBUFFER (tem) != current_buffer)) |
143 error ("The mark is not set now"); | 147 error ("The mark is not set now"); |
144 if (NILP (current_buffer->mark_active)) | 148 if (NILP (current_buffer->mark_active) && NILP (Vmark_even_if_inactive)) |
145 error ("The mark is not active now"); | 149 error ("The mark is not active now"); |
146 } | 150 } |
147 | 151 |
148 | 152 |
149 DEFUN ("call-interactively", Fcall_interactively, Scall_interactively, 1, 2, 0, | 153 DEFUN ("call-interactively", Fcall_interactively, Scall_interactively, 1, 2, 0, |
655 "Debugging status of current interactive command.\n\ | 659 "Debugging status of current interactive command.\n\ |
656 Bound each time `call-interactively' is called;\n\ | 660 Bound each time `call-interactively' is called;\n\ |
657 may be set by the debugger as a reminder for itself."); | 661 may be set by the debugger as a reminder for itself."); |
658 Vcommand_debug_status = Qnil; | 662 Vcommand_debug_status = Qnil; |
659 | 663 |
664 DEFVAR_LISP ("Vmark-even-if-inactive", &Vmark_even_if_inactive, | |
665 "*Non-nil means you can use the mark even when inactive.\n\ | |
666 This option makes a difference in Transient Mark mode.\n\ | |
667 When the option is non-nil, deactivation of the mark\n\ | |
668 turns off region highlighting, but commands that use the mark\n\ | |
669 behave as if the mark were still active."); | |
670 Vmark_even_if_inactive = Qnil; | |
671 | |
660 defsubr (&Sinteractive); | 672 defsubr (&Sinteractive); |
661 defsubr (&Scall_interactively); | 673 defsubr (&Scall_interactively); |
662 defsubr (&Sprefix_numeric_value); | 674 defsubr (&Sprefix_numeric_value); |
663 } | 675 } |