1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-

     2 

     3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

     4 

     5 (iswitchb-mode 1)

     6 

     7 (setq iswitchb-regexp t)

     8 (setq iswitchb-use-virtual-buffers t)

     9 (setq iswitchb-buffer-ignore

    10       '("^ "

    11         "^\\*Buffer"

    12         "^\\*Completions\\*"

    13         "^\\*tramp"

    14         "^\\*Dired log\\*"

    15         "^\\*Quail Completions\\*"

    16         "^\\*Disabled Command\\*"

    17         "^TAGS"

    18         ))

    19 

    20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    21 

    22 (require 'ffap)

    23 (ffap-bindings)

    24 

    25 ;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file,

    26 ;; because when file if directory find-file load dired, if regular file open it.

    27 (global-set-key (kbd "C-x C-f") 'find-file-at-point)

    28 (global-set-key (kbd "C-x C-d") 'find-file-at-point)

    29 (global-set-key (kbd "C-x d") 'find-file-at-point)

    30 

    31 ;; Stop 'ffap' in Dired as its suggestion is inconvenient.

    32 (define-key dired-mode-map (kbd "C-x C-f") 'find-file)

    33 (define-key dired-mode-map (kbd "C-x C-d") 'find-file)

    34 (define-key dired-mode-map (kbd "C-x d") 'find-file)

    35 

    36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    37 

    38 (mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext))

    39       '(

    40         ".class" "~" ".aux"

    41         ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"

    42         ;; Place dir at end to appear at the start of completion-ignored-extensions.

    43         "CVS/" ".hg/" ".svn/" ".git/" ".bzr/"

    44         ) )