# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1114354138 0
# Node ID 994a6fb78d4c56809e21a17cb1f7274da2338e19
# Parent  a7edd5d648fa49e3aa832bb7d46f81cd5560fb62
(syntax-after): Doc fix.
(syntax-class): If argument is nil, return nil.

diff -r a7edd5d648fa -r 994a6fb78d4c lisp/subr.el
--- a/lisp/subr.el	Sun Apr 24 14:45:08 2005 +0000
+++ b/lisp/subr.el	Sun Apr 24 14:48:58 2005 +0000
@@ -2279,7 +2279,8 @@
     table))
 
 (defun syntax-after (pos)
-  "Return the raw syntax of the char after POS."
+  "Return the raw syntax of the char after POS.
+If POS is outside the buffer's accessible portion, return nil."
   (unless (or (< pos (point-min)) (>= pos (point-max)))
     (let ((st (if parse-sexp-lookup-properties
 		  (get-char-property pos 'syntax-table))))
@@ -2287,8 +2288,9 @@
 	(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))
+  "Return the syntax class part of the syntax descriptor SYNTAX.
+If SYNTAX is nil, return nil."
+  (and syntax (logand (car syntax) 65535)))
 
 (defun add-to-invisibility-spec (arg)
   "Add elements to `buffer-invisibility-spec'.