comparison lisp/international/mule-cmds.el @ 56040:13758b690c5c

(set-language-environment): Load subst tables if necessary.

56039:7dc1250b3b2f

	  (set-overriding-fontspec-internal overriding-fontspec))))

  (let ((func (get-language-info language-name 'setup-function)))
    (if (functionp func)
	(funcall func)))
  (run-hooks 'set-language-environment-hook)
  (force-mode-line-update t))

(defun standard-display-european-internal ()
  ;; Actually set up direct output of non-ASCII characters.

56040:13758b690c5c

	  (set-overriding-fontspec-internal overriding-fontspec))))

  (let ((func (get-language-info language-name 'setup-function)))
    (if (functionp func)
	(funcall func)))
  (if (and utf-translate-cjk-mode
	   utf-translate-cjk-lang-env
	   (not (eq utf-translate-cjk-lang-env language-name))
	   (catch 'tag
	     (dolist (charset (get-language-info language-name 'charset))
	       (if (memq charset utf-translate-cjk-charsets)
		   (throw 'tag t)))
	     nil))
      (utf-translate-cjk-load-tables))
  (run-hooks 'set-language-environment-hook)
  (force-mode-line-update t))

(defun standard-display-european-internal ()
  ;; Actually set up direct output of non-ASCII characters.