 (defun* anything-gentoo-install (candidate &key action)
   (funcall anything-gentoo-prefered-shell)
   (let ((command (case action
-                   ('install "sudo emerge -av ")
-                   ('uninstall "sudo emerge -avC ")
+                   ('install "*sudo emerge -av ")
+                   ('uninstall "*sudo emerge -avC ")
                    (t (error "Unknow action")))))
   (if (anything-marked-candidates)
       (let ((elms (mapconcat 'identity (anything-marked-candidates) " ")))

  :group 'anything-config)

(defcustom anything-c-google-suggest-url
  "http://www.google.com/complete/search?hl=en&js=true&qu="
  "URL used for looking up suggestions."
  :type 'string
  :group 'anything-config)

    (anything-other-buffer 'anything-c-source-minibuffer-history
                           "*anything minibuffer-history*")))

;; In Emacs 23.1.50, minibuffer-local-must-match-filename-map was renamed to
;; minibuffer-local-filename-must-match-map.
(defvar minibuffer-local-filename-must-match-map (make-sparse-keymap)) ;; Emacs 23.1.+
(defvar minibuffer-local-must-match-filename-map (make-sparse-keymap)) ;; Older Emacsen
(dolist (map (list minibuffer-local-filename-completion-map
                   minibuffer-local-completion-map
                   minibuffer-local-must-match-filename-map
                   minibuffer-local-filename-must-match-map
                   minibuffer-local-map
                   minibuffer-local-isearch-map
                   minibuffer-local-must-match-map
