equal
deleted
inserted
replaced
15 ;; Shut off message buffer by setting nil. |
15 ;; Shut off message buffer by setting nil. |
16 (setq message-log-max 512) |
16 (setq message-log-max 512) |
17 |
17 |
18 ;; Set the debug option to enable a backtrace when a problem occurs. |
18 ;; Set the debug option to enable a backtrace when a problem occurs. |
19 (setq debug-on-error nil) ; t/nil |
19 (setq debug-on-error nil) ; t/nil |
|
20 |
|
21 ;;; ---------------------------------------------------------------- |
|
22 ;;; user info. |
|
23 |
|
24 (setq user-full-name "Oleksandr Gavenko") |
|
25 (setq user-mail-address "gavenkoa@gmail.com") |
|
26 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
20 |
27 |
21 ;;; ---------------------------------------------------------------- |
28 ;;; ---------------------------------------------------------------- |
22 ;;; mode groups. |
29 ;;; mode groups. |
23 |
30 |
24 (defun my-modelist-to-hooklist (modes) |
31 (defun my-modelist-to-hooklist (modes) |
66 "List of text modes.") |
73 "List of text modes.") |
67 |
74 |
68 (defvar my-text-mode-hook-list |
75 (defvar my-text-mode-hook-list |
69 (my-modelist-to-hooklist my-text-mode-list) |
76 (my-modelist-to-hooklist my-text-mode-list) |
70 "List of text mode hooks.") |
77 "List of text mode hooks.") |
71 |
|
72 |
78 |
73 ;;; ---------------------------------------------------------------- |
79 ;;; ---------------------------------------------------------------- |
74 ;;; appearance. |
80 ;;; appearance. |
75 |
81 |
76 (setq default-directory "~/") |
82 (setq default-directory "~/") |
1409 ;; If nil autosave to different than original to buffer file. |
1415 ;; If nil autosave to different than original to buffer file. |
1410 (setq auto-save-visited-file-name nil) |
1416 (setq auto-save-visited-file-name nil) |
1411 ;; Note: if you kill unsaved file auto save file not deleted. |
1417 ;; Note: if you kill unsaved file auto save file not deleted. |
1412 (setq delete-auto-save-files t) |
1418 (setq delete-auto-save-files t) |
1413 |
1419 |
1414 ;;; ---------------------------------------------------------------- |
1420 ;; ---------------------------------------------------------------- |
1415 ;;; user info. |
1421 ;; User welcome msg. |
1416 |
|
1417 (setq user-full-name "Oleksandr Gavenko") |
|
1418 (setq user-mail-address "gavenkoa@gmail.com") |
|
1419 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
|
1420 |
1422 |
1421 (add-hook 'emacs-startup-hook |
1423 (add-hook 'emacs-startup-hook |
1422 (lambda () |
1424 (lambda () |
1423 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1425 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1424 "You enter to Out Space. Emacs on." |
1426 "You enter to Out Space. Emacs on." |