equal
deleted
inserted
replaced
937 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?" |
937 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?" |
938 "Software Development == Church Development. Step 1. Build it. Step 2. Pray." |
938 "Software Development == Church Development. Step 1. Build it. Step 2. Pray." |
939 "А любит Б, Б любит С, что делать A? Найти другую Б!")) ) |
939 "А любит Б, Б любит С, что делать A? Найти другую Б!")) ) |
940 (setq jabber-default-show (nth (random (length mgs-list)) mgs-list)) |
940 (setq jabber-default-show (nth (random (length mgs-list)) mgs-list)) |
941 (setq jabber-default-status (nth (random (length mgs-list)) mgs-list)) |
941 (setq jabber-default-status (nth (random (length mgs-list)) mgs-list)) |
942 ) |
942 ) ) |
943 |
943 |
944 ;; fsm used in emacs jabber |
944 ;; fsm used in emacs jabber |
945 (when (featurep 'fsm) |
945 (when (featurep 'fsm) |
946 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
946 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
947 ) |
947 ) |
1429 ;; If nil autosave to different than original to buffer file. |
1429 ;; If nil autosave to different than original to buffer file. |
1430 (setq auto-save-visited-file-name nil) |
1430 (setq auto-save-visited-file-name nil) |
1431 ;; Note: if you kill unsaved file auto save file not deleted. |
1431 ;; Note: if you kill unsaved file auto save file not deleted. |
1432 (setq delete-auto-save-files t) |
1432 (setq delete-auto-save-files t) |
1433 |
1433 |
1434 ;; ---------------------------------------------------------------- |
1434 ;;; ---------------------------------------------------------------- |
1435 ;; User welcome msg. |
1435 ;;; User welcome msg. |
1436 |
1436 |
1437 (add-hook 'emacs-startup-hook |
1437 (add-hook 'emacs-startup-hook |
1438 (lambda () |
1438 (lambda () |
1439 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1439 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1440 "You enter to Out Space. Emacs on." |
1440 "You enter to Out Space. Emacs on." |