equal
deleted
inserted
replaced
274 |
274 |
275 (setq view-read-only t) |
275 (setq view-read-only t) |
276 |
276 |
277 (setq read-quoted-char-radix 16) |
277 (setq read-quoted-char-radix 16) |
278 |
278 |
279 (when (>= emacs-major-version 22) |
279 (when (and (>= emacs-major-version 22) (not (eq system-type 'darwin))) |
280 (setq standard-display-table (make-display-table)) |
280 (setq standard-display-table (make-display-table)) |
281 (let ( (i ?\x80) hex hi low ) |
281 (let ( (i ?\x80) hex hi low ) |
282 (while (<= i ?\xff) |
282 (while (<= i ?\xff) |
283 (setq hex (format "%x" i)) |
283 (setq hex (format "%x" i)) |
284 (setq hi (elt hex 0)) |
284 (setq hi (elt hex 0)) |
533 (progn |
533 (progn |
534 (prefer-coding-system 'utf-8-unix) |
534 (prefer-coding-system 'utf-8-unix) |
535 (setq selection-coding-system 'compound-text-with-extensions) |
535 (setq selection-coding-system 'compound-text-with-extensions) |
536 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
536 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
537 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
537 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
|
538 )) |
|
539 ((eq system-type 'darwin) |
|
540 (progn |
|
541 nil |
538 )) |
542 )) |
539 (t |
543 (t |
540 (progn |
544 (progn |
541 (prefer-coding-system 'cp1251-dos) |
545 (prefer-coding-system 'cp1251-dos) |
542 (prefer-coding-system 'utf-8-unix) |
546 (prefer-coding-system 'utf-8-unix) |