mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-19 01:10:57 -08:00
Code Issues Projects Releases Wiki Activity

(coding-system-list): Be sure to exclude

Browse source 
subsidiary coding systems.
This commit is contained in:
Kenichi Handa 2006-10-17 11:45:46 +00:00
parent d504c23f4c
commit 4f06ffe15b
1 changed files with 7 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/international/mule.el
View file

@ -910,20 +910,13 @@ If optional arg BASE-ONLY is non-nil, only base coding systems are
listed. The value doesn't include subsidiary coding systems which are
made from bases and aliases automatically for various end-of-line
formats (e.g. iso-latin-1-unix, koi8-r-dos)."
(let* ((codings (copy-sequence coding-system-list))
(tail (cons nil codings)))
;; Remove subsidiary coding systems (eol variants) and alias
;; coding systems (if necessary).
(while (cdr tail)
(let* ((coding (car (cdr tail)))
(aliases (coding-system-aliases coding)))
(if (or
;; CODING is an eol variant if not in ALIASES.
(not (memq coding aliases))
;; CODING is an alias if it is not car of ALIASES.
(and base-only (not (eq coding (car aliases)))))
(setcdr tail (cdr (cdr tail)))
(setq tail (cdr tail)))))
(let ((codings nil))
(dolist (coding coding-system-list)
(if (eq (coding-system-base coding) coding)
(if base-only
(setq codings (cons coding codings))
(dolist (alias (coding-system-aliases coding))
(setq codings (cons alias codings))))))
codings))
(defconst char-coding-system-table nil