comparison lisp/international/mule-cmds.el @ 36836:99b5339c07ae

(select-safe-coding-system): Fix typo: symbol-name -> symbol-value.

36835:7276cd2a0117

  ;; If the most preferred coding system has the property mime-charset,
  ;; append it to the defaults.
  (let ((tail coding-category-list)
	preferred base)
    (while (and tail
		(not (setq preferred (symbol-name (car tail)))))
      (setq tail (cdr tail)))
    (and (coding-system-p preferred)
	 (setq base (coding-system-base preferred))
	 (coding-system-get preferred 'mime-charset)
	 (not (assq preferred default-coding-system))

36836:99b5339c07ae

  ;; If the most preferred coding system has the property mime-charset,
  ;; append it to the defaults.
  (let ((tail coding-category-list)
	preferred base)
    (while (and tail
		(not (setq preferred (symbol-value (car tail)))))
      (setq tail (cdr tail)))
    (and (coding-system-p preferred)
	 (setq base (coding-system-base preferred))
	 (coding-system-get preferred 'mime-charset)
	 (not (assq preferred default-coding-system))