From d8cb36651aa628075df494c0a1515d98d5a75adf Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 29 May 2016 03:39:51 +0200 Subject: Fixes for geiser-debug-jump-to-debug-p and geiser-debug-show-debug-p I wonder if this has ever worked fine: geiser-debug--display-retort was a little mess. It should be a bit better now, but Guile is still displaying funny messages. --- elisp/geiser-debug.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 00fd4d9..7afcb53 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, 2013, 2014, 2015 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016 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 @@ -164,9 +164,10 @@ buffer.") (geiser-debug--display-error impl module nil what)) (goto-char (point-min))) (when (or img dbg) - (geiser-debug--pop-to-buffer) + (when geiser-debug-show-debug-p + (geiser-debug--pop-to-buffer)) (when (and dbg (not geiser-debug-jump-to-debug-p)) - (next-error) + (ignore-errors (next-error)) (when (not geiser-debug-show-debug-p) (pop-to-buffer (geiser-debug--buffer) 'display-buffer-reuse-window t) -- cgit v1.2.3