mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(syntax-after): Return the syntax letter, not the raw code.

Browse source
This commit is contained in:
Richard M. Stallman 2004-11-07 04:10:38 +00:00
parent da355cba85
commit e710efbbb3
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/subr.el
View file

@ -2209,12 +2209,20 @@ from `standard-syntax-table' otherwise."
table))
(defun syntax-after (pos)
"Return the syntax of the char after POS."
"Return the syntax of the char after POS.
The value is either a syntax character (a character that designates
a syntax in `modify-syntax-entry'), or a cons cell
of the form (CODE . MATCH), where CODE is the syntax character
and MATCH is the matching parenthesis."
(unless (or (< pos (point-min)) (>= pos (point-max)))
(let ((st (if parse-sexp-lookup-properties
(get-char-property pos 'syntax-table))))
(if (consp st) st
(aref (or st (syntax-table)) (char-after pos))))))
(let* ((st (if parse-sexp-lookup-properties
(get-char-property pos 'syntax-table)))
(value
(if (consp st) st
(aref (or st (syntax-table)) (char-after pos))))
(code (if (consp value) (car value) value)))
(setq code (aref "-.w_()'\"$\\/<>@!|" code))
(if (consp value) (cons code (cdr value)) code))))
(defun add-to-invisibility-spec (arg)
"Add elements to `buffer-invisibility-spec'.