.emacs-my
changeset 1436 bbc10fe15aa5
parent 1435 55307015efd0
child 1437 22f5b3cdf40f
equal deleted inserted replaced
1435:55307015efd0 1436:bbc10fe15aa5
   413 ;; See what I am typing immediately (for keystroke in minibuffer).
   413 ;; See what I am typing immediately (for keystroke in minibuffer).
   414 (setq echo-keystrokes 0.2)
   414 (setq echo-keystrokes 0.2)
   415 
   415 
   416 (cond
   416 (cond
   417  ((eq window-system 'x)
   417  ((eq window-system 'x)
   418   (set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
   418   (when (find-font (font-spec :name "DejaVu Sans Mono-11:weight=normal"))
   419   (setq-default line-spacing nil)
   419     (set-frame-font "DejaVu Sans Mono-11")))
   420   (set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
       
   421   (set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
       
   422   (set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
       
   423   (set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
       
   424   (set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
       
   425   ;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters.
       
   426   (set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") )
       
   427  ((eq window-system 'w32)
   420  ((eq window-system 'w32)
   428   (set-frame-font "Courier New-10:antialias=none") ))
   421   (set-frame-font "Courier New-10:antialias=none") ))
   429 
   422 
   430 (fset 'yes-or-no-p 'y-or-n-p)
   423 (fset 'yes-or-no-p 'y-or-n-p)
   431 
   424