   "Scroll amount used by `anything-scroll-other-window' and `anything-scroll-other-window-down'.
 If you prefer scrolling line by line, set this value to 1.")
 
+(defvar anything-display-function 'anything-default-display-buffer
+  "Function to display *anything* buffer.
+It is `anything-default-display-buffer' by default, which affects `anything-samewindow'.")
 
 (put 'anything 'timid-completion 'disabled)
 

;; New maintainer.
;;

(defvar anything-version "$Id: anything.el,v 1.177 2009/04/20 02:17:16 rubikitch Exp rubikitch $")
(require 'cl)

;; (@* "User Configuration")

                        (if (featurep 'anything-match-plugin) " " ""))
              any-input)
            any-prompt any-resume any-preselect any-buffer))

;; (@* "Core: Display *anything* buffer")
(defun anything-display-buffer (buf)
  "Display *anything* buffer."
  (funcall anything-display-function buf))

(defun anything-default-display-buffer (buf)
  (funcall (if anything-samewindow 'switch-to-buffer 'pop-to-buffer) buf))

;; (@* "Core: initialize")
(defun anything-initialize ()
