equal
deleted
inserted
replaced
304 |
304 |
305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
306 |
306 |
307 (setq smtpmail-smtp-server "192.168.0.xxx") |
307 (setq smtpmail-smtp-server "192.168.0.xxx") |
308 (setq smtpmail-smtp-service "25") |
308 (setq smtpmail-smtp-service "25") |
|
309 |
|
310 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
311 (message "font selection") |
|
312 |
|
313 (defvar my-preferred-font |
|
314 (cond |
|
315 ((eq window-system 'x) |
|
316 "-misc-fixed-medium-r-normal--14-*-*-*-c-*-iso10646-1") |
|
317 ((eq window-system 'w32) |
|
318 "Courier New-10:antialias=none") |
|
319 (t nil))) |
|
320 (when my-preferred-font |
|
321 (set-frame-font my-preferred-font) |
|
322 (set-fontset-font "fontset-default" 'latin my-preferred-font) |
|
323 (set-fontset-font "fontset-default" 'phonetic my-preferred-font) |
|
324 (set-fontset-font "fontset-default" 'cyrillic my-preferred-font) |
|
325 (set-fontset-font "fontset-default" 'greek my-preferred-font)) |