summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-02 20:38:25 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-02 20:38:25 +0100
commit31215149401ca11ca6365109411206e25b6a3b6d (patch)
treee97af23bf6893e9d3390c1fd6e3d99c9c9051158 /elisp/geiser-syntax.el
parentf275952d107ea4553a45fefefed51d74b2d94183 (diff)
downloadgeiser-chez-31215149401ca11ca6365109411206e25b6a3b6d.tar.gz
geiser-chez-31215149401ca11ca6365109411206e25b6a3b6d.tar.bz2
More quackisms
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 4921831..cabc8a6 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -269,6 +269,7 @@ implementation-specific entries for font-lock-keywords.")
(let ((s (thing-at-point 'symbol)))
(and s
(not (equal s "."))
+ (not (string-match "^#[^:]" s)) ;; quack modifies thing-at-point
(make-symbol (substring-no-properties s))))))
(defsubst geiser-syntax--skip-comment/string ()
@@ -295,6 +296,7 @@ implementation-specific entries for font-lock-keywords.")
(let ((s (thing-at-point 'symbol)))
(cond ((not s) (push s elems))
((member s '("#" "`" "'")) (push nil elems))
+ ((string-match "^#[^:]" s) (push nil elems)) ;; quack
((not (equal "." s)) (push (make-symbol s) elems)))))))
(nreverse elems)))))