summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-28 04:11:46 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-28 04:11:46 +0100
commitfe8de4b31e916c1f1883826cade2c8dc310afe48 (patch)
treef60c754d0c7df724d3c63e0422037cf734d0c11b /elisp/geiser-syntax.el
parent2a582ee40aa77ff4d05baef3e2ea4449615cd93f (diff)
downloadgeiser-guile-fe8de4b31e916c1f1883826cade2c8dc310afe48.tar.gz
geiser-guile-fe8de4b31e916c1f1883826cade2c8dc310afe48.tar.bz2
Finer grained maintenance of autodoc's cache
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index eff1e41..8428f49 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -320,7 +320,8 @@ implementation-specific entries for font-lock-keywords.")
(prev (and (geiser-syntax--keywordp prev)
(list prev))))
(push `(,(car form) ,pos ,@prev) path)))))))
- (mapcar (lambda (e) (cons (format "%s" (car e)) (cdr e)))
+ (mapcar (lambda (e)
+ (cons (substring-no-properties (format "%s" (car e))) (cdr e)))
(nreverse path))))
(defsubst geiser-syntax--binding-form-p (bfs sbfs f)