(defun standard-display-underline (c uc)
"Display character C as character UC plus underlining."
(aset standard-display-table c
- (vector
+ (vector
(if window-system
(logior uc (lsh (face-id 'underline) 19))
(create-glyph (concat "\e[4m" (char-to-string uc) "\e[m"))))))
(equal (aref standard-display-table 161) [161])))
(progn
(standard-display-default 160 255)
- (unless (or (memq window-system '(x w32))
- (interactive-p))
+ (unless (or (memq window-system '(x w32)))
(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 (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
+ ;; Turn off multibyte chars for more compatibility.
+ (setq-default enable-multibyte-characters nil)
+
+ ;; Switch to Latin-1 language environment
;; unless some other has been specified.
- (unless (interactive-p)
- (if (equal current-language-environment "English")
- (set-language-environment "latin-1")))
- (unless (or noninteractive (memq window-system '(x w32))
- (interactive-p))
+ (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 character-based terminal.
;; If we are using single-byte characters,
;; it doesn't matter which coding system we use.
(provide 'disp-table)
+;;; arch-tag: ffe4c28c-960c-47aa-b8a8-ae89d371ffc7
;;; disp-table.el ends here