--- a/.emacs-my Wed Feb 03 23:34:38 2010 +0200
+++ b/.emacs-my Wed Feb 03 23:46:34 2010 +0200
@@ -10,7 +10,7 @@
;; ~/.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)
@@ -19,7 +19,7 @@
(setq debug-on-error nil) ; t/nil
;; ======================================================================
-;; Appearance.
+;; appearance.
(menu-bar-mode -1)
(tool-bar-mode -1)
@@ -47,13 +47,13 @@
(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)
@@ -69,7 +69,7 @@
;; (desktop-read)
;; ======================================================================
-;; standart/general settings
+;; standart/general settings.
(setq kill-whole-line t)
@@ -84,7 +84,7 @@
(setq read-quoted-char-radix 16)
;; ----------------------------------------------------------------------
-;; Switching, creating, selecting buffers.
+;; switching, creating, selecting buffers.
(iswitchb-mode 1)
(setq iswitchb-buffer-ignore nil)
@@ -107,7 +107,7 @@
(global-set-key "\C-x\C-b" 'ibuffer)
;; ----------------------------------------------------------------------
-;; Scrolling
+;; scrolling.
(setq-default
scroll-step 1
@@ -118,7 +118,7 @@
)
;; ----------------------------------------------------------------------
-;; search
+;; searching.
(setq case-fold-search t)
@@ -134,12 +134,13 @@
(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)
@@ -153,26 +154,25 @@
(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
-(if window-system
- (progn
- (global-hl-line-mode t)
- (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
- )
+;; highlighting current line.
+
+(when window-system
+ (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
+ (global-hl-line-mode 1)
)
;; ----------------------------------------------------------------------
-;; paren, brace
+;; paren, braces.
(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 %^&
@@ -181,14 +181,14 @@
;; (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)
@@ -197,7 +197,7 @@
(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)
@@ -236,7 +236,7 @@
;; (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)
@@ -316,7 +316,7 @@
;; STANDARD LIBRARIES
;; ----------------------------------------------------------------------
-;; dired
+;; dired.
(setq dired-dwim-target t)
;; dangerous
@@ -325,14 +325,18 @@
;; 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)
+
+(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
+
;; ----------------------------------------------------------------------
-;; image
+;; image.
(when (fboundp 'auto-image-file-mode)
(auto-image-file-mode 1))
@@ -349,13 +353,14 @@
(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."
@@ -363,7 +368,7 @@
(message "%s" (- (region-end) (region-beginning))))
;; ----------------------------------------------------------------------
-;; minibuffer
+;; minibuffer.
(require 'icomplete) ; Interactive completion in minibuffer.
(icomplete-mode 1)
@@ -384,20 +389,13 @@
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
-
-(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
-
-(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
-
-;; ----------------------------------------------------------------------
-;; browser
+;; browser.
(cond
((equal window-system 'w32)
@@ -405,11 +403,8 @@
(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 ")
@@ -418,7 +413,8 @@
(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)))))
@@ -446,7 +442,7 @@
(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
@@ -466,12 +462,12 @@
(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.
@@ -505,10 +501,8 @@
; "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)
@@ -518,17 +512,15 @@
;; (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)
@@ -539,13 +531,14 @@
))
;; ======================================================================
-;; 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)
@@ -567,7 +560,7 @@
)
;; ======================================================================
-;; spell, ispall, aspell
+;; spell, ispall, aspell.
(setq ispell-program-name "ispell")
;(setq ispell-dictionary "russianw"); default dictionary
@@ -589,7 +582,7 @@
;; GTD, PIM, organize, todo mode.
;; ----------------------------------------------------------------------
-;; org-mode
+;; org-mode.
(if (>= emacs-major-version 22)
(progn
@@ -617,7 +610,8 @@
(setq org-agenda-files '("~/.gtd/todo.org")) ))
;; ----------------------------------------------------------------------
-;; remember-mode
+;; remember-mode.
+
(if (featurep 'remember)
(progn
(setq remember-annotation-functions '(org-remember-annotation))
@@ -634,7 +628,7 @@
) ))
;; ======================================================================
-;; whitespace
+;; whitespaces.
(setq-default show-trailing-whitespace t)
(setq-default indicate-empty-lines t)
@@ -677,11 +671,9 @@
("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
))))))
-;; ======================================================================
-;; communication
+;; ----------------------------------------------------------------------
+;; jabber.
-;; ----------------------------------------------------------------------
-;; jabber
(when (featurep 'jabber)
(setq
jabber-history-enabled t
@@ -708,7 +700,7 @@
)
;; ----------------------------------------------------------------------
-;; rcirc
+;; rcirc.
;; Turn on logging everything to a special buffer, for debugging.
;; (setq rcirc-debug-flag t)
@@ -719,7 +711,7 @@
"/away message handler.")
;; ----------------------------------------------------------------------
-;; erc
+;; erc.
(setq erc-server-coding-system 'utf-8)
@@ -765,19 +757,20 @@
)
;; ----------------------------------------------------------------------
-;; 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))
@@ -793,11 +786,12 @@
'(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)
@@ -817,11 +811,13 @@
(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
@@ -837,12 +833,13 @@
;; (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)
@@ -852,7 +849,7 @@
;; (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))
@@ -862,11 +859,12 @@
)
;; ----------------------------------------------------------------------
-;; 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
@@ -924,7 +922,7 @@
(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))
@@ -932,20 +930,21 @@
)
;; ----------------------------------------------------------------------
-;; 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
@@ -985,9 +984,8 @@
;; (require 'jde)
-;; ********************
-;; ECB
-;; *******************
+;; ----------------------------------------------------------------------
+;; ECB.
(setq ecb-tip-of-the-day nil)
;; (add-to-list 'load-path "~/emacs/site/ecb-2.32")
@@ -996,17 +994,18 @@
;; (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")
@@ -1017,7 +1016,7 @@
;;
;; ----------------------------------------------------------------------
-;; printing to file
+;; printing to file.
;(setq printer-name "~/myprint.txt")
;(setq ps-printer-name nil)
@@ -1046,12 +1045,12 @@
; 'TeX-run-command nil t))))
;; ----------------------------------------------------------------
-;; SQL
+;; SQL.
(setq sql-password "")
;; ======================================================================
-;; Backup
+;; backuping.
(setq
backup-by-copying t ; don't clobber symlinks
@@ -1062,7 +1061,7 @@
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.
@@ -1071,7 +1070,7 @@
(setq delete-auto-save-files t)
;; ======================================================================
-;; Setup user info.
+;; user info.
(cd "~/")
(setq user-full-name "Oleksandr Gavenko")