[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 567f3ba 129/284: Guile: dead elisp code elimi
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 567f3ba 129/284: Guile: dead elisp code elimination. |
Date: |
Sun, 1 Aug 2021 18:29:30 -0400 (EDT) |
branch: elpa/geiser-guile
commit 567f3ba667f2b708f1b9dbf76eede1fad0fd6b1d
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: dead elisp code elimination.
---
elisp/geiser-guile.el | 44 +-------------------------------------------
1 file changed, 1 insertion(+), 43 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index badfcfa..9855a11 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -100,48 +100,6 @@ This function uses `geiser-guile-init-file' if it exists."
(save-excursion (skip-syntax-backward "^-()>") (point))))
-;;; Error display
-(defvar geiser-guile--file-cache (make-hash-table :test 'equal))
-
-(defun geiser-guile--resolve-file (file)
- (when (and (stringp file) (not (string-equal file "unknown file")))
- (if (file-name-absolute-p file) file
- (or (gethash file geiser-guile--file-cache)
- (puthash file
- (geiser-eval--send/result
- `(:eval ((:ge find-file) ,file)))
- geiser-guile--file-cache)))))
-
-(defconst geiser-guile--file-rx
- "^In \\([^\n:]+\\):\n *\\([[:digit:]]+\\|\\?\\):")
-
-(defun geiser-guile--find-files ()
- (with--geiser-implementation 'guile
- (save-excursion
- (while (re-search-forward geiser-guile--file-rx nil t)
- (let ((file (match-string 1))
- (beg (match-beginning 1))
- (end (match-end 1))
- (line (string-to-number (or (match-string 2) "0"))))
- (let ((file (geiser-guile--resolve-file file)))
- (when file
- (geiser-edit--make-link beg end file line 0))))))))
-
-(defun geiser-guile--display-error (module key msg)
- (if (eq key 'geiser-debugger)
- (comint-send-string nil "bt\n")
- (when key
- (insert "Error: ")
- (geiser--insert-with-face (format "%s" key) 'bold)
- (newline 2))
- (when msg
- (let ((p (point)))
- (insert msg)
- (goto-char p)
- (geiser-guile--find-files)))
- t))
-
-
;;; Trying to ascertain whether a buffer is Guile Scheme:
(defun geiser-guile--guess ()
@@ -199,7 +157,7 @@ This function uses `geiser-guile-init-file' if it exists."
(find-module geiser-guile--get-module)
(enter-command geiser-guile--enter-command)
(find-symbol-begin geiser-guile--symbol-begin)
- (display-error geiser-guile--display-error)
+ (display-error)
(display-help)
(check-buffer geiser-guile--guess))
- [nongnu] elpa/geiser-guile 8624afc 229/284: Finishing removal of the "foo ends here" footers, (continued)
- [nongnu] elpa/geiser-guile 8624afc 229/284: Finishing removal of the "foo ends here" footers, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 85bf381 244/284: guile: pretty printing evaluation results (#64), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 452e096 235/284: White space, really, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 2f91e2e 245/284: Ensuring switch-to-geiser asks for an implementation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f5fee3b 255/284: Quoting binary on version checks (issue #117), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile dc8a792 257/284: Use (car (process-lines ...)) instead of (shell-command ...), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 20043b1 271/284: Make guile return line numbers more often, as suggested by Sergey, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5eff1e4 279/284: preparing MELPA submission, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4044010 060/284: Support for multiple Scheme implementations, Chapter 1., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ed29f9f 103/284: Guile: bug in backtrace display fixed., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 567f3ba 129/284: Guile: dead elisp code elimination.,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 23e1ec2 169/284: Documentation nits, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5532387 171/284: Guile: remote REPLs (connect-to-guile), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7a25131 161/284: Guile: fixes for compilation error regexps, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9ff3140 083/284: Guile: backtrace buttonization., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7b0d68b 117/284: Guile: better stack traces (using start-stack to delimit them)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9b414b4 120/284: Missing entries in scheme/Makefile.am added., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 044c88e 134/284: Guile: small tweak., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile aaa22fb 136/284: Guile: showing again submodules in module documentation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3c5cf80 149/284: Guile: better formatting of autodoc's variable values., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c732ede 141/284: Guile: no need to de-mangling autodoc args anymore., Philip Kaludercic, 2021/08/01