From beefa22e7ba66ae2ba49e996f45b9d63b674c73a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 19 Jun 1994 18:20:52 +0000 Subject: [PATCH] (Fmatching_paren): New function. (Fchar_syntax): Pass arg directly to SYNTAX, no masking. --- src/syntax.c | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/src/syntax.c b/src/syntax.c index d1dd2931236..26511a23b29 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -223,7 +223,20 @@ are listed in the documentation of `modify-syntax-entry'.") Lisp_Object ch; { CHECK_NUMBER (ch, 0); - return make_number (syntax_code_spec[(int) SYNTAX (0xFF & XINT (ch))]); + return make_number (syntax_code_spec[(int) SYNTAX (XINT (ch))]); +} + +DEFUN ("matching-paren", Fmatching_paren, Smatching_paren, 1, 1, 0, + "Return the matching parenthesis of CHAR, or nil if none.") + (ch) + Lisp_Object ch; +{ + int code; + CHECK_NUMBER (ch, 0); + code = SYNTAX (XINT (ch)); + if (code == Sopen && code == Sclose) + return make_number (SYNTAX_MATCH (XINT (ch))); + return Qnil; } /* This comment supplies the doc string for modify-syntax-entry, @@ -1719,6 +1732,7 @@ syms_of_syntax () defsubr (&Scopy_syntax_table); defsubr (&Sset_syntax_table); defsubr (&Schar_syntax); + defsubr (&Smatching_paren); defsubr (&Smodify_syntax_entry); defsubr (&Sdescribe_syntax); -- 2.39.5