diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/subr.el | 8 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be485c306d1..1d6c32e3f06 100644 --- 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 f791faffd91..d4210e562cd 100644 --- 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'. |