equal
deleted
inserted
replaced
269 |
269 |
270 (setq view-read-only t) |
270 (setq view-read-only t) |
271 |
271 |
272 (setq read-quoted-char-radix 16) |
272 (setq read-quoted-char-radix 16) |
273 |
273 |
274 (when (>= emacs-major-version 22) |
274 (when (and (>= emacs-major-version 22) (not (eq system-type 'darwin))) |
275 (setq standard-display-table (make-display-table)) |
275 (setq standard-display-table (make-display-table)) |
276 (let ( (i ?\x80) hex hi low ) |
276 (let ( (i ?\x80) hex hi low ) |
277 (while (<= i ?\xff) |
277 (while (<= i ?\xff) |
278 (setq hex (format "%x" i)) |
278 (setq hex (format "%x" i)) |
279 (setq hi (elt hex 0)) |
279 (setq hi (elt hex 0)) |
527 ((equal window-system 'x) |
527 ((equal window-system 'x) |
528 (prefer-coding-system 'utf-8-unix) |
528 (prefer-coding-system 'utf-8-unix) |
529 (setq selection-coding-system 'compound-text-with-extensions) |
529 (setq selection-coding-system 'compound-text-with-extensions) |
530 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
530 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
531 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
531 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
|
532 ) |
|
533 ((eq system-type 'darwin) |
|
534 nil |
532 ) |
535 ) |
533 (t |
536 (t |
534 (prefer-coding-system 'cp1251-dos) |
537 (prefer-coding-system 'cp1251-dos) |
535 (prefer-coding-system 'utf-8-unix) |
538 (prefer-coding-system 'utf-8-unix) |
536 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
539 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |