--- 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: