diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-04-19 18:11:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-04-19 18:11:26 +0000 |
| commit | cdd8dc28f3d48ae8e6773fab9d0792aab425b552 (patch) | |
| tree | 4f8a591fd4e0549006d45ba70ec8e4e801f91397 /lisp/subr.el | |
| parent | 42fc00a42f31bb1aaa5980db5b5e2fe7bdce577f (diff) | |
| download | emacs-cdd8dc28f3d48ae8e6773fab9d0792aab425b552.tar.gz | |
(syntax-class): New function.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |