summaryrefslogtreecommitdiff
path: root/elisp
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
commit151edf5b090a95748c31e906ae22afa163e438bf (patch)
treefdb886f6f4588c16eb53830556c3a32984abfc4f /elisp
parent5a32c9ee1240ecfc5d43cd2b975a448878dcc396 (diff)
downloadgeiser-151edf5b090a95748c31e906ae22afa163e438bf.tar.gz
geiser-151edf5b090a95748c31e906ae22afa163e438bf.tar.bz2
More quackisms
Diffstat (limited to 'elisp')
-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)))))