[elpa] master 8c70140 1/2: [aa2u slog] Fix botched bifurcation.

[Thien-Thi Nguyen]

branch: master
commit 8c7014079e5e89d5f2222f33ff7ade4c9c8c4d40
Author: Thien-Thi Nguyen <address@hidden>
Commit: Thien-Thi Nguyen <address@hidden>

    [aa2u slog] Fix botched bifurcation.
    
    Bug introduced 2017-10-03, "Handle ‘ucs-names’ that
    returns a hash table".  Culprit: No testing (sigh).
    * packages/ascii-art-to-unicode/ascii-art-to-unicode.el
    (aa2u--lookup): Delete alias.
    (aa2u--lookup-char): New alias.
    (aa2u-1c): Use ‘aa2u--lookup-char’.
---
 packages/ascii-art-to-unicode/ascii-art-to-unicode.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el 
b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
index be40d88..ade0713 100644
--- a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
+++ b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
@@ -111,13 +111,14 @@ This specifies the weight of all the lines.")
 ;;;---------------------------------------------------------------------------
 ;;; support
 
-(defalias 'aa2u--lookup
+(defalias 'aa2u--lookup-char
   ;; Keep some slack: don't ‘eval-when-compile’ here.
   (if (hash-table-p (ucs-names))
       ;; Emacs 26 and later
       #'gethash
     ;; prior to Emacs 26
-    #'assoc-string))
+    (lambda (string alist)
+      (cdr (assoc-string string alist)))))
 
 (defsubst aa2u--text-p (pos)
   (get-text-property pos 'aa2u-text))
@@ -153,8 +154,8 @@ The char is a string (of length one), with two properties:
   aa2u-components
 
 Their values are STRINGIFIER and COMPONENTS, respectively."
-  (let ((s (string (cdr (aa2u--lookup (apply stringifier components)
-                                      (ucs-names))))))
+  (let ((s (string (aa2u--lookup-char (apply stringifier components)
+                                      (ucs-names)))))
     (propertize s
                 'aa2u-stringifier stringifier
                 'aa2u-components components)))