mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(Fmatching_paren): New function.

Browse source 
(Fchar_syntax): Pass arg directly to SYNTAX, no masking.
This commit is contained in:
Richard M. Stallman 1994-06-19 18:20:52 +00:00
parent c5ac35c10e
commit beefa22e7b
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/syntax.c
View file

@ -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);