(syntax-after): Doc fix.

(syntax-class): If argument is nil, return nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be485c306d12676b487f19859e2b7b7be6d52d41..1d6c32e3f06dbcaaa498b3cffbe099e7ac2ecab6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-24  Eli Zaretskii  <eliz@gnu.org>
 
+       * subr.el (syntax-after): Doc fix.
+       (syntax-class): If argument is nil, return nil.
+
        * files.el (mode-require-final-newline): Doc fix.
        (backup-buffer-copy): Fix last change.
 

diff --git a/lisp/subr.el b/lisp/subr.el
index f791faffd910de75b87427341334a6b8f58067fc..d4210e562cd5238e2e96b27e7e47a1c116e845a7 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2279,7 +2279,8 @@ from `standard-syntax-table' otherwise."
     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 @@ from `standard-syntax-table' otherwise."
        (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'.