mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 03:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(check_mark): New arg to specify clearer error message.

Browse source 
Callers changed.
This commit is contained in:
Richard M. Stallman 2002-02-01 04:32:24 +00:00
parent 65de839b43
commit f203cf07e4
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/callint.c
View file

@ -160,12 +160,14 @@ char *callint_argfuns[]
= {"", "point", "mark", "region-beginning", "region-end"};
static void
check_mark ()
check_mark (for_region)
int for_region;
{
Lisp_Object tem;
tem = Fmarker_buffer (current_buffer->mark);
if (NILP (tem) || (XBUFFER (tem) != current_buffer))
error ("The mark is not set now");
error (for_region ? "The mark is not set now, so there is no region"
: "The mark is not set now");
if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
&& NILP (current_buffer->mark_active))
Fsignal (Qmark_inactive, Qnil);
@ -609,7 +611,7 @@ supply if the command inquires which events were used to invoke it. */)
break;
case 'm': /* Value of mark. Does not do I/O. */
check_mark ();
check_mark (0);
/* visargs[i] = Qnil; */
args[i] = current_buffer->mark;
varies[i] = 2;
@ -664,7 +666,7 @@ supply if the command inquires which events were used to invoke it. */)
break;
case 'r': /* Region, point and mark as 2 args. */
check_mark ();
check_mark (1);
set_marker_both (point_marker, Qnil, PT, PT_BYTE);
/* visargs[i+1] = Qnil; */
foo = marker_position (current_buffer->mark);