procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve readability of list-input-methods

Browse source 
* lisp/international/mule-diag.el: Make screen more readable by
improving the formatting.
This commit is contained in:
Stefan Kangas 2022-08-09 17:47:50 +02:00
parent 171b9314bf
commit f9ee2db493
1 changed files with 27 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
lisp/international/mule-diag.el
View file

@ -1065,35 +1065,36 @@ see the function `describe-fontset' for the format of the list."
(help-xref-button 1 'help-input-method (match-string 1))))))))
(defun list-input-methods-1 ()
(if (not input-method-alist)
(princ "
(with-current-buffer standard-output
(if (not input-method-alist)
(insert "
No input method is available, perhaps because you have not
installed LEIM (Libraries of Emacs Input Methods).")
(princ (substitute-command-keys
"LANGUAGE\n NAME (`TITLE' in mode line)\n"))
(princ " SHORT-DESCRIPTION\n------------------------------\n")
(setq input-method-alist
(sort input-method-alist
(lambda (x y) (string< (nth 1 x) (nth 1 y)))))
(insert (substitute-command-keys
"LANGUAGE\n NAME (`TITLE' in mode line)\n"))
(insert " SHORT-DESCRIPTION\n------------------------------\n")
(setq input-method-alist
(sort input-method-alist
(lambda (x y) (string< (nth 1 x) (nth 1 y)))))
(let (language)
(dolist (elt input-method-alist)
(when (not (equal language (nth 1 elt)))
(setq language (nth 1 elt))
(insert "\n" (propertize language 'face 'help-for-help-header) "\n\n"))
(insert (format-message
" %s (`%s' in mode line)\n %s\n"
(car elt)
(let ((title (nth 3 elt)))
(if (and (consp title) (stringp (car title)))
(car title)
title))
;; If the doc is multi-line, indent all
;; non-blank lines. (Bug#8066)
(replace-regexp-in-string
"\n\\(.\\)" "\n \\1"
(substitute-command-keys (or (nth 4 elt) ""))))))))))
(let (language)
(dolist (elt input-method-alist)
(when (not (equal language (nth 1 elt)))
(setq language (nth 1 elt))
(princ language)
(terpri))
(princ (format-message
" %s (`%s' in mode line)\n %s\n"
(car elt)
(let ((title (nth 3 elt)))
(if (and (consp title) (stringp (car title)))
(car title)
title))
;; If the doc is multi-line, indent all
;; non-blank lines. (Bug#8066)
(replace-regexp-in-string
"\n\\(.\\)" "\n \\1"
(substitute-command-keys (or (nth 4 elt) "")))))))))
;;; DIAGNOSIS