(syntax-class): New function.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 4ff9be7e8b..7330f1d6dd 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2286,6 +2286,10 @@ from `standard-syntax-table' otherwise."
       (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