diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-05-29 03:39:51 +0200 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-05-29 03:39:51 +0200 |
commit | d8cb36651aa628075df494c0a1515d98d5a75adf (patch) | |
tree | 5a9139ee98c50748d17cdd8e8f4d5e8149506235 | |
parent | 6354c3b431af3de15218ebb264252a4bdc702940 (diff) | |
download | geiser-guile-d8cb36651aa628075df494c0a1515d98d5a75adf.tar.gz geiser-guile-d8cb36651aa628075df494c0a1515d98d5a75adf.tar.bz2 |
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.
-rw-r--r-- | elisp/geiser-debug.el | 7 |
1 files changed, 4 insertions, 3 deletions
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) |