From: Dave Love Date: Fri, 13 Sep 2002 23:32:26 +0000 (+0000) Subject: (find-coding-systems-for-charsets): Check charset type before X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~339 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b581dd8ccad3f4986e1eb1280d93ac1365c36c70;p=emacs.git (find-coding-systems-for-charsets): Check charset type before getting :charset-list. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3cada00ad6e..bc0a9f9be76 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,19 @@ +2002-09-14 Dave Love + + * international/mule-cmds.el (charset): Move. + (language-info-custom-alist): Move. Alter :set. + (find-coding-systems-for-charsets): Check charset type before + getting :charset-list. + + * language/ind-util.el (iscii-to-ucs-region): Fix typo. + 2002-09-12 Kenichi Handa * international/mule-conf.el (emacs-mule, iso-2022-7bit) (iso-2022-7bit-ss2, iso-2022-7bit-lock, iso-2022-8bit-ss2) (compound-text, ctext-no-compositions): Cancel provious change. -2002-09-09 Dave Love +2002-09-09 Dave Love * wid-edit.el (widget-string-complete): New. (widget-coding-system-prompt-value-history): Deleted. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 5933e385e35..bd6ccf00b34 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -457,7 +457,9 @@ Emacs, but is unlikely to be what you really want now." (t (let (codings) (dolist (cs (coding-system-list t)) - (let ((cs-charsets (coding-system-get cs :charset-list)) + (let ((cs-charsets (and (eq 'charset + (coding-system-get cs :coding-type)) + (coding-system-get cs :charset-list))) (charsets charsets)) (if (coding-system-get cs :ascii-compatible-p) (add-to-list 'cs-charsets 'ascii))