# HG changeset patch # User Oleksandr Gavenko # Date 1262077038 -7200 # Node ID 9bbf7d3d45b312ae6fdefa0b46fc94c738c3afae # Parent e8dde6202139b3a22acb82b55382251bd1252398# Parent 39054eb39d27d05bb0b73873ce24ef3508fa39c1 merged diff -r 39054eb39d27 -r 9bbf7d3d45b3 .emacs --- a/.emacs Wed Dec 23 13:04:05 2009 +0200 +++ b/.emacs Tue Dec 29 10:57:18 2009 +0200 @@ -18,6 +18,8 @@ (defvar dot-emacs-post (expand-file-name "~/.emacs-post") "Path to file with post-loaded custom settings.") +(add-to-list 'auto-mode-alist '("\\.emacs-.*" . emacs-lisp-mode) t) + ;; pre-load custom settings (if (file-exists-p dot-emacs-pre) (load dot-emacs-pre)) diff -r 39054eb39d27 -r 9bbf7d3d45b3 .emacs-my --- a/.emacs-my Wed Dec 23 13:04:05 2009 +0200 +++ b/.emacs-my Tue Dec 29 10:57:18 2009 +0200 @@ -15,10 +15,6 @@ ;; Shut off message buffer by setting nil. (setq message-log-max 100) -;;(add-hook 'after-init-hook -;; '(lambda () (setq debug-on-error t))) -;;(debug-on-entry 'command-line-1) - ;; Set the debug option to enable a backtrace when a problem occurs. (setq debug-on-error nil) ; t/nil @@ -32,7 +28,7 @@ (scroll-bar-mode 1) (if window-system - ;; Для X-window и Win + ;; For graphical environment. (progn ;;установка цветов экрана (set-background-color "white") @@ -45,11 +41,14 @@ ;; (set-face-font 'default "7x14") (fringe-mode 'default) ) - ;; Для tty + ;; For tty. (progn ) ) +;; See what I am typing immediately (for keystroke in minibuffer). +(setq echo-keystrokes 0.2) + ;; ---------------------------------------------------------------------- ;; Silent runing. @@ -125,6 +124,14 @@ ) ;; ---------------------------------------------------------------------- +;; search +(setq case-fold-search t) + +;; ---------------------------------------------------------------------- +;; *Occur* +(global-set-key [f7] 'occur) ; Key binding as in mc + +;; ---------------------------------------------------------------------- ;; *Text* (setq default-major-mode 'text-mode) @@ -177,7 +184,10 @@ ;; ---------------------------------------------------------------------- ;; Completition -(partial-completion-mode t) ; For example, M-x p-c-m expands to M-x partial-completion-mode + +;; 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 @@ -209,9 +219,6 @@ (global-set-key [M-f4] 'save-buffers-kill-emacs) (global-set-key [f6] 'toggle-truncate-lines) -;; *Occur* -(global-set-key [f7] 'occur) ; Key binding as in mc - ;; frames, windows manipulation, switch buffers (global-set-key [?\C-x right] 'next-buffer) (global-set-key [?\C-x left] 'previous-buffer) @@ -335,27 +342,31 @@ ;; ====================================================================== ;; Convenient +(defun reglen() + "Show region length." + (interactive) + (message "%s" (- (region-end) (region-beginning)))) + ;; ---------------------------------------------------------------------- ;; Completion (require 'icomplete) ; Interactive completion in minibuffer. (icomplete-mode 1) -(setq completion-ignored-extensions - '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/" - ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc" - ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf" - ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" - ".fns" ".kys" ".pgs" ".tps" ".vrs")) +(mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext)) + '( + ".class" "~" ".aux" + ".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/" + ) ) ;; ---------------------------------------------------------------------- ;; *grep* (setq grep-command "find . -name '*' -exec grep -nH '' {} ;" - grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH " + 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-tree-command "find -type f -print0 | xargs -0 -e grep -nH " grep-use-null-device t) -(setq blink-matching-paren-on-screen t) ;; ---------------------------------------------------------------------- ;; Music @@ -422,31 +433,10 @@ ;; ---------------------------------------------------------------------- ;; unknown -;; (require 'desire) -;; (add-to-list 'desire-load-path -;; (expand-file-name "~/share/emacs/desire")) -;; (add-to-list 'auto-mode-alist -;; (cons (concat (regexp-quote desire-extension) "\\'") -;; 'emacs-lisp-mode)) - -;; (desire 'browse-url) -;; (desire 'mailcrypt) -;; (desire 'gnus) -;; (desire 'message) -;; (desire 'sendmail) -;; (desire 'bbdb "bbdb") -;; (desire 'pilot) -;; (desire 'bibtex) -;; (desire 'eiffel-mode) -;; (desire 'emacs-w3m) -;; (desire 'eudc) -;; (desire 'filladapt) -;;;; (desire 'hugs-mode) -;; (desire 'mpg123) -;; (desire 'php-mode) -;; (desire 'ps-print) -;; (require 'chord-mode) ; edit guitar music. -;; (require 'discography) ; variant of BibTeX mode for discographies. +;; 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 ;; ====================================================================== ;; unNOVICEd commands... @@ -550,7 +540,9 @@ ;; (setenv "SHELL" shell-file-name) (when (eq window-system 'w32) ; may require Cygwin or MSYS - (setq explicit-shell-file-name "bash") + (setenv "ESHELL" "bash") + ;; (setq explicit-shell-file-name "bash") + ;; (setq shell-file-name "bash") (setq explicit-bash-args '("-i")) (setq explicit-sh-args '("-i")) ;; Here is workaround: when explicit-shell-file-name is "bash" and shell-file-name is "cmdproxy.exe" @@ -653,9 +645,7 @@ "List of development modes." ) (add-hook 'font-lock-mode-hook (function (lambda () - (when (or - (member major-mode my-devel-mode-list) - ) + (when (member major-mode my-devel-mode-list) (font-lock-add-keywords nil '( ("\t+" 0 'my-tab-face t) @@ -899,7 +889,7 @@ ;; ---------------------------------------------------------------------- ;; bat file, batch -(when (provide 'bat-mode) +(when (featurep 'bat-mode) (progn (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-mode)) (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-mode)) @@ -1013,35 +1003,9 @@ ;; ---------------------------------------------------------------- ;; SQL -;; (desire 'sql-mode) (setq sql-password "") ;; ====================================================================== -;; -;; Установка режима CUA - все как в Windows -;; поддержка Ctr-c,v,x,d как в windows через пакет CUA - -;; версия 21.3 - -;(require 'cua) -;(CUA-mode t) -;;установка режимов работы курсора через CUA -;(setq CUA-mode-normal-cursor-color "black") -;(setq CUA-mode-overwrite-cursor-color "red") -;(setq CUA-mode-read-only-cursor-color "green") -;(CUA-keypad-mode 'numeric t); доп.клавиатура - цифры -;(CUA-keypad-mode 'prefix t); доп.клавиатура - префиксы регистров (М-2) - -;; версия 21.3.50 и старше - -;(require 'cua-base) -;(cua-mode t) -;;установка режимов работы курсора через CUA -;(setq cua-normal-cursor-color "black") -;(setq cua-overwrite-cursor-color "red") -;(setq cua-read-only-cursor-color "green") - -;; ====================================================================== ;; Backup (setq diff -r 39054eb39d27 -r 9bbf7d3d45b3 INSTALL --- a/INSTALL Wed Dec 23 13:04:05 2009 +0200 +++ b/INSTALL Tue Dec 29 10:57:18 2009 +0200 @@ -1,10 +1,10 @@ -*- mode: outline; coding: cp1251 -*- -Copyright (C) 2008 by Oleksandr Gavenko +Copyright (C) 2008, 2009 by Oleksandr Gavenko * Install note for .emacs. -* Файл настроек. +* Config file. Файл настроек имеет имя ".emacs". При загрузке emacs он ищется по пути "$HOME/.emacs". @@ -20,7 +20,7 @@ ".emacs-my" хранит общие настройки для всех инсталляций, файлы ".emacs-pre" и ".emacs-post" содержат настройки для локальной инсталляции. -* Особенности для Windows. +* Setup on Windows. ** Setup HOME. @@ -30,7 +30,8 @@ ** Setup MANPATH. -To use woman with on Windows set MANPATH like this: +To use woman with on Windows set MANPATH like this (note that path in +Cygwin/MinGW style so you need use cygwin-mount.el): MANPATH=:/cygdrive/d/home/usr/share/man:/usr/share/man:/usr/local/share/man @@ -44,6 +45,16 @@ Also you can set woman-manpath variable. +** Setup INFOPATH. + +To browse info file inside Emacs set INFOPATH like this: + + INFOPATH=e:/bin/gnutls/share/info;e:/bin/gnuwin32/info;e:/bin/gnuwin32/share/info;e:/bin/MinGW/info;e:/bin/MinGW/share/info;e:/bin/wget/info: + +for MinGW. + +Note that last colon symbol is essential for include also Emacs info to list. + * Особенности для Unix. Я решил сохранять файлы настроек в домашнем каталоге основного пользователя,