491 |
:notify (lambda (&rest ignore) |
:notify (lambda (&rest ignore) |
492 |
(list-charset-chars ',charset) |
(list-charset-chars ',charset) |
493 |
(with-selected-window |
(with-selected-window |
494 |
(get-buffer-window "*Character List*") |
(get-buffer-window "*Character List*" 0) |
495 |
(goto-char (point-min)) |
(goto-char (point-min)) |
496 |
(search-forward ,(char-to-string char) |
(forward-line 2) ;Skip the header. |
497 |
nil t))) |
(let ((case-fold-search nil)) |
498 |
|
(search-forward ,(char-to-string char) |
499 |
|
nil t)))) |
500 |
,(if (= (charset-dimension charset) 1) |
,(if (= (charset-dimension charset) 1) |
501 |
(format "%d" (nth 1 split)) |
(format "%d" (nth 1 split)) |
502 |
(format "%d %d" (nth 1 split) (nth 2 split)))))) |
(format "%d %d" (nth 1 split) (nth 2 split)))))) |