From cdd8dc28f3d48ae8e6773fab9d0792aab425b552 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 19 Apr 2005 18:11:26 +0000 Subject: [PATCH] (syntax-class): New function. --- lisp/subr.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.2