diff options
| author | Diogo F. S. Ramos <diogofsr@gmail.com> | 2013-04-11 18:56:30 -0300 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-12 00:17:00 +0200 |
| commit | 2ebc1225b929d2a3c3b25fbd7596adb4d49915f0 (patch) | |
| tree | 1c052ad067b05d3d17a0943699a9a61faecd48e6 /elisp/geiser-debug.el | |
| parent | 246175eadf22a2ab7121be68d37d01f320ddb44a (diff) | |
| download | geiser-chez-2ebc1225b929d2a3c3b25fbd7596adb4d49915f0.tar.gz geiser-chez-2ebc1225b929d2a3c3b25fbd7596adb4d49915f0.tar.bz2 | |
Evaluate last expression to buffer with a prefix
Use a prefix before pressing C-x C-e to print the result of evaluating
the expression before mark to the current buffer.
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index c35f577..184d9c8 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -172,9 +172,9 @@ buffer.") (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))) + (geiser-autodoc--clean-cache))) + (geiser-debug--display-retort (geiser-syntax--scheme-str str) ret res) + ret)) (defun geiser-debug--expand-region (start end all wrap) (let* ((str (buffer-substring-no-properties start end)) |