comparison lisp/descr-text.el @ 97984:672009e514b4

(describe-char): Fix handling of automatic composition.

97983:b5a42c692791

			(mapconcat 'describe-char-padded-string
				   (cadr composition) "")
			"\"")))
	  (if (and (vectorp (nth 2 composition))
		   (vectorp (aref (nth 2 composition) 0)))
	      (let ((font (aref (aref (nth 2 composition) 0) 0)))
		(insert " using this font:\n  "
			(symbol-name (font-get font :type))
			?:
			(aref (query-font font) 0)
			"\nby these glyphs:\n")
		(mapc (lambda (x) (insert (format "  %S\n" x)))
		      (nth 2 composition)))
	    (insert " by the rule:\n\t(")
	    (let ((first t))
	      (mapc (lambda (x)
		      (if first (setq first nil)
			(insert " "))

97984:672009e514b4

			(mapconcat 'describe-char-padded-string
				   (cadr composition) "")
			"\"")))
	  (if (and (vectorp (nth 2 composition))
		   (vectorp (aref (nth 2 composition) 0)))
	      (let* ((gstring (nth 2 composition))
		     (font (lgstring-font gstring))
		     (nglyphs (lgstring-glyph-len gstring))
		     (i 0)
		     glyph)
		(insert " using this font:\n  "
			(symbol-name (font-get font :type))
			?:
			(aref (query-font font) 0)
			"\nby these glyphs:\n")
		(while (and (< i nglyphs)
			    (setq glyph (lgstring-glyph gstring i)))
		  (insert (format "  %S\n" glyph))
		  (setq i (1+ i))))
	    (insert " by the rule:\n\t(")
	    (let ((first t))
	      (mapc (lambda (x)
		      (if first (setq first nil)
			(insert " "))