comparison lisp/international/mule-util.el @ 90058:48f163b71dbf

(char-displayable-p): Check :charset-list property of CODING.

90057:241d36dfc5ec

	 ;; On a window system, a character is displayable if we have
	 ;; a font for that character in the default face of the
	 ;; currently selected frame.
	 (car (internal-char-font nil char)))
	(t
	 (let ((coding (terminal-coding-system)))
	   (if coding
	       (let ((safe-chars (coding-system-get coding 'safe-chars))
		     (safe-charsets (coding-system-get coding 'safe-charsets)))
		 (or (and safe-chars
			  (aref safe-chars char))
		     (and safe-charsets
			  (memq (char-charset char) safe-charsets)))))))))

(provide 'mule-util)

;; Local Variables:
;; coding: iso-2022-7bit

90058:48f163b71dbf

	 ;; On a window system, a character is displayable if we have
	 ;; a font for that character in the default face of the
	 ;; currently selected frame.
	 (car (internal-char-font nil char)))
	(t
	 (let ((coding 'iso-2022-7bit))
	   (if coding
	       (let ((cs-list (coding-system-get coding :charset-list)))
		 (cond
		  ((listp cs-list)
		   (catch 'tag
		     (mapc #'(lambda (charset) 
			       (if (encode-char char charset)
				   (throw 'tag charset)))
			   cs-list)
		     nil))
		  ((eq cs-list 'iso-2022)
		   (catch 'tag2
		     (mapc #'(lambda (charset)
			       (if (and (plist-get (charset-plist charset)
						   :iso-final-char)
					(encode-char char charset))
				   (throw 'tag2 charset)))
			   charset-list)
		     nil))
		  ((eq cs-list 'emacs-mule)
		   (catch 'tag3
		     (mapc #'(lambda (charset)
			       (if (and (plist-get (charset-plist charset) 
						   :emacs-mule-id)
					(encode-char char charset))
				   (throw 'tag3 charset)))
			   charset-list)
		     nil)))))))))

(provide 'mule-util)

;; Local Variables:
;; coding: iso-2022-7bit