Mercurial > emacs
changeset 24116:cff6faa1cf82
(standard-display-european): Make all existing
buffers unibyte. Fix doc.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 Jan 1999 03:00:26 +0000 |
| parents | 10955ef4bdfb |
| children | 9430507fe106 |
| files | lisp/disp-table.el |
| diffstat | 1 files changed, 15 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/disp-table.el Tue Jan 19 03:00:09 1999 +0000 +++ b/lisp/disp-table.el Tue Jan 19 03:00:26 1999 +0000 @@ -1,6 +1,6 @@ ;;; disp-table.el --- functions for dealing with char tables. -;; Copyright (C) 1987, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc. ;; Author: Erik Naggum <erik@naggum.no> ;; Based on a previous version by Howard Gayle @@ -178,9 +178,11 @@ ;;;###autoload (defun standard-display-european (arg &optional auto) "Toggle display of European characters encoded with ISO 8859. -This function is semi-obsolete; it is better to use -`set-language-environment' and `set-terminal-coding-system', -coupled with the `--unibyte' option if you prefer to use unibyte characters. + +This function is semi-obsolete; you can use `set-language-environment' +coupled with either the `--unibyte' option, the EMACS_UNIBYTE +environment variable or customizing `enable-multibyte-characters' if +you prefer to use unibyte characters. When enabled, characters in the range of 160 to 255 display not as octal escapes, but as accented characters. Codes 146 and 160 @@ -189,10 +191,10 @@ With prefix argument, enable European character display iff arg is positive. -Normally, this function turns off `enable-multibyte-characters' -for subsequently created Emacs buffers, and for `*scratch*. -This is because users who call this function -probably want to edit European characters in single-byte mode." +Normally, this function turns off `enable-multibyte-characters' for +existing and subsequently created Emacs buffers. This is because +users who call this function probably want to edit European characters +in single-byte mode." ;; If the optional argument AUTO is non-nil, this function ;; does not alter `enable-multibyte-characters'. @@ -213,9 +215,11 @@ ;; turn off multibyte chars for more compatibility. (unless auto (setq-default enable-multibyte-characters nil) - (if (get-buffer "*scratch*") - (with-current-buffer "*scratch*" - (set-buffer-multibyte 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 ;; unless some other has been specified.