dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:5be44cff4683
+:e502c69ab80a
 ;; .emacs file for GNU Emacs.
 ;;
 ;; ~/.emacs load this file after ~/.emacs-pre, but before ~/.emacs-post.
 ;; ======================================================================
-;; Debugging.
+;; debugging.
 ;; Shut off message buffer by setting nil.
 (setq message-log-max 512)
 ;; Set the debug option to enable a backtrace when a problem occurs.
 (setq debug-on-error nil)               ; t/nil
 ;; ======================================================================
-;; Appearance.
+;; appearance.
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (tooltip-mode -1)
 (scroll-bar-mode 1)
 ;; 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)
 ;; ======================================================================
-;; GNU Serv.
+;; gnu serv, server.
 ;; (load "~/emacs/bin/gnuserv/gnuserv.el")
 ;; (require 'gnuserv)
 ;; (setq gnuserv-frame (selected-frame))
 ;; (desktop-load-default)
 ;; (desktop-read)
 ;; ======================================================================
-;; standart/general settings
+;; standart/general settings.
 (setq kill-whole-line t)
 ;; show column & line numbers in status bar
 (setq column-number-mode t)
 (setq frame-title-format "Emacs - %b")
 (setq read-quoted-char-radix 16)
 ;; ----------------------------------------------------------------------
-;; Switching, creating, selecting buffers.
+;; switching, creating, selecting buffers.
 (iswitchb-mode 1)
 (setq iswitchb-buffer-ignore nil)
 (mapc (lambda (arg) (add-to-list 'iswitchb-buffer-ignore arg))
 '("^ "
 ;; buffer-menu better then buffer-list, but ibuffer much better.
 (global-set-key "\C-x\C-b" 'ibuffer)
 ;; ----------------------------------------------------------------------
-;; Scrolling
+;; scrolling.
 (setq-default
 scroll-step 1
 scroll-conservatively 100
 ;; При перемещении точка останавливается на расстоянии i строк к границе фрейма.
 scroll-margin 2
 scroll-preserve-screen-position t
 )
 ;; ----------------------------------------------------------------------
-;; search
+;; searching.
 (setq case-fold-search t)
 (setq query-replace-highlight t)        ; highlight during query
 (setq search-highlight t)               ; highlight incremental search
 ;; ----------------------------------------------------------------------
 ;; *Text*
 (setq default-major-mode 'text-mode)
 ;; ----------------------------------------------------------------------
-;; syntax highlighting
+;; syntax highlighting.
 (setq font-lock-maximum-decoration t)
 (global-font-lock-mode 1 t)
 ;; ----------------------------------------------------------------------
-;; highlight selected text
+;; highlight selected text.
 ;; 1/-1, when the mark is active, the region is highlighted.
 (transient-mark-mode 1)
 (delete-selection-mode 1)               ; 1/-1
 (setq pc-select-selection-keys-only t)
 (setq pc-select-meta-moves-sexps t)     ; must set before pc-selection-mode enable
 (pc-selection-mode 1)
 (when (eq window-system 'x)
-(setq x-select-enable-clipboard t)    ; from Emacs 21.2.1 and newer
+(setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
 )
 ;; ----------------------------------------------------------------------
-;; line
+;; highlighting current line.
-(if window-system
-(progn
+(when window-system
-(global-hl-line-mode t)
+(custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
-(custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
+(global-hl-line-mode 1)
 )
-)
+;; ----------------------------------------------------------------------
-;; ----------------------------------------------------------------------
+;; paren, braces.
-;; paren, brace
 (show-paren-mode 1) ; Parenthesis matching via highlighting.
 (setq show-paren-style (quote parenthesis))
 ;; ======================================================================
-;; Keyboard, mouse.
+;; keyboard, mouse.
 ;; cyrillic-jcuken  for 567 is :,.
 ;; russian-computer for 567 is %^&
 (setq default-input-method 'cyrillic-jcuken)
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 ;; ----------------------------------------------------------------------
-;; Completition
+;; completition.
 ;; partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
 ;; read-file-name used in rgrep, so I disable partial-completion-mode.
 (partial-completion-mode -1) ; For example, M-x p-c-m expands to M-x partial-completion-mode
 ;; ----------------------------------------------------------------------
-;; Mouse
+;; 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)
 (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)
 (global-set-key [C-home] 'beginning-of-buffer)
 (global-set-key [C-end]  'end-of-buffer)
 (if window-system (global-set-key (kbd "C-z") 'nil))
 ;; (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)
 (codepage-setup 866)
 (codepage-setup 1251)
 ;; ======================================================================
 ;; STANDARD LIBRARIES
 ;; ----------------------------------------------------------------------
-;; dired
+;; dired.
 (setq dired-dwim-target t)
 ;; dangerous
 ;; (setq
 ;;  dired-recursive-copies 'top
 ;;  dired-recursive-deletes 'top)
 ;; ----------------------------------------------------------------------
-;; compression, archive
+;; compression, archive.
 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
 (if (fboundp 'auto-compression-mode)
 (auto-compression-mode 1))
-;; ----------------------------------------------------------------------
+(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
-;; image
+(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
+;; ----------------------------------------------------------------------
+;; image.
 (when (fboundp 'auto-image-file-mode)
 (auto-image-file-mode 1))
 ;; ----------------------------------------------------------------------
 (recentf-mode t)
 (setq recentf-max-saved-items 200)
 (global-set-key (kbd "\e\eq")  'recentf-open-files)
 ;; ----------------------------------------------------------------------
-;; revert
+;; 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)
 (mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext))
 grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs -o -name .git ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH "
 grep-highlight-matches nil ; do not set t because some grep do not has --color options
 grep-use-null-device t)
 ;; ----------------------------------------------------------------------
-;; Music
+;; music.
 (setq gnus-audio-au-player "winamp.exe"
 gnus-audio-directory "D:\\music"
 gnus-audio-wav-player "winamp.exe")
 ;; ----------------------------------------------------------------------
-;; archive
+;; browser.
-(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
-(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
-;; ----------------------------------------------------------------------
-;; browser
 (cond
 ((equal window-system 'w32)
 (setq browse-url-browser-function 'browse-url-default-windows-browser))
 (t
 (setq browse-url-browser-function 'browse-url-mozilla)))
-;; ======================================================================
+;; ----------------------------------------------------------------------
-;; TIME SETTING
+;; time.
-;; ----------------------------------------------------------------------
-;; Time
 ;; Also useful such format:
 ;; (setq display-time-format " %H:%M %d-%m-%y ")
 (setq display-time-24hr-format t)
 (setq display-time-default-load-average nil)
 (display-time)                          ; display-time-mode
 ;; ----------------------------------------------------------------------
-;; Calendar
+;; 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)
 ;; Turn on auto-fill mode
 (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
 (put 'narrow-to-page   'disabled nil)
 (put 'narrow-to-region 'disabled nil)
 (put 'scroll-left      'disabled nil)
 ;; ======================================================================
-;; TEX
+;; TEX.
 (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.
 ;; (setq TeX-auto-save t)              ; Enable parse on save.
 ;; (setq-default TeX-master nil)       ; Query for master file. Finally, if you often use \include or \input, you should make AUCTEX aware of the multi-file document structure
 ;     (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))))
+;; ======================================================================
-;; ======================================================================
+;; Reftex activation (Reftex is included with Emacs 21.1).
-;;
-;; Reftex activation (Reftex is included with Emacs 21.1)
 ;; (autoload 'reftex-mode     "reftex" "RefTeX Minor Mode" t)
 ;; (autoload 'turn-on-reftex  "reftex" "RefTeX Minor Mode" nil)
 ;; (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
 ;; ======================================================================
-;; PreviewLatex
+;; PreviewLatex.
 ;(load "preview-latex.el" nil t t)
 ;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
 ;(autoload 'LaTeX-preview-setup "preview")
+;; ======================================================================
-;; ======================================================================
+;; Info.
-;;
-;; Info
 (require 'info)
 (if (equal window-system 'w32)
 (progn
 ;; TODO Write which func to find runemacs.exe dir.
 ;; (setq Info-directory-list (list (expand-file-name "~/../bin/emacs/info")))
 ;; (add-to-list 'Info-directory-list (expand-file-name "~/../bin/MinGW/info") t) ; t - append to the end
 ))
 ;; ======================================================================
-;; man, woman
+;; man, woman.
 (require 'woman)
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
 ;; ======================================================================
-;; shell, sh, bash
+;; shell, sh, bash.
 ;; Setup Emacs to run bash as its primary shell.
 ;; (setq binary-process-input t)
 ;; (setq shell-file-name "bash")
 ;; (setq shell-command-switch "-c")
 ;; prevent quoting.
 (setq find-ls-option '("-exec ls -ld {}  ;" . "-ld"))
 )
 ;; ======================================================================
-;; spell, ispall, aspell
+;; spell, ispall, aspell.
 (setq ispell-program-name "ispell")
 ;(setq ispell-dictionary "russianw"); default dictionary
 ;(setq ispell-local-dictionary "russianw"); default dictionary
 ;(add-hook 'text-mode-hook 'flyspell-mode)
 ;; ======================================================================
 ;; GTD, PIM, organize, todo mode.
 ;; ----------------------------------------------------------------------
-;; org-mode
+;; org-mode.
 (if (>= emacs-major-version 22)
 (progn
 (require 'org)
 ))
 )
 (define-key global-map "\C-ca" 'org-agenda)
 (setq org-agenda-files '("~/.gtd/todo.org")) ))
 ;; ----------------------------------------------------------------------
-;; remember-mode
+;; remember-mode.
 (if (featurep 'remember)
 (progn
 (setq remember-annotation-functions '(org-remember-annotation))
 (setq remember-handler-functions '(org-remember-handler))
 (add-hook 'remember-mode-hook 'org-remember-apply-template)
 (setq
 org-remember-store-without-prompt t
 ) ))
 ;; ======================================================================
-;; whitespace
+;; whitespaces.
 (setq-default show-trailing-whitespace t)
 (setq-default indicate-empty-lines t)
 (setq next-line-add-newlines nil)
 ("\t+" 0 'my-tab-face t)
 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
 ))))))
-;; ======================================================================
+;; ----------------------------------------------------------------------
-;; communication
+;; jabber.
-;; ----------------------------------------------------------------------
-;; jabber
 (when (featurep 'jabber)
 (setq
 jabber-history-enabled t
 jabber-use-global-history nil
 jabber-backlog-number 15
 (when (featurep 'fsm)
 (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)
 (add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1)))
 (setq rcirc-time-format "%H:%M ")
 (defun rcirc-handler-301 (process cmd sender args)
 "/away message handler.")
 ;; ----------------------------------------------------------------------
-;; erc
+;; erc.
 (setq erc-server-coding-system 'utf-8)
 ;; ======================================================================
 ;; VCS, version control, cvs, svn.
 )
 )
 )
 ;; ----------------------------------------------------------------------
-;; 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))
 (setq-default comment-style (quote indent))
 (setq-default comment-column 44)
 (setq fill-column 110) )
 ))
 '(c-mode-hook lisp-mode-hook))
 ;; ----------------------------------------------------------------------
-;; Diff, patch
+;; diff, patch.
 (setq diff-switches "-u")
 ;; ----------------------------------------------------------------------
-;; Indent
+;; indenting.
 (setq standard-indent 4)
 (setq c-basic-offset 4)
 (setq sh-basic-offset 2)
 (setq sgml-basic-offset 4)
 (while (>= i 0)
 (setq tab-stop-list (cons i tab-stop-list))
 (setq i (- i 4))))
 ;; ----------------------------------------------------------------------
-;; Diff.
+;; diff.
 (setq ediff-diff-options "")
 ;; ----------------------------------------------------------------------
 ;; *Compile*
 (setq compile-auto-highlight t
 compile-command "make ")
 ;; compilation window shall scroll down if not 0
 (setq compilation-scroll-output 1)
 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
 ;; ----------------------------------------------------------------------
-;; makefile, make
+;; makefile, make.
 (add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
 ;; ----------------------------------------------------------------------
-;; asm
+;; 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 ":" ":")))
 ;; ----------------------------------------------------------------------
-;; linker
+;; 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))
 )
 ;; ----------------------------------------------------------------------
-;; 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
 (lambda ()
 ;; Automatically inserte newlines after special characters such as brace, comma, semi-colon, and colon.
 (add-hook 'c-mode-common-hook
 (lambda () (c-add-style "my" my-c-style t)))
 (setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my") (other . "my")))
 ;; ----------------------------------------------------------------------
-;; bat file, batch
+;; bat file, batch.
 (when (fboundp 'bat-file-mode)
 (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-file-mode))
 (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-file-mode))
 )
 ;; ----------------------------------------------------------------------
-;; nsis-mode
+;; 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.
 ;; Update the Emacs load-path to include the path to
 ;; the JDE and its require packages. This code assumes
 ;; that you have installed the packages in the emacs/site
 ;; subdirectory of your home directory.
 ;; (add-to-list 'load-path (expand-file-name "~/emacs/site/semantic"))
 ;; (add-hook 'jde-mode-hook 'my-jde-mode-hook)
 ;; (require 'jde)
-;; ********************
+;; ----------------------------------------------------------------------
-;; ECB
+;; ECB.
-;; *******************
 (setq ecb-tip-of-the-day nil)
 ;; (add-to-list 'load-path  "~/emacs/site/ecb-2.32")
 ;; (require 'ecb)
 ;; (global-set-key (kbd "\e\eE") 'ecb-activate)
 ;; ----------------------------------------------------------------------
-;; html
+;; html.
 ;; ----------------------------------------------------------------------
-;; xml
+;; xml.
 ;; ----------------------------------------------------------------------
-;; psgml
+;; psgml.
 (setq sgml-set-face t)                  ; for highlighting in sgml
 ;; ======================================================================
-;; printing
+;; 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 lpr-switches nil)                ; / two variables
 ;(setq printer-name nil)        ; notepad takes the default
 ;(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:
 ;         (list "All Texify run-viewer"
 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
 ;           'TeX-run-command nil t))))
 ;; ----------------------------------------------------------------
-;; SQL
+;; SQL.
 (setq sql-password "")
 ;; ======================================================================
-;; Backup
+;; backuping.
 (setq
 backup-by-copying t                           ; don't clobber symlinks
 backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree
 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
 ;; ======================================================================
-;; auto save
+;; auto save.
 (setq auto-save-default t)
 ;; If nil autosave to different than original to buffer file.
 (setq auto-save-visited-file-name nil)
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)
 ;; ======================================================================
-;; Setup user info.
+;; user info.
 (cd "~/")
 (setq user-full-name "Oleksandr Gavenko")
 (setq user-mail-address "gavenkoa@gmail.com")
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))

changeset 296	e502c69ab80a
parent 295	5be44cff4683
child 297	d5e742141a44