mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(syntax-after): Delete. Moved to subr.el.

Browse source
This commit is contained in:
Stefan Monnier 2002-09-09 23:14:13 +00:00
parent e9f13a9580
commit c17e2545b9
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/syntax.el
View file

@ -282,13 +282,5 @@ Point is at POS when this function returns."
;; (with-current-buffer (or buffer (current-buffer))
;; (syntax-ppss-depth (syntax-ppss))))
(defun syntax-after (pos)
"Return the syntax of the char after POS."
(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))))))
(provide 'syntax)
;;; syntax.el ends here