2209 |
table)) |
table)) |
2210 |
|
|
2211 |
(defun syntax-after (pos) |
(defun syntax-after (pos) |
2212 |
"Return the syntax of the char after POS." |
"Return the syntax of the char after POS. |
2213 |
|
The value is either a syntax character (a character that designates |
2214 |
|
a syntax in `modify-syntax-entry'), or a cons cell |
2215 |
|
of the form (CODE . MATCH), where CODE is the syntax character |
2216 |
|
and MATCH is the matching parenthesis." |
2217 |
(unless (or (< pos (point-min)) (>= pos (point-max))) |
(unless (or (< pos (point-min)) (>= pos (point-max))) |
2218 |
(let ((st (if parse-sexp-lookup-properties |
(let* ((st (if parse-sexp-lookup-properties |
2219 |
(get-char-property pos 'syntax-table)))) |
(get-char-property pos 'syntax-table))) |
2220 |
(if (consp st) st |
(value |
2221 |
(aref (or st (syntax-table)) (char-after pos)))))) |
(if (consp st) st |
2222 |
|
(aref (or st (syntax-table)) (char-after pos)))) |
2223 |
|
(code (if (consp value) (car value) value))) |
2224 |
|
(setq code (aref "-.w_()'\"$\\/<>@!|" code)) |
2225 |
|
(if (consp value) (cons code (cdr value)) code)))) |
2226 |
|
|
2227 |
(defun add-to-invisibility-spec (arg) |
(defun add-to-invisibility-spec (arg) |
2228 |
"Add elements to `buffer-invisibility-spec'. |
"Add elements to `buffer-invisibility-spec'. |