Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.439 emacs/lisp/subr.el:1.440
*** emacs/lisp/subr.el:1.439    Sun Mar 20 20:59:14 2005
--- emacs/lisp/subr.el  Tue Apr 19 18:11:26 2005
***************
*** 2286,2291 ****
--- 2286,2295 ----
        (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


_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs

Reply via email to