# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1317889577 -10800
# Node ID 19ab21ec76405b85cc88c0553d1601c73d021194
# Parent  b958f182d0d459a7484adeba9b302a12689621bd
Define own outline-regex to easy view file structure.

diff -r b958f182d0d4 -r 19ab21ec7640 .emacs-my
--- a/.emacs-my	Thu Oct 06 01:25:51 2011 +0300
+++ b/.emacs-my	Thu Oct 06 11:26:17 2011 +0300
@@ -1,4 +1,4 @@
-;; -*- mode: emacs-lisp; mode: outline-minor; coding: utf-8; fill-column: 78 -*-
+;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
 ;;
@@ -9,7 +9,7 @@
 ;;
 ;; For load order see README.
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "recentf")
 
 (require 'recentf)
@@ -20,14 +20,14 @@
 (setq recentf-max-saved-items 1000)
 (global-set-key (kbd "\e\eq")  'recentf-open-files)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "revert buffer")
 
 (global-set-key [f5]    'revert-buffer)
 (setq revert-without-query (quote (".*")))
 (setq auto-revert-interval 2)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "debugging")
 
 ;; Shut off message buffer by setting nil.
@@ -44,7 +44,7 @@
 ;; Also '-q' prevent loading your init file.
 (setq inhibit-default-init nil)         ; t/nil
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "user info")
 
 (setq user-full-name "Oleksandr Gavenko")
@@ -52,7 +52,7 @@
 (setq user-nick "gavenkoa")
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "my defun, defmacro, defvar")
 
 (defmacro my-filter (condfunc list)
@@ -76,7 +76,7 @@
     x2
     ) )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mode groups")
 
 (defmacro my-defun-rename-symb-tree (name doc func)
@@ -157,7 +157,7 @@
   (my-mode2hook my-text-mode-list)
   "List of text mode hooks.")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "appearance")
 
 ;; To maximize frame on full screen, not work with Windows Emacs 21.4.
@@ -252,7 +252,7 @@
 (when (boundp 'confirm-kill-emacs)
   (setq confirm-kill-emacs 'y-or-n-p))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "silent runing")
 
 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
@@ -302,7 +302,7 @@
 (setq explicit-bash-args '("-i"))
 (setq explicit-sh-args '("-i"))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "whitespaces")
 
 (setq default-indicate-empty-lines t)
@@ -320,7 +320,7 @@
 ;; See also 'mode-require-final-newline'.
 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "gnu serv, server")
 
 ;; (load "~/emacs/bin/gnuserv/gnuserv.el")
@@ -335,7 +335,7 @@
     (server-start))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "standart/general settings")
 
 ;; Try to speed things up, especially in VM.
@@ -393,7 +393,7 @@
  x-gtk-show-hidden-files t
  )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "switching, creating, selecting buffers")
 
 (iswitchb-mode 1)
@@ -416,7 +416,7 @@
 ;; buffer-menu better then buffer-list, but ibuffer much better.
 (global-set-key "\C-x\C-b" 'ibuffer)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "scrolling")
 
 (defvar my-scroll-margin 4)
@@ -433,7 +433,7 @@
       ;; 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) )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "search, isearch, occur")
 
 (setq case-fold-search t)
@@ -447,7 +447,7 @@
   )
 (global-set-key [f7] 'occur)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "grep, find")
 
 ;; -ls produce very noisy output:
@@ -474,13 +474,13 @@
 
 (global-set-key [M-f7] 'rgrep)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "syntax highlighting")
 
 (setq font-lock-maximum-decoration t)
 (global-font-lock-mode 1)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlight selected text")
 
 ;; 1/-1, when the mark is active, the region is highlighted.
@@ -500,7 +500,7 @@
   (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting current line")
 
 (when window-system
@@ -508,13 +508,13 @@
   (global-hl-line-mode 1)
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "paren, braces")
 
 (show-paren-mode 1) ; Parenthesis matching via highlighting.
 (setq show-paren-style (quote parenthesis))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "keyboard, mouse")
 
 ;; cyrillic-jis-russian  for 567 is :,.
@@ -525,13 +525,13 @@
   (setq default-input-method 'cyrillic-jcuken))
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "completion")
 
 ;; I remove partial-completion-mode because it depricated in Emacs 24.0.
 ;; Completion controled by 'completion-styles' variable.
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mouse")
 
 ;; Scroll Bar gets dragged by mouse butn 1
@@ -542,7 +542,7 @@
   (mouse-wheel-mode 1)
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "key binding, short-keys")
 
 (global-set-key [home]    'beginning-of-line)
@@ -578,7 +578,7 @@
 
 ;; (global-set-key [language-change] 'ignore)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "coding system, charset, locale, lang")
 
 ;; Emacs 23.1 no longer need codepage-setup.
@@ -620,7 +620,7 @@
   )
  )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "open file, ffap, dired")
 
 (setq-default save-place t)
@@ -708,7 +708,7 @@
 
 (define-key dired-mode-map (kbd "`") 'my-dired-flag-tmp-files)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "ls-lisp, dired ls")
 
 ;; If non-nil - use 'insert-directory-program', which I dislike.
@@ -725,7 +725,7 @@
         "%Y-%m-%d %H:%M   "))
 (require 'ls-lisp)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "compression, archive")
 
 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
@@ -736,7 +736,7 @@
 
 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "image, png, svg")
 
 (when (fboundp 'auto-image-file-mode)
@@ -750,7 +750,7 @@
      (auto-image-file-mode t)
      ))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "minibuffer")
 
 (require 'icomplete) ; Interactive completion in minibuffer.
@@ -765,13 +765,13 @@
         ) )
 (setq read-file-name-completion-ignore-case t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "music")
 (setq gnus-audio-au-player "winamp.exe"
       gnus-audio-directory "D:\\music"
       gnus-audio-wav-player "winamp.exe")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "url")
 
 ;; http://tools.ietf.org/html/rfc3986
@@ -798,7 +798,7 @@
       (insert result))
     ) )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "browser")
 
 (cond
@@ -815,7 +815,7 @@
   (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "calendar")
 
 ;; (setq mark-holidays-in-calendar t)
@@ -825,12 +825,12 @@
 (setq calendar-week-start-day 1)
 (setq european-calendar-style t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "standard hooks")
 
 (add-hook 'write-file-hooks 'time-stamp)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "auto-fill")
 
 (setq-default fill-column 78)
@@ -846,7 +846,7 @@
 (add-hook 'html-mode-hook 'turn-on-auto-fill)
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "unknown")
 
 ;; mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
@@ -854,7 +854,7 @@
 ;; chord-mode - edit guitar music
 ;; discography - variant of BibTeX mode for discographies
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "cacl, calculator")
 
 (setq-default calc-group-digits t)
@@ -891,12 +891,12 @@
         '(rst-level-6face ((t (:background "yellow"))) t)
         ) ) ) )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TeX, LaTeX")
 
 (setq tex-run-command "initex")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "AUC TeX")
 
 ;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
@@ -933,7 +933,7 @@
 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
 ;           'TeX-run-command nil t))))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "reftex")
 
 ;; Reftex is included with Emacs 21.1.
@@ -945,7 +945,7 @@
 ;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
 ;; (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "PreviewLatex")
 
 ;(load "preview-latex.el" nil t t)
@@ -953,7 +953,7 @@
 ;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
 ;(autoload 'LaTeX-preview-setup "preview")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Info")
 
 ;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
@@ -962,13 +962,13 @@
 (unless (getenv "INFOPATH")
   (setenv "INFOPATH" "~/usr/share/info:"))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
 
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "comint")
 
 ;; If non-nil, add a `/' to completed directories, ` ' to file names.
@@ -976,7 +976,7 @@
 ;; Non-nil means go to the end of the line before sending input.
 (setq comint-eol-on-send t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "spell, ispell, aspell")
 
 ;; Settings for spelling done in '.emacs-autogen'.
@@ -984,20 +984,20 @@
 ;(setq flyspell-default-dictionary "russianw")
 ;(setq flyspell-delay '1)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "dict, dictd, dictionary")
 
 (when (fboundp 'dict-c5-mode)
   (add-to-list 'auto-mode-alist '("\\.dict-c5$" . dict-c5-mode))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "remember-mode")
 
 (when (>= emacs-major-version 23)
   (require 'remember))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "org-mode, GTD, PIM, organize, todo")
 
 (when (>= emacs-major-version 22)
@@ -1067,7 +1067,7 @@
   ;;         ("DONE" . (:foreground "green" :weight bold))) )
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
@@ -1094,11 +1094,11 @@
      ))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "fortune")
 (setq fortune-file "~/XXX")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mail, mh-e")
 
 (setq mail-signature t)
@@ -1107,7 +1107,7 @@
 
 ;; (setq mail-user-agent 'mh-e-user-agent)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")
 
 (autoload 'jabber-connect-all "jabber")
@@ -1176,7 +1176,7 @@
 
 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "rcirc")
 
 ;; Turn on logging everything to a special buffer, for debugging.
@@ -1192,7 +1192,7 @@
 (setq rcirc-default-nick user-nick)
 (setq rcirc-default-user-full-name user-full-name)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
 
 ;; (add-to-list 'erc-modules 'notify)
@@ -1225,7 +1225,7 @@
 ;; Kill buffers for server messages after quitting the server
 ;; (setq erc-kill-server-buffer-on-quit t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
 
 ;; `-b' switch to ignore changes in whitespaces.
@@ -1264,20 +1264,20 @@
      (360 . "#0D80E0")))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "psvn")
 
 (setq svn-status-verbose t)
 (setq svn-status-hide-unmodified t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "DVC")
 
 (when (featurep 'dvc-emacs)
   (setq dvc-tips-enabled nil)
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "devel, prog, programming")
 
 (which-func-mode 1)
@@ -1303,7 +1303,7 @@
 (mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) ))
       (append my-devel-mode-hook-list my-text-mode-hook-list))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "diff, patch, ediff, emerge")
 
 (setq diff-switches "-u")
@@ -1318,7 +1318,7 @@
        (set-face-foreground 'diff-removed-face "DarkRed")
   )))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "indenting")
 
 (setq standard-indent 4)
@@ -1338,7 +1338,7 @@
     (setq tab-stop-list (cons i tab-stop-list))
     (setq i (- i 4))))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "compile")
 
 ;; Prompt for compilation command.
@@ -1382,7 +1382,7 @@
      (define-key compilation-mode-map [C-return] 'my-comint-send-string)
      ))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TAGS, etags, ctags, GNU GLOBAL")
 
 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
@@ -1398,7 +1398,7 @@
 (setq tags-add-tables t)
 (global-set-key "\M-\r" 'complete-tag)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "CEDET, semantic")
 
 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
@@ -1448,7 +1448,7 @@
   (global-set-key (kbd "C-c , c") 'semantic-ia-complete-symbol-menu)
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "imenu")
 
 (defun my-imenu-to-menubar ()
@@ -1460,17 +1460,17 @@
 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar))
       my-devel-mode-hook-list)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "windows inf files for driver installin")
 
 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "makefile, make")
 
 (add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "asm, assembler")
 
 ;; (setq-default asm-comment-char 59)
@@ -1481,7 +1481,7 @@
 ;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":")))
 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "linker")
 
 (when (fboundp 'iar-linker-config-mode)
@@ -1491,7 +1491,7 @@
   (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "lisp, elisp")
 
 (setq list-command-history-max 256)
@@ -1517,7 +1517,7 @@
     )
    ))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "C, c-mode, C++, c++-mode")
 
 ;; Minor mode that highlights suspicious C and C++ constructions.
@@ -1594,14 +1594,14 @@
   )
 (add-hook 'c-mode-common-hook 'my-c-mode-style-hook)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "python")
 
 (when (equal window-system 'w32)
   (add-to-list 'process-coding-system-alist '("python" cp1251-unix . cp1251-unix))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "javascript, js")
 
 ;; (if (>= emacs-major-version 23)
@@ -1612,33 +1612,33 @@
 (setq auto-mode-alist (rassq-delete-all 'js-mode auto-mode-alist))
 (add-to-list 'auto-mode-alist '("\\.js$" . c++-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "bat file, batch")
 
 ;; loaded from 'generic-x.el'
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nsis-mode")
 
 (when (fboundp 'nsis-mode)
   (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "csharp, c-sharp")
 
 (autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
 (add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "java")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "ECB")
 
 (setq ecb-tip-of-the-day nil)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "html")
 
 (defun html-charref-escape-region (start end)
@@ -1693,7 +1693,7 @@
     (html-charref-to-string (buffer-substring begin end))
     ))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nxml")
 
 (setq nxml-sexp-element-flag t)
@@ -1704,7 +1704,7 @@
   '(add-to-list 'rng-schema-locating-files "~/.emacs.d/rnc/schemas.xml")
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "psgml")
 
 (setq my-html-template
@@ -1734,12 +1734,12 @@
                html-tag-alist)))
      )))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "sh, bash")
 
 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "printing")
 
 ;; Use Notepad to print plain text files to the default Windows printer
@@ -1756,12 +1756,12 @@
 ;(setq ps-printer-name nil)
 ;(setq ps-print-header nil)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SQL")
 
 (setq sql-password "")
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "backuping")
 
 (setq
@@ -1774,7 +1774,7 @@
  kept-new-versions 3                           ; store last 3 version
  version-control t)                            ; use versioned backups
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "auto save")
 
 (setq auto-save-default t)
@@ -1784,14 +1784,14 @@
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Save and restore my buffers every time.
 (setq desktop-dirname "~/.emacs.d")
 (when (>= emacs-major-version 22)
   (desktop-save-mode 1)
   )
 
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "User welcome msg")
 
 (add-hook 'emacs-startup-hook
@@ -1807,3 +1807,8 @@
 (setq default-directory "~/")
 
 ;;; End loading...
+
+;; Local variables:
+;; mode: outline-minor
+;; outline-regexp: "(message \""
+;; End: