# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1113934286 0
# Node ID c95f35bea727e79ec9d611894f428858f19fdaf9
# Parent  78ea81e48fa84fcc9506504a7da4e61c2f4281f9
(syntax-class): New function.

diff -r 78ea81e48fa8 -r c95f35bea727 lisp/subr.el
--- a/lisp/subr.el	Tue Apr 19 15:19:31 2005 +0000
+++ b/lisp/subr.el	Tue Apr 19 18:11:26 2005 +0000
@@ -2286,6 +2286,10 @@
       (if (consp st) st
 	(aref (or st (syntax-table)) (char-after pos))))))
 
+(defun syntax-class (syntax)
+  "Return the syntax class part of the syntax descriptor SYNTAX."
+  (logand (car syntax) 255))
+
 (defun add-to-invisibility-spec (arg)
   "Add elements to `buffer-invisibility-spec'.
 See documentation for `buffer-invisibility-spec' for the kind of elements