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!

1 files 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))