(syntax-class): New function.

This commit is contained in:
Stefan Monnier 2005-04-19 18:11:26 +00:00
parent 42fc00a42f
commit cdd8dc28f3

View file

@ -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