[nongnu] elpa/geiser-guile 6cef62b 250/284: Follow suit and complete quoted symbols in all schemes

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 6cef62b80fb292eaa90548689eaa3ce85e110ac4
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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-guile.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index f942930..699ed9a 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -1,6 +1,6 @@
 ;; geiser-guile.el -- guile's implementation of the geiser protocols
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015 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
@@ -204,7 +204,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (if module
       (max (save-excursion (beginning-of-line) (point))
            (save-excursion (skip-syntax-backward "^(>") (1- (point))))
-    (save-excursion (skip-syntax-backward "^-()>") (point))))
+    (save-excursion (skip-syntax-backward "^'-()>") (point))))
 
 
 ;;; Error display