comparison lisp/disp-table.el @ 24116:cff6faa1cf82

(standard-display-european): Make all existing buffers unibyte. Fix doc.

24115:10955ef4bdfb

;;; disp-table.el --- functions for dealing with char tables.

;; Copyright (C) 1987, 1994, 1995 Free Software Foundation, Inc.

;; Author: Erik Naggum <[e-mail]>
;; Based on a previous version by Howard Gayle
;; Maintainer: FSF
;; Keywords: i18n

  (1- (length glyph-table)))

;;;###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.

When enabled, characters in the range of 160 to 255 display not
as octal escapes, but as accented characters.  Codes 146 and 160
display as apostrophe and space, even though they are not the ASCII
codes for apostrophe and space.

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."

  ;; If the optional argument AUTO is non-nil, this function
  ;; does not alter `enable-multibyte-characters'.
  ;; AUTO also specifies, in this case, the coding system for terminal output.
  ;; The AUTO argument is meant for use by startup.el only.

	  (set-terminal-coding-system nil)))
    ;; If the user does this explicitly,
    ;; 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))))
    ;; If the user does this explicitly,
    ;; switch to Latin-1 language environment
    ;; unless some other has been specified.
    (unless auto
      (if (equal current-language-environment "English")

24116:cff6faa1cf82

;;; disp-table.el --- functions for dealing with char tables.

;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc.

;; Author: Erik Naggum <[e-mail]>
;; Based on a previous version by Howard Gayle
;; Maintainer: FSF
;; Keywords: i18n

  (1- (length glyph-table)))

;;;###autoload
(defun standard-display-european (arg &optional auto)
  "Toggle display of European characters encoded with ISO 8859.

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
display as apostrophe and space, even though they are not the ASCII
codes for apostrophe and space.

With prefix argument, enable European character display iff arg is positive.

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'.
  ;; AUTO also specifies, in this case, the coding system for terminal output.
  ;; The AUTO argument is meant for use by startup.el only.

	  (set-terminal-coding-system nil)))
    ;; If the user does this explicitly,
    ;; turn off multibyte chars for more compatibility.
    (unless auto
      (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
    ;; unless some other has been specified.
    (unless auto
      (if (equal current-language-environment "English")