Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
authorOleksander Gavenko <gavenko_a@3g.ua>
Thu, 17 Apr 2008 23:58:12 +0300
changeset 7 8eae4300e86f
parent 6 d1c4515c3cfa
child 8 c33aa66ebb2e
Перебил сочетание клавиш C-x C-d для вызова dired, вместо dir-list.
.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