Mercurial > emacs

diff lisp/subr.el @ 83291:bbf359ec4a59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 269) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-269 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-331
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 25 Apr 2005 11:47:55 +0000
parents 26c9034f3533 c95f35bea727
children ad07ff6e4555
line wrap: on
line diff
--- a/lisp/subr.el	Tue Apr 19 13:33:31 2005 +0000
+++ b/lisp/subr.el	Mon Apr 25 11:47:55 2005 +0000
@@ -2298,6 +2298,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