gistfile1.el

;;; anything
(setq anything-command-map-prefix-key "C-x C-a")
(require 'anything)
;; C-z は C-; で実行できるようにする
(define-key anything-map (kbd "C-;") 'anything-execute-persistent-action)
(define-key anything-map (kbd "M-;") 'anything-execute-persistent-action)
(require 'anything-startup)
(dolist (map (list
              anything-map
              anything-c-buffer-map
              anything-find-files-map
              anything-c-read-file-map
              anything-generic-files-map
              anything-c-grep-map
              anything-c-pdfgrep-map
              anything-c-etags-map
              anything-eval-expression-map
              anything-c-ucs-map
              anything-c-bookmark-map
              anything-esh-on-file-map
              ))
  (define-key map (kbd "C-h") 'delete-backward-char)
  (define-key map (kbd "C-w") 'backward-kill-word)
  )
(global-set-key (kbd "C-x a a") 'anything-apropos)
(global-set-key (kbd "C-x b") 'anything-for-files)
(require 'anything-c-moccur)
(global-set-key (kbd "C-; C-s") 'anything-c-moccur-occur-by-moccur)
(define-key isearch-mode-map (kbd "C-o") 'anything-c-moccur-from-isearch)
;(setq anything-samewindow nil)
;(push '("*anything*" :regexp t :height 20) popwin:special-display-config)
(setq recentf-max-saved-items 500)
(setq enable-recursive-minibuffers t)
;; バッファに対しては、カーソルを合わせただけで中身を表示する
(defun-add-hook 'anything-move-selection-after-hook
  (when (eq (cdr (assq 'type (anything-get-current-source))) 'buffer)
    (anything-execute-persistent-action)))