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)))) |
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'. |