# HG changeset patch # User Oleksander Gavenko # Date 1208465892 -10800 # Node ID 8eae4300e86ff8ce80de5e9d0e9cde39844206b0 # Parent d1c4515c3cfa8bdd2f3d8651d7d629750ebc2c9f Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list. diff -r d1c4515c3cfa -r 8eae4300e86f .emacs --- a/.emacs Thu Apr 17 23:58:12 2008 +0300 +++ b/.emacs Thu Apr 17 23:58:12 2008 +0300 @@ -11,7 +11,7 @@ (setq inhibit-startup-message t) ;; ====================================================================== -;;* DEBUGGING +;; Debugging. ;; Shut off message buffer by setting nil. Note - if you need to debug emacs, ;; comment these out so you can see what's going on. @@ -25,11 +25,11 @@ (setq debug-on-error nil) ; t/nil ;; ====================================================================== -;; Load path +;; Load path. (add-to-list 'load-path (expand-file-name "~/emacs/site-lisp")) ;; ====================================================================== -;;* GNU Serv +;; GNU Serv. ;; (load "~/emacs/bin/gnuserv/gnuserv.el") ;; (require 'gnuserv) @@ -51,8 +51,8 @@ ;; (desktop-read) ;; ====================================================================== -;; -;;* View +;; . +;; View. ; remove menu on nil (menu-bar-mode nil) ; t/nil @@ -83,7 +83,7 @@ ) ;; ====================================================================== -;;* Standart settings +;; Standart settings ; t/nil (scroll-bar-mode t) @@ -98,7 +98,7 @@ (load "~/.emacs-custom.el") ;; ---------------------------------------------------------------------- -;;* Scrolling +;; Scrolling ;; ;; (setq-default scroll-conservatively 70) @@ -120,7 +120,7 @@ (global-font-lock-mode 1 t) ;; ---------------------------------------------------------------------- -;;* Line +;; Line (if window-system (progn (global-hl-line-mode t) @@ -129,14 +129,14 @@ ) ;; ---------------------------------------------------------------------- -;;* Paren +;; Paren (show-paren-mode 1) ; Parenthesis matching via highlighting. ;; (setq show-paren-style 'expression) ; (setq show-paren-style (quote parenthesis)) ;; ====================================================================== -;;* Keyboard, mouse and selection +;; Keyboard, mouse and selection (setq default-input-method 'cyrillic-jcuken) ;; (pc-bindings-mode) ; Myself define keybinding, see @@ -194,9 +194,10 @@ ;; (global-set-key [language-change] 'ignore) +(global-set-key (kbd "C-x C-d") 'dired) ;; ====================================================================== -;;* Coding system, charset, locale, lang. +;; Coding system, charset, locale, lang. ; . (codepage-setup 866) @@ -277,7 +278,7 @@ (auto-compression-mode 1)) ;; ====================================================================== -;;* Save +;; Save (setq auto-save-default nil) ;; ---------------------------------------------------------------------- @@ -295,7 +296,7 @@ (setq auto-revert-interval 2) ;; ====================================================================== -;;* Convenient +;; Convenient ;; ---------------------------------------------------------------------- ;; Completion @@ -326,7 +327,7 @@ ;; ====================================================================== -;;* TIME SETTING +;; TIME SETTING ;; ---------------------------------------------------------------------- ;; Time @@ -355,7 +356,7 @@ (add-hook 'write-file-hooks 'time-stamp) ;; ====================================================================== -;;* *auto-fill* +;; *auto-fill* (setq-default fill-column 90) ;; Turn on auto-fill mode @@ -458,12 +459,12 @@ (put 'narrow-to-region 'disabled nil) ;; ====================================================================== -;;* TEX +;; TEX (setq tex-run-command "initex") ;; ====================================================================== -;;* AUC TeX +;; AUC TeX ;; (add-to-list 'load-path "c:/program files/emacs/site-lisp/auctex/") ;; (load "tex-site") @@ -610,7 +611,7 @@ (require 'mercurial) ;; ====================================================================== -;;* Devel, prog +;; Devel, prog (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) @@ -619,7 +620,7 @@ ;; (setq show-trailing-whitespace t))) ;; ---------------------------------------------------------------------- -;;* Diff, patch +;; Diff, patch ;; (add-hook 'diff-mode-hook '(lambda () ;; (setq show-trailing-whitespace t)) nil t) (setq diff-switches "-u") @@ -779,7 +780,7 @@ ;(global-set-key (kbd "\e\eE") 'ecb-activate) ;; ====================================================================== -;;* Printing +;; Printing ;; Use Notepad to print plain text files to the default Windows printer ;(setq lpr-command "notepad") @@ -851,7 +852,7 @@ ;; ====================================================================== -;;* Backup +;; Backup ;; (setq ;; backup-by-copying t ; don't clobber symlinks