388 ) |
388 ) |
389 |
389 |
390 ;; See what I am typing immediately (for keystroke in minibuffer). |
390 ;; See what I am typing immediately (for keystroke in minibuffer). |
391 (setq echo-keystrokes 0.2) |
391 (setq echo-keystrokes 0.2) |
392 |
392 |
393 (when (eq window-system 'x) |
393 (defvar my-preferred-font |
394 (set-frame-font "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
394 (cond |
395 (set-fontset-font "fontset-default" 'latin |
395 ((eq window-system 'x) |
396 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
396 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
397 (set-fontset-font "fontset-default" 'phonetic |
397 ((eq window-system 'w32) |
398 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
398 "Courier New-10:antialias=none") |
399 (set-fontset-font "fontset-default" 'cyrillic |
399 (t nil))) |
400 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
400 (when my-preferred-font |
401 (set-fontset-font "fontset-default" 'greek |
401 (set-frame-font my-preferred-font) |
402 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1")) |
402 (set-fontset-font "fontset-default" 'latin my-preferred-font) |
|
403 (set-fontset-font "fontset-default" 'phonetic my-preferred-font) |
|
404 (set-fontset-font "fontset-default" 'cyrillic my-preferred-font) |
|
405 (set-fontset-font "fontset-default" 'greek my-preferred-font)) |
403 |
406 |
404 (fset 'yes-or-no-p 'y-or-n-p) |
407 (fset 'yes-or-no-p 'y-or-n-p) |
405 |
408 |
406 (when (boundp 'confirm-kill-emacs) |
409 (when (boundp 'confirm-kill-emacs) |
407 (setq confirm-kill-emacs 'y-or-n-p)) |
410 (setq confirm-kill-emacs 'y-or-n-p)) |