279 |
;; (with-current-buffer (or buffer (current-buffer)) |
;; (with-current-buffer (or buffer (current-buffer)) |
280 |
;; (syntax-ppss-depth (syntax-ppss)))) |
;; (syntax-ppss-depth (syntax-ppss)))) |
281 |
|
|
282 |
(elp-instrument-list '(syntax-ppss)) |
(defun syntax-after (pos) |
283 |
|
"Return the syntax of the char after POS." |
284 |
|
(unless (or (< pos (point-min)) (>= pos (point-max))) |
285 |
|
(let ((st (if parse-sexp-lookup-properties |
286 |
|
(get-char-property pos 'syntax-table)))) |
287 |
|
(if (consp st) st |
288 |
|
(aref (or st (syntax-table)) (char-after pos)))))) |
289 |
|
|
290 |
(provide 'syntax) |
(provide 'syntax) |
291 |
;;; syntax.el ends here |
;;; syntax.el ends here |