From c17e2545b98cab1b19125c0b3ef43829d82cc299 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 9 Sep 2002 23:14:13 +0000 Subject: [PATCH] (syntax-after): Delete. Moved to subr.el. --- lisp/emacs-lisp/syntax.el | 8 -------- 1 file changed, 8 deletions(-) diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index 717ea756b56..89660e48d77 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el @@ -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 -- 2.39.5