[elpa] master ec71273 056/281: ivy.el (ivy-partial): Fix downcase on non-string

[Oleh Krehel]

branch: master
commit ec71273dd02b334d1f0b8267c178caeb813d9303
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    ivy.el (ivy-partial): Fix downcase on non-string
    
    Fixes #1024
---
 ivy.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/ivy.el b/ivy.el
index caf9c9f..2c54300 100644
--- a/ivy.el
+++ b/ivy.el
@@ -770,16 +770,18 @@ If the text hasn't changed as a result, forward to 
`ivy-alt-done'."
                                           (let ((i (string-match postfix str)))
                                             (when i
                                               (substring str i))))
-                                        ivy--old-cands))))
-         (new* (if (eq ivy-case-fold-search 'auto) (downcase new) new)))
+                                        ivy--old-cands)))))
+    (when (and (eq ivy-case-fold-search 'auto)
+               (stringp new))
+      (setq new (downcase new)))
     (cond ((eq new t) nil)
-          ((string= new* ivy-text) nil)
+          ((string= new ivy-text) nil)
           (new
            (delete-region (minibuffer-prompt-end) (point-max))
            (setcar (last parts)
                    (if startp
-                       (concat "^" new*)
-                     new*))
+                       (concat "^" new)
+                     new))
            (insert (mapconcat #'identity parts " ")
                    (if ivy-tab-space " " ""))
            t))))