hchbaw

diff --git a/auto-install.el b/auto-install.el
index 75b1e04..609239f 100644
--- a/auto-install.el
+++ b/auto-install.el
@@ -858,12 +858,12 @@ (defun auto-install-batch (&optional extension-name)
 (defun auto-install-batch-edit ()
   "Edit auto-install-batch-list.el"
   (interactive)
-  (con ((fboundp 'yaoddmuse-edit)
-        (yaoddmuse-edit "EmacsWiki" "auto-install-batch-list.el"))

hchbaw

#autoload +X

__git_files () {
  local expl files ls_opts opts gitdir gitcdup

  zparseopts -D -E -a opts -- -cached -deleted -modified -others -ignored -unmerged -killed

  gitdir=$(_call_program gitdir git rev-parse --git-dir 2>/dev/null)
  __git_command_successful || return

hchbaw

#autoload +X

__git_files () {
  local expl

  _wanted files expl 'file' _files
}

hchbaw

#autoload +X

__git_files () {
  local expl files ls_opts opts gitdir gitcdup

  zparseopts -D -E -a opts -- -cached -deleted -modified -others -ignored -unmerged -killed

  gitdir=$(_call_program gitdir git rev-parse --git-dir 2>/dev/null)
  __git_command_successful || return

hchbaw

num  calls                time                       self            name
-----------------------------------------------------------------------------------
 1)    1         240.92   240.92   93.33%    235.62   235.62   91.27%  __git_files
 2)    1         251.91   251.91   97.58%      8.24     8.24    3.19%  _git
 3)    1           4.02     4.02    1.56%      4.02     4.02    1.56%  precmd
 4)    1           1.36     1.36    0.53%      1.28     1.28    0.50%  _path_files
 5)    1         242.16   242.16   93.81%      1.24     1.24    0.48%  __git_cached_files
 6)    1         254.13   254.13   98.44%      1.23     1.23    0.48%  _main_complete
 7)    3           1.91     0.64    0.74%      1.17     0.39    0.45%  _description
 8)    4           0.97     0.24    0.38%      0.97     0.24    0.38%  _setup

hchbaw

num  calls                time                       self            name
-----------------------------------------------------------------------------------
 1)    1       16081.50 16081.50   98.07%  16081.50 16081.50   98.07%  _multi_parts
 2)    1       16322.81 16322.81   99.55%    238.60   238.60    1.46%  __git_files
 3)    2       16371.33  8185.67   99.84%     45.05    22.53    0.27%  _git
 4)    1       16393.63 16393.63   99.98%     21.37    21.37    0.13%  _main_complete
 5)    1           3.76     3.76    0.02%      3.76     3.76    0.02%  precmd
 6)    1       16323.95 16323.95   99.55%      1.14     1.14    0.01%  __git_cached_files
 7)    1       16324.99 16324.99   99.56%      0.95     0.95    0.01%  _call_function
 8)    1       16083.38 16083.38   98.09%      0.87     0.87    0.01%  _all_labels

hchbaw

;;; anything-git-status-from-zle
;;; Powered by the rubikitch's anything-zsh-history-from-zle
;;; http://d.hatena.ne.jp/rubikitch/20091208/anythingzsh
;;; Thank you very much rubikitch!

(require 'anything-menu)

(defgroup anything-git-status nil
  "anything-git-status"
  :prefix "anything-git-status-"

hchbaw

;; Anything.el で今見えている候補群を一挙にマークする anything 実行中用コマンド
;; http://d.hatena.ne.jp/hchbaw/20100226/1267200447
(defun my-anything-activate-source-visible-mark ()
  "Activate the visible mark for each candidate of the current source."
  (interactive)
  (my-anything-activate-source-visible-mark-1))

(defun my-anything-deactivate-source-visible-mark ()
  "Deactivate the visible mark for each candidate of the current source."
  (interactive)

hchbaw

From a382a04a3a9515bf34b56f58107920670908bd27 Mon Sep 17 00:00:00 2001
From: Takeshi Banse <[email protected]>
Date: Sat, 27 Feb 2010 02:27:40 +0900
Subject: If the source does not match, try next

and if overlay has been there already, try next, too.
---
 /anything.el |   21 ++++++++++++++-------
 1 files changed, 14 insertions(+), 7 deletions(-)

hchbaw

From 388bdc585dc6fd64d2be2c9fe02a47963aad00dd Mon Sep 17 00:00:00 2001
From: Takeshi Banse <[email protected]>
Date: Sat, 27 Feb 2010 02:25:33 +0900
Subject: Delete even if the first member of overlays is IT.

---
 /anything.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/anything.el b/anything.el