[nongnu] elpa/slime 2063445ce5 34/44: slime-in-expression-p: match symbols case-insensitively.

[ELPA Syncer]

branch: elpa/slime
commit 2063445ce5eb23dcce016d4e2de5f1eb4626db34
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    slime-in-expression-p: match symbols case-insensitively.
---
 contrib/slime-parse.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/contrib/slime-parse.el b/contrib/slime-parse.el
index 848d468200..d0c012a55d 100644
--- a/contrib/slime-parse.el
+++ b/contrib/slime-parse.el
@@ -228,7 +228,10 @@ The pattern can have the form:
                always (ignore-errors
                         (cl-etypecase p
                           (symbol (slime-beginning-of-list)
-                                  (eq (read (current-buffer)) p))
+                                  (let ((x (read (current-buffer))))
+                                    (and (symbolp x)
+                                         (string-equal-ignore-case 
(symbol-name x)
+                                                                   
(symbol-name p)))))
                           (number (backward-up-list p)
                                   t)))))))