From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 19 Apr 2005 18:11:26 +0000 (+0000)
Subject: (syntax-class): New function.
X-Git-Tag: ttn-vms-21-2-B4~888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cdd8dc28f3d48ae8e6773fab9d0792aab425b552;p=emacs.git

(syntax-class): New function.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 4ff9be7e8b9..7330f1d6ddf 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