summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-12-19 05:38:20 +0000
committerjao <jao@gnu.org>2021-12-19 05:38:20 +0000
commit91f4bef1f7d0137496deea4015f7918552c25ff6 (patch)
tree295b5febcd4ac2f99c96c19716f7d83246c70753
parentb6e1f3f4083914e77d254521444d77406a1372b5 (diff)
downloadgeiser-guile-91f4bef1f7d0137496deea4015f7918552c25ff6.tar.gz
geiser-guile-91f4bef1f7d0137496deea4015f7918552c25ff6.tar.bz2
Debugger: cleaning the "Entering a new prompt" salutation
-rw-r--r--geiser-guile.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/geiser-guile.el b/geiser-guile.el
index f5a6991..64ab8ab 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -165,9 +165,10 @@ This function uses `geiser-guile-init-file' if it exists."
"^[^@(\n]+@([^)]*?) \\[\\([0-9]+\\)\\]> ")
(defconst geiser-guile--clean-rx
- (format "\\(%s\\)\\|\\(^\\$[0-9]+ = [^\n]+$\\)"
+ (format "\\(%s\\)\\|\\(^\\$[0-9]+ = [^\n]+$\\)\\|%s"
(geiser-con--combined-prompt geiser-guile--prompt-regexp
- geiser-guile--debugger-prompt-regexp)))
+ geiser-guile--debugger-prompt-regexp)
+ "\\(\nEntering a new prompt. Type `,bt' for [^\n]+\\.$\\)"))
;;; Evaluation support:
@@ -247,9 +248,9 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Compilation shell regexps
-(defconst geiser-guile--path-rx "^In \\([^:\n]+\\):\n")
+(defconst geiser-guile--path-rx "^In \\([^:\n ]+\\):\n")
-(defconst geiser-guile--rel-path-rx "^In +\\([^/\n:]+\\):\n")
+(defconst geiser-guile--rel-path-rx "^In +\\([^/\n: ]+\\):\n")
(defvar geiser-guile--file-cache (make-hash-table :test 'equal)
"Internal cache.")
@@ -264,7 +265,8 @@ This function uses `geiser-guile-init-file' if it exists."
(defun geiser-guile--resolve-file (file)
"Find the given FILE, if it's indeed a file."
(when (and (stringp file)
- (not (member file '("socket" "stdin" "unknown file"))))
+ (not (member file
+ '("socket" "stdin" "unknown file" "current input"))))
(message "Resolving %s" file)
(cond ((file-name-absolute-p file) file)
(t (when-let (f (geiser-guile--find-file file))