.emacs-my
changeset 1538 35dbe903d7e0
parent 1537 592689d6d222
child 1539 14739033d89f
equal deleted inserted replaced
1537:592689d6d222 1538:35dbe903d7e0
   443  ((eq window-system 'w32)
   443  ((eq window-system 'w32)
   444   (set-frame-font "Courier New-10:antialias=none")
   444   (set-frame-font "Courier New-10:antialias=none")
   445   (set-fontset-font nil 'cyrillic "Courier New-10:antialias=none")
   445   (set-fontset-font nil 'cyrillic "Courier New-10:antialias=none")
   446   (set-fontset-font nil 'greek "Courier New-10:antialias=none")
   446   (set-fontset-font nil 'greek "Courier New-10:antialias=none")
   447   (set-fontset-font nil 'phonetic "Courier New-10:antialias=none")
   447   (set-fontset-font nil 'phonetic "Courier New-10:antialias=none")
   448   (set-fontset-font nil 'symbol "Courier New-10:antialias=none")))
   448   (set-fontset-font nil 'symbol "DejaVu Sans Mono-10:antialias=none")))
   449 
   449 
   450 (fset 'yes-or-no-p 'y-or-n-p)
   450 (fset 'yes-or-no-p 'y-or-n-p)
   451 
   451 
   452 (when (boundp 'confirm-kill-emacs)
   452 (when (boundp 'confirm-kill-emacs)
   453   (setq confirm-kill-emacs 'y-or-n-p))
   453   (setq confirm-kill-emacs 'y-or-n-p))
  3257   (define-key log4-hi-mode-map [C-return] #'my-java-exeption))
  3257   (define-key log4-hi-mode-map [C-return] #'my-java-exeption))
  3258 
  3258 
  3259 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3259 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3260 (message "cfengine")
  3260 (message "cfengine")
  3261 
  3261 
  3262 (my--eval-after-load cfengine3
  3262 (add-to-list 'auto-mode-alist '("\\.cf\\'" . cfengine3-mode))
  3263   (defconst cfengine3--prettify-symbols-alist
  3263 
  3264     '(("->"  . ?→)
  3264 ;; Problems with hunging on re-display when symbols is used on Windows can be solved by:
  3265       ("=>"  . ?⇛))))
  3265 ;;   (setq inhibit-compacting-font-caches t)
       
  3266 ;; or choosing "DejaVu Sans Mono" font.
       
  3267 ;; (my--eval-after-load cfengine3
       
  3268 ;;   (defconst cfengine3--prettify-symbols-alist
       
  3269 ;;     '(("->"  . ?→)
       
  3270 ;;       ("=>"  . ?⇛))))
  3266 
  3271 
  3267 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3268 (message "Pascal")
  3273 (message "Pascal")
  3269 
  3274 
  3270 (eval-when 'compile (require 'pascal))
  3275 (eval-when 'compile (require 'pascal))