equal
deleted
inserted
replaced
254 ;; Try to speed things up, especially in VM. |
254 ;; Try to speed things up, especially in VM. |
255 (setq gc-cons-threshold 2000000) |
255 (setq gc-cons-threshold 2000000) |
256 |
256 |
257 ;; Don't beep in my headphones! |
257 ;; Don't beep in my headphones! |
258 ;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home] |
258 ;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home] |
259 |
|
260 (setq ange-ftp-generate-anonymous-password |
|
261 user-mail-address) |
|
262 |
259 |
263 ;; Prompt before evaluating local bits of lisp. This stops people |
260 ;; Prompt before evaluating local bits of lisp. This stops people |
264 ;; putting things at the end of files which delete all your files! |
261 ;; putting things at the end of files which delete all your files! |
265 (setq enable-local-variables t |
262 (setq enable-local-variables t |
266 enable-local-eval 1) |
263 enable-local-eval 1) |
917 |
914 |
918 ;; ====================================================================== |
915 ;; ====================================================================== |
919 ;; Setup user info. |
916 ;; Setup user info. |
920 |
917 |
921 (cd "~/") |
918 (cd "~/") |
922 (setq my-author-name (getenv "USER")) |
919 (setq user-full-name "Oleksandr Gavenko") |
923 (setq user-full-name (getenv "USER")) |
920 (setq user-mail-address "gavenkoa@gmail.com") |
924 (setenv "ORGANIZATION" "Oleksandr Gavenko <gavenkoa@gmail.com>") |
921 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
925 |
922 |
926 (message ".emacs loaded OK.") |
923 (message ".emacs loaded OK.") |
927 |
924 |
928 ;; |
925 ;; |
929 ;; End loading... |
926 ;; End loading... |