* liece-misc.el (liece-subtract-time): New function.

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

diff --git a/lisp/liece.el b/lisp/liece.el
index 65fedf8..c0e743c 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
@@ -864,7 +864,7 @@ If such a buffer is found, shrink it."
              (delete-region (point-min)
                             (progn
                               (goto-char (- (buffer-size)
-                                            liece-buffer-default-size))
+                                            liece-buffer-min-size))
                               (beginning-of-line -1)
                               (point)))
              (garbage-collect)
@@ -875,8 +875,8 @@ If such a buffer is found, shrink it."
 Only used from `liece-before-insert-functions'."
   (and (> liece-buffer-check-interval 0)
        (or (null liece-buffer-last-check-time)
-          (> (liece-time-difference liece-buffer-last-check-time
-                                    (current-time))
+          (> (liece-time-difference (current-time)
+                                    liece-buffer-last-check-time)
              liece-buffer-check-interval))
        (liece-check-buffers)))