Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f203cf07
Commit
f203cf07
authored
Feb 01, 2002
by
Richard M. Stallman
Browse files
(check_mark): New arg to specify clearer error message.
Callers changed.
parent
65de839b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
src/callint.c
src/callint.c
+6
-4
No files found.
src/callint.c
View file @
f203cf07
...
...
@@ -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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment