- ;; If the user does this explicitly from Lisp (as in .emacs),
- ;; turn off multibyte chars for more compatibility.
- (unless (interactive-p)
- (setq-default enable-multibyte-characters nil)
- (mapcar (lambda (buffer)
- (with-current-buffer buffer
- (if enable-multibyte-characters
- (set-buffer-multibyte nil))))
- (buffer-list)))
- ;; If the user does this explicitly,
- ;; switch to Latin-1 language environment
+
+ (display-warning 'i18n
+ "`standard-display-european' is semi-obsolete; see its doc string for details"
+ :warning)
+
+ ;; Switch to Latin-1 language environment