Function: select-safe-coding-system--format-list

select-safe-coding-system--format-list is a byte-compiled function defined in mule-cmds.el.gz.

Signature

(select-safe-coding-system--format-list LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule-cmds.el.gz
(defun select-safe-coding-system--format-list (list)
  (let ((spec1 "  %-20s %6s  %-10s %s\n")
        (spec2 "  %-20s %6s  #x%-8X %c\n")
        (nmax 5))
    (insert (format spec1 "Coding System" "Pos" "Codepoint" "Char"))
    (cl-loop for (coding . pairs) in list
             do (cl-loop for pair in pairs
                         ;; If there's a lot, only do the first five.
                         for i from 1 upto nmax
                         do (insert
                             (format spec2
                                     (if (= i 1) coding "")
                                     (car pair)
                                     (cdr pair)
                                     (cdr pair))))
             (if (> (length pairs) nmax)
                 (insert (format spec1 "" "..." "" "")))))

  (insert "\n"))