From 561be1fb1fa00bfbffbca1fc7d53aa93abb4d4ac Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 10 Feb 2009 01:24:45 +0100 Subject: Small fix for '() argument position reporting. --- elisp/geiser-syntax.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 5e45470..5f109cf 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -58,7 +58,7 @@ (cond ((nth 3 (syntax-ppss)) (skip-syntax-forward "^\"") (forward-char)) - ((= sc 5) (forward-char)) + ((and (= sc 5) (eq ?\( (char-before))) (forward-char)) ((not (or (= sc 0) (= sc 12))) ;; comment, whitespace (ignore-errors (forward-sexp)))) (point))) -- cgit v1.2.3