diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2021-08-21 22:55:58 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2021-08-22 23:52:23 +0100 |
| commit | ff2124d2979ee9ba5b8e22147fa8ccaa00e2cc4f (patch) | |
| tree | 6cbd1e5f05831d8404a89cda04cb86fa7ec54b2c | |
| parent | 6c007668b38f06824004da466e97a96533f6344b (diff) | |
| download | emacs-ff2124d2979ee9ba5b8e22147fa8ccaa00e2cc4f.tar.gz | |
Fix recent parse-partial-sexp argument validation
* src/syntax.c (parse-partial-sexp): Also handle markers as
arguments (bug#49944). Tweak error message to follow conventions in
"(elisp) Signaling Errors".
| -rw-r--r-- | src/syntax.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/syntax.c b/src/syntax.c index adc0da730ea..057a4c3b1f5 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -3595,8 +3595,8 @@ Sixth arg COMMENTSTOP non-nil means stop after the start of a comment. else target = TYPE_MINIMUM (EMACS_INT); /* We won't reach this depth. */ - if (XFIXNUM (to) < XFIXNUM (from)) - error ("End position should be larger than start position."); + if (fix_position (to) < fix_position (from)) + error ("End position is smaller than start position"); validate_region (&from, &to); internalize_parse_state (oldstate, &state); |