/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.441 by lute, Thu Apr 21 21:15:51 2005 UTC revision 1.442 by eliz, Sun Apr 24 14:48:58 2005 UTC
# Line 2279  from `standard-syntax-table' otherwise." Line 2279  from `standard-syntax-table' otherwise."
2279      table))      table))
2280    
2281  (defun syntax-after (pos)  (defun syntax-after (pos)
2282    "Return the raw syntax of the char after POS."    "Return the raw syntax of the char after POS.
2283    If POS is outside the buffer's accessible portion, return nil."
2284    (unless (or (< pos (point-min)) (>= pos (point-max)))    (unless (or (< pos (point-min)) (>= pos (point-max)))
2285      (let ((st (if parse-sexp-lookup-properties      (let ((st (if parse-sexp-lookup-properties
2286                    (get-char-property pos 'syntax-table))))                    (get-char-property pos 'syntax-table))))
# Line 2287  from `standard-syntax-table' otherwise." Line 2288  from `standard-syntax-table' otherwise."
2288          (aref (or st (syntax-table)) (char-after pos))))))          (aref (or st (syntax-table)) (char-after pos))))))
2289    
2290  (defun syntax-class (syntax)  (defun syntax-class (syntax)
2291    "Return the syntax class part of the syntax descriptor SYNTAX."    "Return the syntax class part of the syntax descriptor SYNTAX.
2292    (logand (car syntax) 255))  If SYNTAX is nil, return nil."
2293      (and syntax (logand (car syntax) 65535)))
2294    
2295  (defun add-to-invisibility-spec (arg)  (defun add-to-invisibility-spec (arg)
2296    "Add elements to `buffer-invisibility-spec'.    "Add elements to `buffer-invisibility-spec'.

Legend:
Removed from v.1.441  
changed lines
  Added in v.1.442

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26