From 7f7516472b85d74187eb40859a0b007af0d55d28 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 9 Jul 2016 03:33:34 +0900 Subject: [PATCH] (insert-char-attributes): Delete codes for `hanyu-dazidian-vol', `hanyu-dazidian-page' and `hanyu-dazidian-char'. --- lisp/utf-2000/char-db-util.el | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 429acff..1633952 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -1287,24 +1287,24 @@ line-breaking)) (setq attributes (delq '->mojikyo attributes)) ) - (when (and (memq 'hanyu-dazidian-vol attributes) - (setq value (get-char-attribute char 'hanyu-dazidian-vol))) - (insert (format "(hanyu-dazidian-vol . %d)%s" - value line-breaking)) - (setq attributes (delq 'hanyu-dazidian-vol attributes)) - ) - (when (and (memq 'hanyu-dazidian-page attributes) - (setq value (get-char-attribute char 'hanyu-dazidian-page))) - (insert (format "(hanyu-dazidian-page . %d)%s" - value line-breaking)) - (setq attributes (delq 'hanyu-dazidian-page attributes)) - ) - (when (and (memq 'hanyu-dazidian-char attributes) - (setq value (get-char-attribute char 'hanyu-dazidian-char))) - (insert (format "(hanyu-dazidian-char . %d)%s" - value line-breaking)) - (setq attributes (delq 'hanyu-dazidian-char attributes)) - ) + ;; (when (and (memq 'hanyu-dazidian-vol attributes) + ;; (setq value (get-char-attribute char 'hanyu-dazidian-vol))) + ;; (insert (format "(hanyu-dazidian-vol . %d)%s" + ;; value line-breaking)) + ;; (setq attributes (delq 'hanyu-dazidian-vol attributes)) + ;; ) + ;; (when (and (memq 'hanyu-dazidian-page attributes) + ;; (setq value (get-char-attribute char 'hanyu-dazidian-page))) + ;; (insert (format "(hanyu-dazidian-page . %d)%s" + ;; value line-breaking)) + ;; (setq attributes (delq 'hanyu-dazidian-page attributes)) + ;; ) + ;; (when (and (memq 'hanyu-dazidian-char attributes) + ;; (setq value (get-char-attribute char 'hanyu-dazidian-char))) + ;; (insert (format "(hanyu-dazidian-char . %d)%s" + ;; value line-breaking)) + ;; (setq attributes (delq 'hanyu-dazidian-char attributes)) + ;; ) (unless readable (dolist (ignored '(composition ->denotational <-subsumptive ->ucs-unified -- 1.7.10.4