dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:9bd638f8f74c
+:1639d2540bbd
-;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
+;; -*- mode: lisp; mode: outline-minor; 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.
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; emacs 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
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; mode groups
+;;; mode groups.
 (defvar my-devel-mode-list
 '(
 outline-mode
 sh-mode script-mode
 (defvar my-text-mode-hook-list
 '(outline-mode-hook text-mode-hook)
 "List of text mode hooks.")
-;; ======================================================================
-;; appearance.
+;;; ----------------------------------------------------------------
+;;; appearance.
 (setq default-directory "~/")
 ;; To maximize frame on full screen, not work with Windows Emacs 21.4.
 ;; And maked different height with Emacs 22.3 and 23.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)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; whitespaces.
+;;; whitespaces.
 (setq default-indicate-empty-lines t)
 (setq default-indicate-buffer-boundaries 'left)
 (setq-default show-trailing-whitespace t)
 (setq next-line-add-newlines nil)
 ;; See also 'mode-require-final-newline'.
 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; gnu serv, server.
+;;; 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.
 (if (boundp 'confirm-kill-emacs)
 (setq confirm-kill-emacs 'yes-or-no-p))
 ;; Try to speed things up, especially in VM.
 (setq
 use-dialog-box t
 x-gtk-show-hidden-files t
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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))
 '("^ "
 (setq uniquify-buffer-name-style 'post-forward)
 ;; buffer-menu better then buffer-list, but ibuffer much better.
 (global-set-key "\C-x\C-b" 'ibuffer)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; scrolling.
+;;; scrolling.
 (defvar my-scroll-margin 4)
 (setq-default
 scroll-step 1
 (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) )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; search, isearch, occur.
+;;; search, isearch, occur.
 (setq case-fold-search t)
 (setq query-replace-highlight t)        ; highlight during query
 (setq search-highlight t)               ; highlight incremental search
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; grep, find.
+;;; grep, find.
 ;; This settings have effect from Emacs 22.x.
 (when (eq system-type 'windows-nt)
 ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument'
 ;; quoted by double '\' chars this cause failure.
 (setq grep-highlight-matches nil)
 (setq grep-use-null-device nil)
 (global-set-key [M-f7] 'rgrep)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; syntax highlighting.
+;;; syntax highlighting.
 (setq font-lock-maximum-decoration t)
 (global-font-lock-mode 1)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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
 (when (eq window-system 'x)
 (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; highlighting current line.
+;;; highlighting current line.
 (when window-system
 (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
 (global-hl-line-mode 1)
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; paren, braces.
+;;; paren, braces.
 (show-paren-mode 1) ; Parenthesis matching via highlighting.
 (setq show-paren-style (quote parenthesis))
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; keyboard, mouse.
+;;; 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
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; completion.
+;;; completion.
 ;; I remove partial-completion-mode because it depricated in Emacs 24.0.
 ;; Completion controled by 'completion-styles' variable.
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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)
 (when window-system
 (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 (kbd "C-x 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)
 ;;; open file, ffap
 (setq-default save-place t)
 (require 'saveplace)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; dired.
+;;; dired.
 (require 'dired)
 ;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file,
 ;; because when file if directory find-file load dired, if regular file open it.
 'dired-find-alternate-file)
 (define-key dired-mode-map (kbd "<backspace>")
 (lambda () (interactive) (find-alternate-file "..")))
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; *Recentf*
+;;; 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)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; revert buffer.
+;;; 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))
 ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"
 ;; Place dir at end to appear at the start of completion-ignored-extensions.
 "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
 ) )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; music.
+;;; music.
 (setq gnus-audio-au-player "winamp.exe"
 gnus-audio-directory "D:\\music"
 gnus-audio-wav-player "winamp.exe")
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; browser.
+;;; 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)))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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)
 (setq european-calendar-style t)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;;
+;;; STANDARD HOOKS.
-;; STANDARD HOOKS
 (add-hook 'write-file-hooks 'time-stamp)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; *auto-fill*
+;;; auto-fill.
 (setq-default fill-column 78)
 (defvar my-fill-column 100
 "I use greater value then 78 for comment in prog source.")
 ;; 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
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; cacl, calculator.
+;;; cacl, calculator.
 (setq-default calc-group-digits t)
 (setq-default calc-group-char "'")
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; TeX, LaTeX.
+;;; TeX, LaTeX.
 (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.
 ;; Query for master file. If you often use \include or \input, you should make AUCTEX aware of the
 ;     (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.
+;; 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.
 ;; 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:"))
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; man, woman.
+;;; man, woman.
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; comint
+;;; 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)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; 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")
 ;; (setq explicit-shell-file-name "bash")
 (setq explicit-bash-args '("-i"))
 (setq explicit-sh-args '("-i"))
 )
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; spell, ispell, aspell.
+;;; 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)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; GTD, PIM, organize, todo mode.
+;;; GTD, PIM, organize, todo mode.
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; org-mode.
+;;; org-mode.
 (if (>= emacs-major-version 22)
 (progn
 (require 'org)
 ))
 org-tags-column 64
 )
 (define-key global-map "\C-ca" 'org-agenda)
 (setq org-agenda-files '("~/.gtd/todo.org")) ))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; remember-mode.
+;;; remember-mode.
 (if (or (featurep 'remember) (fboundp 'remember))
 (progn
 (setq remember-annotation-functions '(org-remember-annotation))
 (setq remember-handler-functions '(org-remember-handler))
 ))
 (setq
 org-remember-store-without-prompt t
 ) ))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------------
-;; TODO, XXX, FIXME highlight.
+;;; TODO, XXX, FIXME highlight.
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
 (defface my-tab-face
 '((t :background "gray"))
 ;;                 emacs-lisp-mode))
 ;;   (font-lock-add-keywords mode
 ;;                           '(("\\(XXX\\|FIXME\\|TODO\\)"
 ;;                              1 font-lock-warning-face prepend))))
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; communication
+;;; communication.
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; jabber.
+;;; jabber.
 (when (featurep 'jabber)
 (setq
 jabber-history-enabled t
 jabber-use-global-history nil
 ;; fsm used in emacs jabber
 (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.
 ;; Take off noise message.
 (setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
 (setq erc-current-nick-highlight-type 'nick-or-keyword)
 (setq erc-track-use-faces t)
 (setq erc-server-coding-system 'utf-8)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil.
+;;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil.
 (if (equal window-system 'w32)
 (progn
 (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
 (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251))
 (340 . "#1A00D3")
 (360 . "#0D80E0")))
 )
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; 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-default comment-fill-column my-fill-column)
 (mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) ))
 my-devel-mode-hook-list)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; diff, patch, ediff, emerge.
+;;; diff, patch, ediff, emerge.
 (setq diff-switches "-u")
 (setq ediff-diff-options "")
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; indenting.
+;;; indenting.
 (setq standard-indent 4)
 (setq c-basic-offset 4)
 (setq sh-basic-offset 2)
 (setq sgml-basic-offset 4)
 (setq tab-stop-list nil)
 (while (>= i 0)
 (setq tab-stop-list (cons i tab-stop-list))
 (setq i (- i 4))))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; *Compile*
+;;; 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))
 (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))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; TAGS, etags, ctags, GNU GLOBAL.
+;;; TAGS, etags, ctags, GNU GLOBAL.
 (when (featurep 'etags-table)
 (setq etags-table-search-up-depth 1)
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; CEDET, semantic.
+;;; CEDET, semantic.
 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
 (unless (featurep 'cedet)
 (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2)) (>= emacs-minor-version 24))
 (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)
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; imenu.
+;;; imenu.
 (require 'imenu)
 (when window-system
 (mapc (lambda (hook)
 (add-hook hook
 (run-hooks 'menu-bar-update-hook)
 ) ))
 my-devel-mode-hook-list)
 )
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; windows inf files for driver installing
+;;; windows inf files for driver installing
 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; makefile, make.
+;;; makefile, make.
 (add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; asm, assembler.
+;;; 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.
 (other . "my")
 ))
 ))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; bat file, batch, loaded from 'generic-x.el'.
+;;; bat file, batch.
-;; ----------------------------------------------------------------------
+;; loaded from 'generic-x.el'
-;; 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.
 ;; If you want Emacs to defer loading the JDE until you open a Java file, edit
 ;; the following line:
 ;; (setq defer-loading-jde t)
 ;;     (progn
 ;;       (autoload 'jde-mode "jde" "JDE mode." t)
 ;;       (add-to-list 'auto-mode-alist '("\\.java\\'" . jde-mode))
 ;;       (require 'jde)))
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; ECB.
+;;; ECB.
 (setq ecb-tip-of-the-day nil)
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; html.
+;;; html.
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; xml.
+;;; xml.
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; psgml.
+;;; psgml.
 (setq sgml-set-face t)                  ; for highlighting in sgml
-;; ----------------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; sh, bash.
+;;; sh, bash.
 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; 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:
+;; some more menu entries in the command list:
-;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
+;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
-;;; other variables are defined in tex.el from auctex
+;; other variables are defined in tex.el from auctex
-;;; the meaning of some auctex-varibles:
+;; the meaning of some auctex-varibles:
 ;symbols defined in tex.el and tex-mik.el:
 ;%b name slave tex-file  %t name master tex-file
 ;%d dvi-file  %f ps-file
 ;%l "latex --src-specials"
 ;%n line number  %p printcommand  %q "lpq"
 ;     (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))))
-;; ----------------------------------------------------------------
+;;; ----------------------------------------------------------------
-;; SQL.
+;;; SQL.
 (setq sql-password "")
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; backuping.
+;;; backuping.
 (setq
 make-backup-files t
 ;; In other case (by renaming) you loose original file creation date.
 backup-by-copying t
 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)
-;; ======================================================================
+;;; ----------------------------------------------------------------
-;; user info.
+;;; user info.
 (setq user-full-name "Oleksandr Gavenko")
 (setq user-mail-address "gavenkoa@gmail.com")
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor."
 "You enter to Out Space. Emacs on."
 "Nice day for Emacsing!")) )
 (message (nth (random (length mgs-list)) mgs-list)))))
-;; End loading...
+;;; End loading...

changeset 461	1639d2540bbd
parent 460	9bd638f8f74c
child 462	f99a3783e44e