[Emacs-diffs] Changes to emacs/lisp/subr.el

[Eli Zaretskii]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.441 emacs/lisp/subr.el:1.442
*** emacs/lisp/subr.el:1.441    Thu Apr 21 21:15:51 2005
--- emacs/lisp/subr.el  Sun Apr 24 14:48:58 2005
***************
*** 2279,2285 ****
      table))
  
  (defun syntax-after (pos)
!   "Return the raw syntax of the char after POS."
    (unless (or (< pos (point-min)) (>= pos (point-max)))
      (let ((st (if parse-sexp-lookup-properties
                  (get-char-property pos 'syntax-table))))
--- 2279,2286 ----
      table))
  
  (defun syntax-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,2294 ****
        (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'.
--- 2288,2296 ----
        (aref (or st (syntax-table)) (char-after pos))))))
  
  (defun syntax-class (syntax)
!   "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'.