Move related code to common place.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 11 Oct 2012 21:20:05 +0300
changeset 953 3ad3abeec5f9
parent 952 6ec8b1014d11
child 954 1ba0418d2d82
Move related code to common place.
.emacs-my
--- a/.emacs-my	Thu Oct 11 14:06:01 2012 +0300
+++ b/.emacs-my	Thu Oct 11 21:20:05 2012 +0300
@@ -512,31 +512,6 @@
         ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "switching, creating, selecting buffers")
-
-(iswitchb-mode 1)
-(setq iswitchb-buffer-ignore
-      '("^ "
-        "^\*Buffer"
-        "^\*Completions\*"
-        "^\*tramp"
-        "^\*Dired log\*"
-        "^\*Quail Completions\*"
-        "^\*Disabled Command\*"
-        "^TAGS"
-        ))
-
-(require 'uniquify)
-(setq uniquify-buffer-name-style 'post-forward)
-(setq uniquify-separator "|")
-(setq uniquify-after-kill-buffer-p t)
-
-(setq read-buffer-completion-ignore-case t)
-
-;; buffer-menu better then buffer-list, but ibuffer much better.
-(global-set-key "\C-x\C-b" 'ibuffer)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "scrolling")
 
 (defvar my-scroll-margin 4)
@@ -670,12 +645,6 @@
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "completion")
-
-;; I remove partial-completion-mode because it depricated in Emacs 24.0.
-;; Completion controled by 'completion-styles' variable.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mouse")
 
 ;; Scroll Bar gets dragged by mouse butn 1
@@ -766,6 +735,52 @@
  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "switching, creating, selecting buffers")
+
+(iswitchb-mode 1)
+(setq iswitchb-buffer-ignore
+      '("^ "
+        "^\*Buffer"
+        "^\*Completions\*"
+        "^\*tramp"
+        "^\*Dired log\*"
+        "^\*Quail Completions\*"
+        "^\*Disabled Command\*"
+        "^TAGS"
+        ))
+
+(require 'uniquify)
+(setq uniquify-buffer-name-style 'post-forward)
+(setq uniquify-separator "|")
+(setq uniquify-after-kill-buffer-p t)
+
+(setq read-buffer-completion-ignore-case t)
+
+;; buffer-menu better then buffer-list, but ibuffer much better.
+(global-set-key "\C-x\C-b" 'ibuffer)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "minibuffer")
+
+(require 'icomplete) ; Interactive completion in minibuffer.
+(icomplete-mode 1)
+
+(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/"
+        ) )
+(setq read-file-name-completion-ignore-case t)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "completion")
+
+;; I remove partial-completion-mode because it depricated in Emacs 24.0.
+;; Completion controled by 'completion-styles' variable.
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "open file, ffap, dired")
 
 (setq-default save-place t)
@@ -896,21 +911,6 @@
      ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "minibuffer")
-
-(require 'icomplete) ; Interactive completion in minibuffer.
-(icomplete-mode 1)
-
-(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/"
-        ) )
-(setq read-file-name-completion-ignore-case t)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "url")
 
 ;; http://tools.ietf.org/html/rfc3986