/[emacs]/emacs/lisp/disp-table.el
ViewVC logotype

Diff of /emacs/lisp/disp-table.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.48 by monnier, Sun Dec 2 07:51:49 2001 UTC
# Line 206  for users who call this function in `.em Line 206  for users who call this function in `.em
206                 (equal (aref standard-display-table 161) [161])))                 (equal (aref standard-display-table 161) [161])))
207        (progn        (progn
208          (standard-display-default 160 255)          (standard-display-default 160 255)
209          (unless (or (memq window-system '(x w32))          (unless (or (memq window-system '(x w32)))
                     (interactive-p))  
210            (and (terminal-coding-system)            (and (terminal-coding-system)
211                 (set-terminal-coding-system nil))))                 (set-terminal-coding-system nil))))
212      ;; If the user does this explicitly from Lisp (as in .emacs),      ;; Turn off multibyte chars for more compatibility.
213      ;; turn off multibyte chars for more compatibility.      (setq-default enable-multibyte-characters nil)
214      (unless (interactive-p)  
215        (setq-default enable-multibyte-characters nil)      ;; Switch to Latin-1 language environment
       (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  
216      ;; unless some other has been specified.      ;; unless some other has been specified.
217      (unless (interactive-p)      (if (equal current-language-environment "English")
218        (if (equal current-language-environment "English")          (set-language-environment "latin-1"))
219            (set-language-environment "latin-1")))      (unless (or noninteractive (memq window-system '(x w32)))
     (unless (or noninteractive (memq window-system '(x w32))  
                 (interactive-p))  
220        ;; Send those codes literally to a character-based terminal.        ;; Send those codes literally to a character-based terminal.
221        ;; If we are using single-byte characters,        ;; If we are using single-byte characters,
222        ;; it doesn't matter which coding system we use.        ;; it doesn't matter which coding system we use.

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26