Dealing with Emacs 19.34.

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

diff --git a/lisp/liece.el b/lisp/liece.el
index 65fedf8..1dee0ef 100644 (file)
--- a/lisp/liece.el
+++ b/lisp/liece.el
@@ -447,8 +447,8 @@ If optional argument SERVICE is non-nil, open by the service name."
       (set-process-sentinel liece-server-process 'liece-sentinel)
       (set-process-filter liece-server-process 'liece-filter)
       (if (or liece-ask-for-password liece-reconnect-with-password)
-         (let ((passwd-echo ?*) password)
-           (setq password (read-passwd (_ "Server Password: ")))
+         (let ((password
+                (liece-read-passwd (_ "Server Password: "))))
            (or (string= password "")
                (setq liece-password password))))
       (if liece-password