Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 36836:99b5339c07ae
(select-safe-coding-system): Fix typo: symbol-name -> symbol-value.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Mar 2001 11:01:53 +0000 |
parents | 326d93c83808 |
children | 247618d8fd9d |
comparison
equal
deleted
inserted
replaced
36835:7276cd2a0117 | 36836:99b5339c07ae |
---|---|
587 ;; If the most preferred coding system has the property mime-charset, | 587 ;; If the most preferred coding system has the property mime-charset, |
588 ;; append it to the defaults. | 588 ;; append it to the defaults. |
589 (let ((tail coding-category-list) | 589 (let ((tail coding-category-list) |
590 preferred base) | 590 preferred base) |
591 (while (and tail | 591 (while (and tail |
592 (not (setq preferred (symbol-name (car tail))))) | 592 (not (setq preferred (symbol-value (car tail))))) |
593 (setq tail (cdr tail))) | 593 (setq tail (cdr tail))) |
594 (and (coding-system-p preferred) | 594 (and (coding-system-p preferred) |
595 (setq base (coding-system-base preferred)) | 595 (setq base (coding-system-base preferred)) |
596 (coding-system-get preferred 'mime-charset) | 596 (coding-system-get preferred 'mime-charset) |
597 (not (assq preferred default-coding-system)) | 597 (not (assq preferred default-coding-system)) |