Synch up with liece-2_0.

[elisp/liece.git] / lisp / liece-compat.el

diff --git a/lisp/liece-compat.el b/lisp/liece-compat.el
index 58568b2..7ed1a87 100644 (file)
--- a/lisp/liece-compat.el
+++ b/lisp/liece-compat.el
@@ -65,6 +65,11 @@ Otherwise, this function always returns false.
     (defalias 'liece-window-height 'window-displayed-height)
   (defalias 'liece-window-height 'window-height))
 
+(static-if (fboundp 'string-to-list)
+    (defalias 'liece-string-to-list 'string-to-list)
+  ;; Rely on `string-to-char-list' emulation is provided in poem.
+  (defalias 'liece-string-to-list 'string-to-char-list))
+
 (defalias 'liece-mode-line-buffer-identification 'identity)
 
 (defun liece-suppress-mode-line-format ()