Fixed at-point detection.

1 files changed, 1 insertions, 1 deletions

diff --git a/coq/coq.el b/coq/coq.el
index e8de7dde..42ceb2e3 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -732,7 +732,7 @@ Return nil if S is nil."
 (defun coq-grab-punctuation-left (pos)
   (let ((res nil)
         (currpos pos))
-    (while (coq-is-symbol-or-punct (char-before currpos)(char-before currpos))
+    (while (and (coq-is-symbol-or-punct (char-before currpos)))
       (setq res (concat (char-to-string (char-before currpos)) res))
       (setq currpos (- currpos 1)))
     res))