diff options
| author | Stefan Monnier | 2002-09-09 23:14:13 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-09 23:14:13 +0000 |
| commit | c17e2545b98cab1b19125c0b3ef43829d82cc299 (patch) | |
| tree | 63a38efe6fb88f0a37236788c05f6deb684754e5 | |
| parent | e9f13a9580e6bd5f71ed9ad684b586c4d445ec17 (diff) | |
| download | emacs-c17e2545b98cab1b19125c0b3ef43829d82cc299.tar.gz emacs-c17e2545b98cab1b19125c0b3ef43829d82cc299.zip | |
(syntax-after): Delete. Moved to subr.el.
| -rw-r--r-- | lisp/emacs-lisp/syntax.el | 8 |
1 files changed, 0 insertions, 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." | |||
| 282 | ;; (with-current-buffer (or buffer (current-buffer)) | 282 | ;; (with-current-buffer (or buffer (current-buffer)) |
| 283 | ;; (syntax-ppss-depth (syntax-ppss)))) | 283 | ;; (syntax-ppss-depth (syntax-ppss)))) |
| 284 | 284 | ||
| 285 | (defun syntax-after (pos) | ||
| 286 | "Return the syntax of the char after POS." | ||
| 287 | (unless (or (< pos (point-min)) (>= pos (point-max))) | ||
| 288 | (let ((st (if parse-sexp-lookup-properties | ||
| 289 | (get-char-property pos 'syntax-table)))) | ||
| 290 | (if (consp st) st | ||
| 291 | (aref (or st (syntax-table)) (char-after pos)))))) | ||
| 292 | |||
| 293 | (provide 'syntax) | 285 | (provide 'syntax) |
| 294 | ;;; syntax.el ends here | 286 | ;;; syntax.el ends here |