(ids-find-chars-covered-by-components): Delete commented-out code.
authortomo <tomo>
Wed, 25 Dec 2002 13:35:24 +0000 (13:35 +0000)
committertomo <tomo>
Wed, 25 Dec 2002 13:35:24 +0000 (13:35 +0000)
ids-find.el

index 2af3021..df5c0a7 100644 (file)
       (map-char-attribute
        (lambda (c v)
         (when (ideographic-structure-repertoire-p v components)
-          (insert
-           (ids-find-format-line c v)
-            ;; (format "%c\t%s\t%s\n"
-            ;;         c
-            ;;         (or
-            ;;          (when (setq ucs (char-ucs c))
-            ;;            (or
-            ;;             (when (setq jis
-            ;;                         (encode-char
-            ;;                          (decode-char
-            ;;                           'ucs-jis (char-ucs c))
-            ;;                          'japanese-jisx0208-1990))
-            ;;               (format "J0-%04X" jis))))
-            ;;          "")
-            ;;         (or (ideographic-structure-to-ids v)
-            ;;             v))
-           )))
+          (insert (ids-find-format-line c v))))
        'ideographic-structure))
     (goto-char (point-min)))
   (view-buffer ids-find-result-buffer))