emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/pyim 9142f52: pyim-dcache-write-file add silent argumen


From: ELPA Syncer
Subject: [elpa] externals/pyim 9142f52: pyim-dcache-write-file add silent argument.
Date: Mon, 15 Nov 2021 03:57:22 -0500 (EST)

branch: externals/pyim
commit 9142f527de1262ff47ce798e7738b5053218ec11
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    pyim-dcache-write-file add silent argument.
    
        * pyim-dcache.el (pyim-dcache-save-value-to-file): use silent arg of 
pyim-dcache-write-file.
        (pyim-dcache-write-file): Add silent arg.
---
 pyim-dcache.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/pyim-dcache.el b/pyim-dcache.el
index 261d2a3..89cece9 100644
--- a/pyim-dcache.el
+++ b/pyim-dcache.el
@@ -124,7 +124,7 @@ VARIABLE 变量,FORCE-RESTORE 设置为 t 时,强制恢复,变量原来的
       (insert ";; End:")
       (make-directory (file-name-directory file) t)
       (let ((save-silently t))
-        (pyim-dcache-write-file file)))))
+        (pyim-dcache-write-file file nil t)))))
 
 (defun pyim-dcache-get-value-from-file (file)
   "读取保存到 FILE 里面的 value."
@@ -142,7 +142,7 @@ VARIABLE 变量,FORCE-RESTORE 设置为 t 时,强制恢复,变量原来的
         output))))
 
 ;; ** Dcache 文件处理功能
-(defun pyim-dcache-write-file (filename &optional confirm)
+(defun pyim-dcache-write-file (filename &optional confirm silent)
   "A helper function to write dcache files."
   (let ((coding-system-for-write 'utf-8-unix))
     (when (and confirm
@@ -155,7 +155,8 @@ VARIABLE 变量,FORCE-RESTORE 设置为 t 时,强制恢复,变量原来的
                               "File `%s' exists; overwrite? " filename))
                    (user-error "Canceled"))))
     (write-region (point-min) (point-max) filename nil :silent)
-    (message "Saving file %s..." filename)))
+    (unless silent
+      (message "Saving file %s..." filename))))
 
 (defun pyim-dcache-save-caches ()
   "保存 dcache.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]