comparison lisp/disp-table.el @ 24813:f581efbf0caf

(standard-display-european): For an interactive call by the user, don't set enable-multibyte-characters, and don't set the terminal coding system.

24812:4bdc30f27628

  (setq glyph-table (vconcat glyph-table (list string)))
  (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.
  ;; which is why it is not in the doc string.
  (interactive "P")
  (if (or (<= (prefix-numeric-value arg) 0)
	  (and (null arg)
	       (char-table-p standard-display-table)
	       ;; Test 161, because 160 displays as a space.
	       (equal (aref standard-display-table 161) [161])))
      (progn
	(standard-display-default 160 255)
	(unless (memq window-system '(x w32))
	  (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

    ;; switch to Latin-1 language environment
    ;; unless some other has been specified.
    (unless auto
      (if (equal current-language-environment "English")
	  (set-language-environment "latin-1")))
    (unless (or noninteractive (memq window-system '(x w32)))
      ;; Send those codes literally to a non-X terminal.
      ;; If AUTO is nil, we are using single-byte characters,
      ;; so it doesn't matter which one we use.
      (set-terminal-coding-system
       (cond ((not (equal current-language-environment "English"))

24813:f581efbf0caf

  (setq glyph-table (vconcat glyph-table (list string)))
  (1- (length glyph-table)))

;;;###autoload
(defun standard-display-european (arg &optional auto)
  "Semi-obsolete way to toggle display of ISO 8859 European characters.

This function is semi-obsolete; if you want to do your editing with
unibyte characters, it is better to `set-language-environment' coupled
with either the `--unibyte' option or the EMACS_UNIBYTE environment
variable, or else customize `enable-multibyte-characters'.

With prefix argument, this command enables European character display
if arg is positive, disables it otherwise.  Otherwise, it toggles
European character display.

When this mode is 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.

Enabling European character display with this command noninteractively
from Lisp code also selects Latin-1 as the language environment, and
selects unibyte mode for all Emacs buffers \(both existing buffers and
those created subsequently).  This provides increased compatibility
for users who call this function in `.emacs'."

  ;; 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.
  ;; which is why it is not in the doc string.

  ;; AUTO is `lambda' for an interactive call so that it will not
  ;; set enable-multibyte-characters but also will not call
  ;; set-terminal-coding-system.
  (interactive (list current-prefix-arg 'lambda))
  (if (or (<= (prefix-numeric-value arg) 0)
	  (and (null arg)
	       (char-table-p standard-display-table)
	       ;; Test 161, because 160 displays as a space.
	       (equal (aref standard-display-table 161) [161])))
      (progn
	(standard-display-default 160 255)
	(unless (or (memq window-system '(x w32))
		    (eq auto 'lambda))
	  (and (terminal-coding-system)
	       (set-terminal-coding-system nil))))
    ;; If the user does this explicitly from Lisp (as in .emacs),
    ;; turn off multibyte chars for more compatibility.
    (unless auto
      (setq-default enable-multibyte-characters nil)
      (mapcar (lambda (buffer)
		(with-current-buffer buffer

    ;; switch to Latin-1 language environment
    ;; unless some other has been specified.
    (unless auto
      (if (equal current-language-environment "English")
	  (set-language-environment "latin-1")))
    (unless (or noninteractive (memq window-system '(x w32))
		(eq auto 'lambda))
      ;; Send those codes literally to a non-X terminal.
      ;; If AUTO is nil, we are using single-byte characters,
      ;; so it doesn't matter which one we use.
      (set-terminal-coding-system
       (cond ((not (equal current-language-environment "English"))