[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 29ea080: Make quail conversion output quieter
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 29ea080: Make quail conversion output quieter |
Date: |
Tue, 18 Jun 2019 06:42:16 -0400 (EDT) |
branch: master
commit 29ea0803d7fa927a537ce8437944998bf2e0807e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make quail conversion output quieter
* lisp/international/quail.el (quail-update-leim-list-file): Ditto.
* lisp/international/titdic-cnv.el (tit-process-header)
(tit-process-body, miscdic-convert, batch-titdic-convert): Reduce
messaging.
---
lisp/international/quail.el | 1 -
lisp/international/titdic-cnv.el | 8 +-------
2 files changed, 1 insertion(+), 8 deletions(-)
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index a29e3fb..f42b594 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -3060,7 +3060,6 @@ of each directory."
(when dirname
(setq pkg-list (directory-files dirname 'full "\\.el$"))
(while pkg-list
- (message "Checking %s ..." (car pkg-list))
(with-temp-buffer
(insert-file-contents (car pkg-list))
(goto-char (point-min))
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index e6065fb..8615d95 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -251,7 +251,6 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲,
4:去聲,
;; Analyze header part of TIT dictionary and generate an appropriate
;; `quail-define-package' function call.
(defun tit-process-header (filename)
- (message "Processing header part...")
(goto-char (point-min))
;; At first, generate header part of the Quail package while
@@ -416,7 +415,6 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲,
4:去聲,
;; Convert body part of TIT dictionary into `quail-define-rules'
;; function call.
(defun tit-process-body ()
- (message "Formatting translation rules...")
(let* ((prev-key "")
ch key translations pos)
(princ "(quail-define-rules\n")
@@ -494,7 +492,6 @@ the generated Quail package is saved."
(if (not slot)
(error "Invalid ENCODE: value in TIT dictionary"))
(setq coding-system (nth 1 slot))
- (message "Decoding with coding system %s..." coding-system)
(goto-char (point-min))
(decode-coding-region (point-min) (point-max) coding-system)
;; Explicitly set eol format to `unix'.
@@ -556,7 +553,6 @@ To get complete usage, invoke \"emacs -batch -f
batch-titdic-convert -h\"."
(when (or force
(file-newer-than-file-p
file (tit-make-quail-package-file-name file targetdir)))
- (message "Converting %s to quail-package..." file)
(titdic-convert file targetdir))
(setq files (cdr files)))
(setq command-line-args-left (cdr command-line-args-left)))))
@@ -1141,7 +1137,6 @@ the generated Quail package is saved."
coding (nth 3 slot)
converter (nth 5 slot)
copyright (nth 6 slot))
- (message "Converting %s to %s..." dicfile quailfile)
;; Explicitly set eol format to `unix'.
(setq coding-system-for-write 'utf-8-unix)
(with-temp-file (expand-file-name quailfile dirname)
@@ -1173,8 +1168,7 @@ the generated Quail package is saved."
";; version-control: never\n"
";; no-update-autoloads: t\n"
";; End:\n\n"
- ";;; " quailfile " ends here\n"))
- (message "Converting %s to %s...done" dicfile quailfile))
+ ";;; " quailfile " ends here\n")))
(setq tail (cdr tail)))))
(defun batch-miscdic-convert ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 29ea080: Make quail conversion output quieter,
Lars Ingebrigtsen <=