# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1507141347 -10800
# Node ID 79ac87d089764f583630b987d1b4f140fcdc41f4
# Parent  14cd57330cbac2b8b605d5d9332e359ce7728d7d
Linearize function call chain.

diff -r 14cd57330cba -r 79ac87d08976 contrib/gadict.el
--- a/contrib/gadict.el	Thu Sep 28 00:18:16 2017 +0300
+++ b/contrib/gadict.el	Wed Oct 04 21:22:27 2017 +0300
@@ -42,7 +42,13 @@
 
 (defun gadict--espeak-cleanup (s)
   "Cleanup espeak IPA output."
-  (replace-regexp-in-string "t$(O*h(B" "$,1$G(B" (replace-regexp-in-string "[\x200D]" "" (gadict--trim s))))
+  (mapc (lambda (fn) (setq s (funcall fn s)))
+        (list
+         ;; UTF symbol between t$(O*h(B to make ligature.
+         (lambda (str) (replace-regexp-in-string "[\x200D]" "" str))
+         (lambda (str) (replace-regexp-in-string "t$(O*h(B" "$,1$G(B" str))
+         #'gadict--trim))
+  s)
 
 (defvar gadict-espeak-enabled nil
   "Is espeak used.")