comparison lisp/international/mule-diag.el @ 47605:22df356e38df

(list-character-sets): List also indirectly supported character sets. (non-iso-charset-alist): Add mapped charset list for `mac-roman'. (sort-listed-character-sets): Don't alter the region showing indirectly supported charsets.

47604:4d979a2a3934

  (with-output-to-temp-buffer "*Character Set List*"
    (with-current-buffer standard-output
      (if arg
	  (list-character-sets-2)
	;; Insert header.
	(insert
	 (substitute-command-keys
	  (concat "Use "
		  (if (display-mouse-p) "\\[help-follow-mouse] or ")
		  "\\[help-follow]:\n")))

	    (setq columns (cdr columns)))
	  (insert "\n"))
	(insert "------\t------------\t\t\t--------------\t- -- ----------\n")

	;; Insert body sorted by charset IDs.
	(list-character-sets-1 'id)))))

(defun sort-listed-character-sets (sort-key)
  (if sort-key
      (save-excursion
	(help-setup-xref (list #'list-character-sets nil) t)
	(let ((buffer-read-only nil))
	  (goto-char (point-min))
	  (re-search-forward "[0-9][0-9][0-9]")
	  (beginning-of-line)
	  (delete-region (point) (point-max))
	  (list-character-sets-1 sort-key)))))

(defun charset-multibyte-form-string (charset)
  (let ((info (charset-info charset)))
    (cond ((eq charset 'ascii)
	   "xx")

		     (charset-iso-graphic-plane charset)
		     (charset-description charset))))))

(defvar non-iso-charset-alist
  `((mac-roman
     nil
     mac-roman-decoder
     ((0 255)))
    (viscii
     (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
     viet-viscii-nonascii-translation-table

47605:22df356e38df

  (with-output-to-temp-buffer "*Character Set List*"
    (with-current-buffer standard-output
      (if arg
	  (list-character-sets-2)
	;; Insert header.
	(insert "Indirectly supported character sets are shown below.\n")
	(insert
	 (substitute-command-keys
	  (concat "Use "
		  (if (display-mouse-p) "\\[help-follow-mouse] or ")
		  "\\[help-follow]:\n")))

	    (setq columns (cdr columns)))
	  (insert "\n"))
	(insert "------\t------------\t\t\t--------------\t- -- ----------\n")

	;; Insert body sorted by charset IDs.
	(list-character-sets-1 'id)

	;; Insert non-directly-supported charsets.
	(insert-char ?- 72)
	(insert "\n\nINDIRECTLY SUPPORTED CHARSETS SETS:\n\n"
		(propertize "CHARSET NAME\tMAPPED TO" 'face 'bold)
		"\n------------\t---------\n")
	(dolist (elt non-iso-charset-alist)
	  (insert-text-button (symbol-name (car elt))
			      :type 'list-charset-chars
			      'help-args (list (car elt)))
	  (indent-to 16)
	  (dolist (e (nth 1 elt))
	    (when (>= (+ (current-column) 1 (string-width (symbol-name e)))
		      ;; This is an approximate value.  We don't know
		      ;; the correct window width of this buffer yet.
		      78)
	      (insert "\n")
	      (indent-to 16))

	    (insert (format "%s " e)))
	  (insert "\n"))))))

(defun sort-listed-character-sets (sort-key)
  (if sort-key
      (save-excursion
	(help-setup-xref (list #'list-character-sets nil) t)
	(let ((buffer-read-only nil))
	  (goto-char (point-min))
	  (re-search-forward "[0-9][0-9][0-9]")
	  (beginning-of-line)
	  (let ((pos (point)))
	    (search-forward "----------")
	    (beginning-of-line)
	    (save-restriction
	      (narrow-to-region pos (point))
	      (delete-region (point-min) (point-max))
	      (list-character-sets-1 sort-key)))))))

(defun charset-multibyte-form-string (charset)
  (let ((info (charset-info charset)))
    (cond ((eq charset 'ascii)
	   "xx")

		     (charset-iso-graphic-plane charset)
		     (charset-description charset))))))

(defvar non-iso-charset-alist
  `((mac-roman
     (ascii latin-iso8859-1 mule-unicode-2500-33ff
	    mule-unicode-0100-24ff mule-unicode-e000-ffff)
     mac-roman-decoder
     ((0 255)))
    (viscii
     (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
     viet-viscii-nonascii-translation-table