dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:b958f182d0d4
+:19ab21ec7640
-;; -*- 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.
 ;;
 ;; This file formed from parts and ideas from many sites/docs and
 ;; placed in public domain.
 ;;
 ;; Config file for GNU Emacs.
 ;;
 ;; For load order see README.
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "recentf")
 (require 'recentf)
 ;; Prevent TRAMP to login on remote host when loading.
 ;; Its take time and ask passwords!
 (setq recentf-auto-cleanup 'never)
 (recentf-mode t)
 (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.
 (setq message-log-max 512)
 ;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'.
 ;; Also '-q' prevent loading your init file.
 (setq inhibit-default-init nil)         ; t/nil
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "user info")
 (setq user-full-name "Oleksandr Gavenko")
 (setq user-mail-address "gavenkoa@gmail.com")
 (setq user-nick "gavenkoa")
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "my defun, defmacro, defvar")
 (defmacro my-filter (condfunc list)
 "Construct list with elements from LIST which satisfy CONDFUNC."
 `(let (r)
 (setq x2 (funcall f x2 (pop li)))
 )
 x2
 ) )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mode groups")
 (defmacro my-defun-rename-symb-tree (name doc func)
 "Travel by TREE and applies FUNC to each symbol."
 `(defun ,name (tree)
 (defvar my-text-mode-hook-list
 (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.
 ;; And maked different height with Emacs 22.3 and 23.1.
 ;; (setq initial-frame-alist '((fullscreen . fullboth)))
 (fset 'yes-or-no-p 'y-or-n-p)
 (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
 (setq inhibit-startup-message t)
 (ansi-color-for-comint-mode-on)
 (setq explicit-bash-args '("-i"))
 (setq explicit-sh-args '("-i"))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "whitespaces")
 (setq default-indicate-empty-lines t)
 (setq default-indicate-buffer-boundaries 'left)
 (setq next-line-add-newlines nil)
 ;; 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")
 ;; (require 'gnuserv)
 ;; (setq gnuserv-frame (selected-frame))
 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
 (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))
 (server-start))
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "standart/general settings")
 ;; Try to speed things up, especially in VM.
 (setq gc-cons-threshold 2000000)
 (setq
 use-dialog-box t
 x-gtk-show-hidden-files t
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "switching, creating, selecting buffers")
 (iswitchb-mode 1)
 (setq iswitchb-buffer-ignore
 '("^ "
 (setq uniquify-after-kill-buffer-p t)
 ;; 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)
 (setq-default
 (make-variable-buffer-local 'scroll-margin)
 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
 ;; 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)
 (setq query-replace-highlight t)        ; highlight during query
 (when (< emacs-major-version 23)
 (global-set-key (kbd "M-s o") 'occur)
 )
 (global-set-key [f7] 'occur)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "grep, find")
 ;; -ls produce very noisy output:
 ;; (setq find-ls-option '("-ls" . ""))
 ;; So I use next expression, which work with GNU find, I replace %s with '0'
 )
 ))
 (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.
 (transient-mark-mode 1)
 (delete-selection-mode 1)               ; 1/-1
 (when (eq window-system 'x)
 (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting current line")
 (when window-system
 (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
 (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 :,.
 ;; cyrillic-jcuken  for SHIFT 567 is :,.
 ;; russian-computer for SHIFT 567 is %^&
 (if (>= emacs-major-version 22)
 (setq default-input-method 'russian-computer)
 (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
 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
 ;; Paste at point NOT at cursor
 (setq mouse-yank-at-point t)
 (when window-system
 (mouse-wheel-mode 1)
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "key binding, short-keys")
 (global-set-key [home]    'beginning-of-line)
 (global-set-key [end]     'end-of-line)
 (global-set-key [C-home] 'beginning-of-buffer)
 (global-set-key (kbd "C-z") nil))
 (global-set-key (kbd "C-x C-z") nil)
 ;; (global-set-key [language-change] 'ignore)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "coding system, charset, locale, lang")
 ;; Emacs 23.1 no longer need codepage-setup.
 (when (<= emacs-major-version 22)
 (codepage-setup 866)
 (prefer-coding-system 'utf-8-unix)
 (modify-coding-system-alist 'process ".*" 'utf-8-unix)
 )
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "open file, ffap, dired")
 (setq-default save-place t)
 (require 'saveplace)
 )
 )
 (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.
 (setq ls-lisp-use-insert-directory-program nil)
 (setq ls-lisp-ignore-case t)
 (setq ls-lisp-format-time-list
 '("%Y-%m-%d %H:%M:%S"
 "%Y-%m-%d %H:%M   "))
 (require 'ls-lisp)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "compression, archive")
 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
 (when (fboundp 'auto-compression-mode)
 (auto-compression-mode 1))
 (modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "image, png, svg")
 (when (fboundp 'auto-image-file-mode)
 (auto-image-file-mode 1))
 (eval-after-load 'image-file
 (setq image-file-name-extensions (remove "svg" image-file-name-extensions))
 ;; Re-initialize the image-file handler.
 (auto-image-file-mode t)
 ))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "minibuffer")
 (require 'icomplete) ; Interactive completion in minibuffer.
 (icomplete-mode 1)
 ;; Place dir at end to appear at the start of completion-ignored-extensions.
 "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
 ) )
 (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
 ;; http://en.wikipedia.org/wiki/Percent-encoding
 (defun my-percent-decode (str)
 (message result)
 (delete-region beg end)
 (insert result))
 ) )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "browser")
 (cond
 ((equal window-system 'w32)
 (setq browse-url-browser-function 'browse-url-default-windows-browser))
 "Search for Cygwin package on-line."
 (interactive (list (read-input "Search for Cygwin package on-line: ")))
 (browse-url (format "http://cygwin.com/cgi-bin2/package-grep.cgi?grep=%s" str))
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "calendar")
 ;; (setq mark-holidays-in-calendar t)
 ;; (setq all-christian-calendar-holidays t)
 ;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
 ;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
 (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)
 (defvar my-fill-column 100
 ;; Turn on auto-fill mode
 (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
 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
 ;; chord-mode - edit guitar music
 ;; discography - variant of BibTeX mode for discographies
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "cacl, calculator")
 (setq-default calc-group-digits t)
 (setq-default calc-group-char "'")
 '(rst-level-4-face ((t (:background "yellow"))) t)
 '(rst-level-5-face ((t (:background "yellow"))) t)
 '(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)
 ;; (setq TeX-parse-self t)             ; Enable parse on load.
 ;; (setq TeX-auto-save t)              ; Enable parse on save.
 ;     (add-to-list 'TeX-command-list
 ;         (list "All Texify run-viewer"
 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
 ;           'TeX-run-command nil t))))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "reftex")
 ;; Reftex is included with Emacs 21.1.
 ;; (autoload 'reftex-mode     "reftex" "RefTeX Minor Mode" t)
 ;; (autoload 'reftex-citation "reftex-cite" "Make citation" nil)
 ;; (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
 ;; (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)
 ;(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
 ;; repository tree. So it must be installed manually. My usual configuration is install user local software
 ;; into ~/usr DISTDIR.
 (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.
 (setq comint-completion-addsuffix t)
 ;; 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'.
 ;(add-hook 'text-mode-hook 'flyspell-mode)
 ;(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)
 (require 'org))
 ;;       '(("TODO" . (:foreground "red" :weight bold))
 ;;         ("WAIT" . (:foreground "orange" :weight bold))
 ;;         ("DONE" . (:foreground "green" :weight bold))) )
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
 (defface my-tab-face
 ;; 64 times, for highlight C-u C-u C-u <key>
 ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
 ))
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "fortune")
 (setq fortune-file "~/XXX")
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mail, mh-e")
 (setq mail-signature t)
 (setq mail-signature-file "~/.signature")
 ;; (add-hook 'mail-setup-hook 'fortune-to-signature)
 ;; (setq mail-user-agent 'mh-e-user-agent)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")
 (autoload 'jabber-connect-all "jabber")
 (setq
 )
 )
 (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.
 ;; (setq rcirc-debug-flag t)
 (setq rcirc-default-server "irc.freenode.net")
 (setq rcirc-default-port 6667)
 (setq rcirc-default-nick user-nick)
 (setq rcirc-default-user-full-name user-full-name)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
 ;; (add-to-list 'erc-modules 'notify)
 ;; (setq erc-notify-list '(""))
 ;; Kill buffers for private queries after quitting the server
 ;; (setq erc-kill-queries-on-quit t)
 ;; 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.
 ;; (setq vc-git-diff-switches "-b")
 ;; (setq vc-diff-switches "-b")
 (320 . "#2780C6")
 (340 . "#1A00D3")
 (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)
 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
 (setq-default comment-fill-column my-fill-column)
 (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")
 (setq ediff-diff-options "")
 '(progn
 (set-face-foreground 'diff-added-face "DarkGreen")
 (set-face-foreground 'diff-removed-face "DarkRed")
 )))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "indenting")
 (setq standard-indent 4)
 (setq c-basic-offset 4)
 (setq sh-basic-offset 2)
 (setq tab-stop-list nil)
 (while (>= i 0)
 (setq tab-stop-list (cons i tab-stop-list))
 (setq i (- i 4))))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "compile")
 ;; Prompt for compilation command.
 (setq compilation-read-command 1)
 (setq compile-auto-highlight t)
 (eval-after-load 'compile
 '(progn
 (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
 ;; use.
 )
 (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'.
 (unless (featurep 'cedet)
 (global-set-key (kbd "C-c , d") 'semantic-ia-show-doc)
 (global-set-key (kbd "C-c , D") 'semantic-ia-describe-class)
 (global-set-key (kbd "C-c , c") 'semantic-ia-complete-symbol-menu)
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "imenu")
 (defun my-imenu-to-menubar ()
 (imenu-add-menubar-index)
 (run-hooks 'menu-bar-update-hook)
 (require 'imenu)
 (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)
 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
 (add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode))
 ;; (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)
 (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
 )
 (when (fboundp 'iar4-linker-config-mode)
 (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "lisp, elisp")
 (setq list-command-history-max 256)
 (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
 ("(\\<\\(lambda\\)\\>"
 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face))
 )
 ))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "C, c-mode, C++, c++-mode")
 ;; Minor mode that highlights suspicious C and C++ constructions.
 (cwarn-mode 1)
 (other . "my")
 ))
 )
 (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)
 ;;     (add-to-list 'auto-mode-alist '("\\.js$" . js-mode))
 ;;   (add-to-list 'auto-mode-alist '("\\.js$" . javascript-generic-mode))
 ;;   )
 (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)
 (interactive "r")
 (save-excursion
 (goto-char begin)
 (insert (html-charref-to-string (delete-and-extract-region begin end))))
 (html-charref-to-string (buffer-substring begin end))
 ))
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nxml")
 (setq nxml-sexp-element-flag t)
 (setq nxml-child-indent 2)
 (setq nxml-attribute-indent 4)
 (eval-after-load 'rng-loc
 '(add-to-list 'rng-schema-locating-files "~/.emacs.d/rnc/schemas.xml")
 )
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "psgml")
 (setq my-html-template
 '("html"
 (nil
 (my-filter
 (lambda (item) (not (equal (car item) "html")))
 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
 ;(setq lpr-command "notepad")
 ;(setq lpr-headers-switches '("/p"))    ; \ mis-use these
 ;(setq printer-name "~/myprint.txt")
 ;(setq ps-printer-name nil)
 ;(setq ps-print-header nil)
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SQL")
 (setq sql-password "")
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "backuping")
 (setq
 make-backup-files t
 ;; In other case (by renaming) you loose original file creation date.
 delete-old-versions t                         ; delete excess backup versions silently
 kept-old-versions 1                           ; store first original version
 kept-new-versions 3                           ; store last 3 version
 version-control t)                            ; use versioned backups
-;;; ----------------------------------------------------------------
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "auto save")
 (setq auto-save-default t)
 ;; If nil autosave to different than original to buffer file.
 (setq auto-save-visited-file-name nil)
 (setq auto-save-interval 300)
 ;; 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
 (lambda ()
 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor."
 (setq default-directory "~/")
 (switch-to-buffer "*scratch*")
 (setq default-directory "~/")
 ;;; End loading...
+;; Local variables:
+;; mode: outline-minor
+;; outline-regexp: "(message \""
+;; End:

changeset 718	19ab21ec7640
parent 717	b958f182d0d4
child 719	694f7e388f2b