From ec0258dc7cd8d2a8b8d30ea0398386f2000e35f4 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sun, 6 Sep 2009 20:41:47 +0000 Subject: proof-buffer-syntactic-context-emulate: use caching syntax-ppss instead of parse-partial-sexp --- lib/proof-compat.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/proof-compat.el') diff --git a/lib/proof-compat.el b/lib/proof-compat.el index 12114f58..73522b45 100644 --- a/lib/proof-compat.el +++ b/lib/proof-compat.el @@ -102,7 +102,8 @@ The returned value is one of the following symbols: comment ; meaning point is within a line comment" (save-excursion (if buffer (set-buffer buffer)) - (let ((pp (parse-partial-sexp (point-min) (point)))) + (let ((pp (syntax-ppss))) + ;;(parse-partial-sexp (point-min) (point)))) (cond ((nth 3 pp) 'string) ;; ((nth 7 pp) 'block-comment) -- cgit v1.2.3