# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1031613253 0
# Node ID c4da69acaa79ed259e9e2f463c789fb63cb781cc
# Parent  9e3ee43b52626a0caaf0ee706bbe09b099df6f15
(syntax-after): Delete.  Moved to subr.el.

diff -r 9e3ee43b5262 -r c4da69acaa79 lisp/emacs-lisp/syntax.el
--- a/lisp/emacs-lisp/syntax.el	Mon Sep 09 23:13:18 2002 +0000
+++ b/lisp/emacs-lisp/syntax.el	Mon Sep 09 23:14:13 2002 +0000
@@ -282,13 +282,5 @@
 ;;   (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