[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el |
Date: |
Sun, 25 Nov 2001 17:05:17 -0500 |
Index: emacs/lisp/emacs-lisp/syntax.el
diff -u emacs/lisp/emacs-lisp/syntax.el:1.3 emacs/lisp/emacs-lisp/syntax.el:1.4
--- emacs/lisp/emacs-lisp/syntax.el:1.3 Sun Oct 28 01:43:36 2001
+++ emacs/lisp/emacs-lisp/syntax.el Sun Nov 25 17:05:17 2001
@@ -279,7 +279,13 @@
;; (with-current-buffer (or buffer (current-buffer))
;; (syntax-ppss-depth (syntax-ppss))))
-(elp-instrument-list '(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/syntax.el,
Stefan Monnier <=