--- a/.emacs-my Thu Sep 09 16:00:10 2010 +0300
+++ b/.emacs-my Fri Sep 10 12:01:50 2010 +0300
@@ -1,4 +1,4 @@
-;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
+;; -*- mode: lisp; mode: outline-minor; coding: utf-8; fill-column: 78 -*-
;;
;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
;;
@@ -9,8 +9,8 @@
;;
;; For load order see README.
-;; ======================================================================
-;; emacs debugging.
+;;; ----------------------------------------------------------------
+;;; debugging.
;; Shut off message buffer by setting nil.
(setq message-log-max 512)
@@ -18,8 +18,8 @@
;; Set the debug option to enable a backtrace when a problem occurs.
(setq debug-on-error nil) ; t/nil
-;; ----------------------------------------------------------------------
-;; mode groups
+;;; ----------------------------------------------------------------
+;;; mode groups.
(defvar my-devel-mode-list
'(
@@ -63,8 +63,9 @@
'(outline-mode-hook text-mode-hook)
"List of text mode hooks.")
-;; ======================================================================
-;; appearance.
+
+;;; ----------------------------------------------------------------
+;;; appearance.
(setq default-directory "~/")
@@ -147,14 +148,14 @@
;; See what I am typing immediately (for keystroke in minibuffer).
(setq echo-keystrokes 0.2)
-;; ----------------------------------------------------------------------
-;; silent runing.
+;;; ----------------------------------------------------------------
+;;; silent runing.
;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
(setq inhibit-startup-message t)
-;; ----------------------------------------------------------------------
-;; whitespaces.
+;;; ----------------------------------------------------------------
+;;; whitespaces.
(setq default-indicate-empty-lines t)
(setq default-indicate-buffer-boundaries 'left)
@@ -166,8 +167,8 @@
;; See also 'mode-require-final-newline'.
(add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
-;; ======================================================================
-;; gnu serv, server.
+;;; ----------------------------------------------------------------
+;;; gnu serv, server.
;; (load "~/emacs/bin/gnuserv/gnuserv.el")
;; (require 'gnuserv)
@@ -183,8 +184,8 @@
;; (desktop-load-default)
;; (desktop-read)
-;; ======================================================================
-;; standart/general settings.
+;;; ----------------------------------------------------------------
+;;; standart/general settings.
(if (boundp 'confirm-kill-emacs)
(setq confirm-kill-emacs 'yes-or-no-p))
@@ -229,8 +230,8 @@
x-gtk-show-hidden-files t
)
-;; ----------------------------------------------------------------------
-;; switching, creating, selecting buffers.
+;;; ----------------------------------------------------------------
+;;; switching, creating, selecting buffers.
(iswitchb-mode 1)
(setq iswitchb-buffer-ignore nil)
@@ -251,8 +252,8 @@
;; buffer-menu better then buffer-list, but ibuffer much better.
(global-set-key "\C-x\C-b" 'ibuffer)
-;; ----------------------------------------------------------------------
-;; scrolling.
+;;; ----------------------------------------------------------------
+;;; scrolling.
(defvar my-scroll-margin 4)
@@ -268,16 +269,16 @@
;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4
(append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
-;; ----------------------------------------------------------------------
-;; search, isearch, occur.
+;;; ----------------------------------------------------------------
+;;; search, isearch, occur.
(setq case-fold-search t)
(setq query-replace-highlight t) ; highlight during query
(setq search-highlight t) ; highlight incremental search
-;; ----------------------------------------------------------------------
-;; grep, find.
+;;; ----------------------------------------------------------------
+;;; grep, find.
;; This settings have effect from Emacs 22.x.
(when (eq system-type 'windows-nt)
@@ -296,14 +297,14 @@
(global-set-key [M-f7] 'rgrep)
-;; ----------------------------------------------------------------------
-;; syntax highlighting.
+;;; ----------------------------------------------------------------
+;;; syntax highlighting.
(setq font-lock-maximum-decoration t)
(global-font-lock-mode 1)
-;; ----------------------------------------------------------------------
-;; highlight selected text.
+;;; ----------------------------------------------------------------
+;;; highlight selected text.
;; 1/-1, when the mark is active, the region is highlighted.
(transient-mark-mode 1)
@@ -322,22 +323,22 @@
(setq x-select-enable-clipboard t) ; for Emacs 21.2.1 and newer
)
-;; ----------------------------------------------------------------------
-;; highlighting current line.
+;;; ----------------------------------------------------------------
+;;; highlighting current line.
(when window-system
(custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
(global-hl-line-mode 1)
)
-;; ----------------------------------------------------------------------
-;; paren, braces.
+;;; ----------------------------------------------------------------
+;;; paren, braces.
(show-paren-mode 1) ; Parenthesis matching via highlighting.
(setq show-paren-style (quote parenthesis))
-;; ======================================================================
-;; keyboard, mouse.
+;;; ----------------------------------------------------------------
+;;; keyboard, mouse.
;; cyrillic-jis-russian for 567 is :,.
;; cyrillic-jcuken for SHIFT 567 is :,.
@@ -347,14 +348,14 @@
(setq default-input-method 'cyrillic-jcuken))
;; (pc-bindings-mode) ; Myself define keybinding, see
-;; ----------------------------------------------------------------------
-;; completion.
+;;; ----------------------------------------------------------------
+;;; completion.
;; I remove partial-completion-mode because it depricated in Emacs 24.0.
;; Completion controled by 'completion-styles' variable.
-;; ----------------------------------------------------------------------
-;; mouse.
+;;; ----------------------------------------------------------------
+;;; mouse.
;; Scroll Bar gets dragged by mouse butn 1
(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
@@ -364,8 +365,8 @@
(mouse-wheel-mode 1)
)
-;; ----------------------------------------------------------------------
-;; key binding, short-keys.
+;;; ----------------------------------------------------------------
+;;; key binding, short-keys.
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
@@ -398,8 +399,8 @@
;; (global-set-key [language-change] 'ignore)
-;; ======================================================================
-;; coding system, charset, locale, lang.
+;;; ----------------------------------------------------------------
+;;; coding system, charset, locale, lang.
;; Emacs 23.1 no longer need codepage-setup.
(when (<= emacs-major-version 22)
@@ -443,8 +444,8 @@
(setq-default save-place t)
(require 'saveplace)
-;; ----------------------------------------------------------------------
-;; dired.
+;;; ----------------------------------------------------------------
+;;; dired.
(require 'dired)
@@ -469,8 +470,8 @@
(lambda () (interactive) (find-alternate-file "..")))
)
-;; ----------------------------------------------------------------------
-;; compression, archive.
+;;; ----------------------------------------------------------------
+;;; compression, archive.
(require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
(if (fboundp 'auto-compression-mode)
@@ -480,14 +481,14 @@
(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
-;; ----------------------------------------------------------------------
-;; image.
+;;; ----------------------------------------------------------------
+;;; image.
(when (fboundp 'auto-image-file-mode)
(auto-image-file-mode 1))
-;; ----------------------------------------------------------------------
-;; *Recentf*
+;;; ----------------------------------------------------------------
+;;; recentf.
(require 'recentf)
;; Prevent TRAMP to login on remote host when loading.
@@ -497,23 +498,23 @@
(setq recentf-max-saved-items 1000)
(global-set-key (kbd "\e\eq") 'recentf-open-files)
-;; ----------------------------------------------------------------------
-;; revert buffer.
+;;; ----------------------------------------------------------------
+;;; revert buffer.
(global-set-key [f5] 'revert-buffer)
(setq revert-without-query (quote (".*")))
(setq auto-revert-interval 2)
-;; ======================================================================
-;; convenient.
+;;; ----------------------------------------------------------------
+;;; convenient.
(defun reglen()
"Show region length."
(interactive)
(message "%s" (- (region-end) (region-beginning))))
-;; ----------------------------------------------------------------------
-;; minibuffer.
+;;; ----------------------------------------------------------------
+;;; minibuffer.
(require 'icomplete) ; Interactive completion in minibuffer.
(icomplete-mode 1)
@@ -526,14 +527,14 @@
"CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
) )
-;; ----------------------------------------------------------------------
-;; music.
+;;; ----------------------------------------------------------------
+;;; music.
(setq gnus-audio-au-player "winamp.exe"
gnus-audio-directory "D:\\music"
gnus-audio-wav-player "winamp.exe")
-;; ----------------------------------------------------------------------
-;; browser.
+;;; ----------------------------------------------------------------
+;;; browser.
(cond
((equal window-system 'w32)
@@ -541,8 +542,8 @@
(t
(setq browse-url-browser-function 'browse-url-mozilla)))
-;; ----------------------------------------------------------------------
-;; calendar.
+;;; ----------------------------------------------------------------
+;;; calendar.
;; (setq mark-holidays-in-calendar t)
;; (setq all-christian-calendar-holidays t)
@@ -551,14 +552,13 @@
(setq calendar-week-start-day 1)
(setq european-calendar-style t)
-;; ======================================================================
-;;
-;; STANDARD HOOKS
+;;; ----------------------------------------------------------------
+;;; STANDARD HOOKS.
(add-hook 'write-file-hooks 'time-stamp)
-;; ======================================================================
-;; *auto-fill*
+;;; ----------------------------------------------------------------
+;;; auto-fill.
(setq-default fill-column 78)
@@ -573,27 +573,27 @@
(add-hook 'html-mode-hook 'turn-on-auto-fill)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
-;; ----------------------------------------------------------------------
-;; unknown.
+;;; ----------------------------------------------------------------
+;;; unknown.
;; browse-url mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
;; eudc filladapt hugs-mode mpg123 php-mode ps-print
;; chord-mode - edit guitar music
;; discography - variant of BibTeX mode for discographies
-;; ----------------------------------------------------------------------
-;; cacl, calculator.
+;;; ----------------------------------------------------------------
+;;; cacl, calculator.
(setq-default calc-group-digits t)
(setq-default calc-group-char "'")
-;; ======================================================================
-;; TeX, LaTeX.
+;;; ----------------------------------------------------------------
+;;; TeX, LaTeX.
(setq tex-run-command "initex")
-;; ----------------------------------------------------------------------
-;; AUC TeX.
+;;; ----------------------------------------------------------------
+;;; AUC TeX.
;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
;; (setq TeX-parse-self t) ; Enable parse on load.
@@ -629,8 +629,10 @@
; "texify --tex-opt=--src --run-viewer --clean %s.tex"
; 'TeX-run-command nil t))))
-;; ----------------------------------------------------------------------
-;; Reftex activation (Reftex is included with Emacs 21.1).
+;;; ----------------------------------------------------------------
+;;; reftex.
+
+;; Reftex is included with Emacs 21.1.
;; (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
;; (autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
@@ -639,16 +641,16 @@
;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode
;; (add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode
-;; ----------------------------------------------------------------------
-;; PreviewLatex.
+;;; ----------------------------------------------------------------
+;;; PreviewLatex.
;(load "preview-latex.el" nil t t)
;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
;(autoload 'LaTeX-preview-setup "preview")
-;; ======================================================================
-;; Info.
+;;; ----------------------------------------------------------------
+;;; Info.
;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
;; repository tree. So it must be installed manually. My usual configuration is install user local software
@@ -656,22 +658,22 @@
(unless (getenv "INFOPATH")
(setenv "INFOPATH" "~/usr/share/info:"))
-;; ======================================================================
-;; man, woman.
+;;; ----------------------------------------------------------------
+;;; man, woman.
(setq woman-use-own-frame nil)
(setq woman-fill-frame t)
-;; ----------------------------------------------------------------------
-;; comint
+;;; ----------------------------------------------------------------
+;;; comint.
;; If non-nil, add a `/' to completed directories, ` ' to file names.
(setq comint-completion-addsuffix t)
;; Non-nil means go to the end of the line before sending input.
(setq comint-eol-on-send t)
-;; ======================================================================
-;; shell, sh, bash.
+;;; ----------------------------------------------------------------
+;;; shell, sh, bash.
;; Setup Emacs to run bash as its primary shell.
;; (setq binary-process-input t)
@@ -704,19 +706,19 @@
(setq explicit-sh-args '("-i"))
)
-;; ======================================================================
-;; spell, ispell, aspell.
+;;; ----------------------------------------------------------------
+;;; spell, ispell, aspell.
;; Settings for spelling done in '.emacs-autogen'.
;(add-hook 'text-mode-hook 'flyspell-mode)
;(setq flyspell-default-dictionary "russianw")
;(setq flyspell-delay '1)
-;; ======================================================================
-;; GTD, PIM, organize, todo mode.
+;;; ----------------------------------------------------------------
+;;; GTD, PIM, organize, todo mode.
-;; ----------------------------------------------------------------------
-;; org-mode.
+;;; ----------------------------------------------------------------
+;;; org-mode.
(if (>= emacs-major-version 22)
(progn
@@ -744,8 +746,8 @@
(define-key global-map "\C-ca" 'org-agenda)
(setq org-agenda-files '("~/.gtd/todo.org")) ))
-;; ----------------------------------------------------------------------
-;; remember-mode.
+;;; ----------------------------------------------------------------
+;;; remember-mode.
(if (or (featurep 'remember) (fboundp 'remember))
(progn
@@ -762,8 +764,8 @@
org-remember-store-without-prompt t
) ))
-;; ----------------------------------------------------------------------
-;; TODO, XXX, FIXME highlight.
+;;; ----------------------------------------------------------------------
+;;; TODO, XXX, FIXME highlight.
;; Show blanks and FIXME
;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
@@ -796,11 +798,11 @@
;; '(("\\(XXX\\|FIXME\\|TODO\\)"
;; 1 font-lock-warning-face prepend))))
-;; ======================================================================
-;; communication
+;;; ----------------------------------------------------------------
+;;; communication.
-;; ----------------------------------------------------------------------
-;; jabber.
+;;; ----------------------------------------------------------------
+;;; jabber.
(when (featurep 'jabber)
(setq
@@ -827,8 +829,8 @@
(setq fsm-debug nil) ; Disable *fsm-debug* buffer.
)
-;; ----------------------------------------------------------------------
-;; rcirc.
+;;; ----------------------------------------------------------------
+;;; rcirc.
;; Turn on logging everything to a special buffer, for debugging.
;; (setq rcirc-debug-flag t)
@@ -838,8 +840,8 @@
(defun rcirc-handler-301 (process cmd sender args)
"/away message handler.")
-;; ----------------------------------------------------------------------
-;; erc.
+;;; ----------------------------------------------------------------
+;;; erc.
;; Take off noise message.
(setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
@@ -849,8 +851,8 @@
(setq erc-server-coding-system 'utf-8)
-;; ======================================================================
-;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil.
+;;; ----------------------------------------------------------------
+;;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil.
(if (equal window-system 'w32)
(progn
@@ -887,21 +889,21 @@
)
)
-;; ----------------------------------------------------------------------
-;; psvn.
+;;; ----------------------------------------------------------------
+;;; psvn.
(setq svn-status-verbose t)
(setq svn-status-hide-unmodified t)
-;; ----------------------------------------------------------------------
-;; DVC.
+;;; ----------------------------------------------------------------
+;;; DVC.
(when (featurep 'dvc-emacs)
(setq dvc-tips-enabled nil)
)
-;; ======================================================================
-;; devel, prog, programming.
+;;; ----------------------------------------------------------------
+;;; devel, prog, programming.
(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
@@ -912,15 +914,15 @@
(mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) ))
my-devel-mode-hook-list)
-;; ----------------------------------------------------------------------
-;; diff, patch, ediff, emerge.
+;;; ----------------------------------------------------------------
+;;; diff, patch, ediff, emerge.
(setq diff-switches "-u")
(setq ediff-diff-options "")
-;; ----------------------------------------------------------------------
-;; indenting.
+;;; ----------------------------------------------------------------
+;;; indenting.
(setq standard-indent 4)
(setq c-basic-offset 4)
@@ -939,8 +941,8 @@
(setq tab-stop-list (cons i tab-stop-list))
(setq i (- i 4))))
-;; ----------------------------------------------------------------------
-;; *Compile*
+;;; ----------------------------------------------------------------
+;;; compile.
(setq compile-auto-highlight t
compile-command "make ")
@@ -956,15 +958,15 @@
;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1))
;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1))
-;; ----------------------------------------------------------------------
-;; TAGS, etags, ctags, GNU GLOBAL.
+;;; ----------------------------------------------------------------
+;;; TAGS, etags, ctags, GNU GLOBAL.
(when (featurep 'etags-table)
(setq etags-table-search-up-depth 1)
)
-;; ----------------------------------------------------------------------
-;; CEDET, semantic.
+;;; ----------------------------------------------------------------
+;;; CEDET, semantic.
;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
@@ -1002,8 +1004,8 @@
(global-set-key (kbd "C-c , c") 'semantic-ia-complete-symbol-menu)
)
-;; ----------------------------------------------------------------------
-;; imenu.
+;;; ----------------------------------------------------------------
+;;; imenu.
(require 'imenu)
(when window-system
@@ -1016,18 +1018,18 @@
my-devel-mode-hook-list)
)
-;; ----------------------------------------------------------------------
-;; windows inf files for driver installing
+;;; ----------------------------------------------------------------
+;;; windows inf files for driver installing
(add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
-;; ----------------------------------------------------------------------
-;; makefile, make.
+;;; ----------------------------------------------------------------
+;;; makefile, make.
(add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
-;; ----------------------------------------------------------------------
-;; asm, assembler.
+;;; ----------------------------------------------------------------
+;;; asm, assembler.
;; (setq-default asm-comment-char 59)
(add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
@@ -1037,8 +1039,8 @@
;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":")))
;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
-;; ----------------------------------------------------------------------
-;; linker.
+;;; ----------------------------------------------------------------
+;;; linker.
(when (fboundp 'iar-linker-config-mode)
(add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
@@ -1047,13 +1049,13 @@
(add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
)
-;; ----------------------------------------------------------------------
-;; lisp.
+;;; ----------------------------------------------------------------
+;;; lisp.
(setq list-command-history-max 256)
-;; ----------------------------------------------------------------------
-;; C, c-mode, C++, c++-mode.
+;;; ----------------------------------------------------------------
+;;; C, c-mode, C++, c++-mode.
(setq c-echo-syntactic-information-p t)
(add-hook 'c-mode-common-hook
@@ -1122,24 +1124,26 @@
))
-;; ----------------------------------------------------------------------
-;; bat file, batch, loaded from 'generic-x.el'.
+;;; ----------------------------------------------------------------
+;;; bat file, batch.
-;; ----------------------------------------------------------------------
-;; nsis-mode.
+;; loaded from 'generic-x.el'
+
+;;; ----------------------------------------------------------------
+;;; nsis-mode.
(when (fboundp 'nsis-mode)
(add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
)
-;; ----------------------------------------------------------------------
-;; *csharp*, c-sharp.
+;;; ----------------------------------------------------------------
+;;; csharp, c-sharp.
(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
(add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
-;; ----------------------------------------------------------------------
-;; java.
+;;; ----------------------------------------------------------------
+;;; java.
;; If you want Emacs to defer loading the JDE until you open a Java file, edit
;; the following line:
@@ -1151,29 +1155,29 @@
;; (add-to-list 'auto-mode-alist '("\\.java\\'" . jde-mode))
;; (require 'jde)))
-;; ----------------------------------------------------------------------
-;; ECB.
+;;; ----------------------------------------------------------------
+;;; ECB.
(setq ecb-tip-of-the-day nil)
-;; ----------------------------------------------------------------------
-;; html.
+;;; ----------------------------------------------------------------
+;;; html.
-;; ----------------------------------------------------------------------
-;; xml.
+;;; ----------------------------------------------------------------
+;;; xml.
-;; ----------------------------------------------------------------------
-;; psgml.
+;;; ----------------------------------------------------------------
+;;; psgml.
(setq sgml-set-face t) ; for highlighting in sgml
-;; ----------------------------------------------------------------------
-;; sh, bash.
+;;; ----------------------------------------------------------------
+;;; sh, bash.
(add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
-;; ======================================================================
-;; printing.
+;;; ----------------------------------------------------------------
+;;; printing.
;; Use Notepad to print plain text files to the default Windows printer
;(setq lpr-command "notepad")
@@ -1183,16 +1187,15 @@
;(setq lpr-printer-switch "/P") ;; run notepad as batch printer
;;
-;; ----------------------------------------------------------------------
-;; printing to file.
+;; Printing to file.
;(setq printer-name "~/myprint.txt")
;(setq ps-printer-name nil)
;(setq ps-print-header nil)
-;;; some more menu entries in the command list:
-;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
-;;; other variables are defined in tex.el from auctex
-;;; the meaning of some auctex-varibles:
+;; some more menu entries in the command list:
+;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
+;; other variables are defined in tex.el from auctex
+;; the meaning of some auctex-varibles:
;symbols defined in tex.el and tex-mik.el:
;%b name slave tex-file %t name master tex-file
;%d dvi-file %f ps-file
@@ -1212,13 +1215,13 @@
; "texify --tex-opt=--src --run-viewer --clean %s.tex"
; 'TeX-run-command nil t))))
-;; ----------------------------------------------------------------
-;; SQL.
+;;; ----------------------------------------------------------------
+;;; SQL.
(setq sql-password "")
-;; ======================================================================
-;; backuping.
+;;; ----------------------------------------------------------------
+;;; backuping.
(setq
make-backup-files t
@@ -1230,8 +1233,8 @@
kept-new-versions 3 ; store last 3 version
version-control t) ; use versioned backups
-;; ======================================================================
-;; auto save.
+;;; ----------------------------------------------------------------
+;;; auto save.
(setq auto-save-default t)
;; If nil autosave to different than original to buffer file.
@@ -1239,8 +1242,8 @@
;; Note: if you kill unsaved file auto save file not deleted.
(setq delete-auto-save-files t)
-;; ======================================================================
-;; user info.
+;;; ----------------------------------------------------------------
+;;; user info.
(setq user-full-name "Oleksandr Gavenko")
(setq user-mail-address "gavenkoa@gmail.com")
@@ -1253,4 +1256,4 @@
"Nice day for Emacsing!")) )
(message (nth (random (length mgs-list)) mgs-list)))))
-;; End loading...
+;;; End loading...