branch: elpa/geiser-chicken
commit ce93e6b31ed47de6b39d4c3a2a2e317284cd48b1
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Follow suit and complete quoted symbols in all schemes
I kind of dislike completion on symbols, because a quote reads to me as
'stop evaluating', and a symbol per se has infinite possible
conversions. But, on the other hand, not completing has no practical
advantage, and, moreover, we're already completing symbols inside quoted
lists (e.g. try M-TAB next to `'(defi`)), so my prejudices are not even
consistent. So here we go!
---
elisp/geiser-chicken.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 2a8c082..fc28e63 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -196,11 +196,13 @@ This function uses `geiser-chicken-init-file' if it
exists."
'max
(append
(list (save-excursion (beginning-of-line) (point))
- (save-excursion (skip-syntax-backward "^-()>"
distance-to-beginning-of-line)
+ (save-excursion (skip-syntax-backward "^'-()>"
+
distance-to-beginning-of-line)
(point)))
(mapcar
(lambda (match-string)
- (save-excursion (skip-chars-backward match-string
distance-to-beginning-of-line)
+ (save-excursion (skip-chars-backward match-string
+ distance-to-beginning-of-line)
(point)))
geiser-chicken-prefix-delimiters)))))
@@ -283,7 +285,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(geiser-connect 'chicken))
(defun geiser-chicken--compile-or-load (force-load)
- (let ((target
+ (let ((target
(expand-file-name "chicken/geiser/emacs.so" geiser-scheme-dir))
(source
(expand-file-name "chicken/geiser/emacs.scm" geiser-scheme-dir))
