From 5b1b700926173c1ffa11fae558bce06b31c0bc30 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 12 Apr 2013 00:57:23 +0200 Subject: Simplifications to previous patch --- elisp/geiser-debug.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-debug.el') diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 184d9c8..611e50e 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -1,6 +1,6 @@ ;;; geiser-debug.el -- displaying debug information and evaluation results -;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -161,18 +161,19 @@ buffer.") (match-string 1 str) str)) -(defun geiser-debug--send-region (compile start end and-go wrap) +(defun geiser-debug--send-region (compile start end and-go wrap &optional nomsg) (let* ((str (buffer-substring-no-properties start end)) (wrapped (if wrap (geiser-debug--wrap-region str) str)) (code `(,(if compile :comp :eval) (:scm ,wrapped))) (ret (geiser-eval--send/wait code)) - (res (geiser-eval--retort-result-str ret)) + (res (geiser-eval--retort-result-str ret nil)) (err (geiser-eval--retort-error ret))) (when and-go (funcall and-go)) (when (not err) (save-excursion (goto-char (/ (+ end start) 2)) - (geiser-autodoc--clean-cache))) + (geiser-autodoc--clean-cache)) + (unless nomsg (message "%s" res))) (geiser-debug--display-retort (geiser-syntax--scheme-str str) ret res) ret)) -- cgit v1.2.3