summaryrefslogtreecommitdiff
path: root/elisp/geiser-debug.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-debug.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-debug.el')
-rw-r--r--elisp/geiser-debug.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 76865f3..02b463e 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -145,9 +145,12 @@ buffer.")
(ret (geiser-eval--send/wait code))
(res (geiser-eval--retort-result-str ret))
(err (geiser-eval--retort-error ret)))
- (geiser-autodoc--clean-cache)
(when and-go (funcall and-go))
- (when (not err) (message "%s" res))
+ (when (not err)
+ (save-excursion
+ (goto-char (/ (+ end start) 2))
+ (geiser-autodoc--clean-cache))
+ (message "%s" res))
(geiser-debug--display-retort (geiser-syntax--scheme-str str) ret res)))
(defun geiser-debug--expand-region (start end all wrap)