anything-describe-function

まだちょっと、重い。

anythingを初期値をとる様にしてみた。

describe-function(C-h f)は、現在のカーソル位置の関数を初期値としてとっているので、それを真似したかった。
anything.elのread-stringのところを変更。
(anything-initial-inputの値を初期値としてとる様に変更)

(defun anything ()
;...
 (let ((minibuffer-local-map anything-map))
            ;(read-string "pattern: "))) ;;変更前
	    (read-string "pattern: " anything-initial-input))) ;;変更後
;

どこかで初期化

(defvar anything-initial-input "")

.emacsに追加

  (defun my-elisp-current-function ()
    (let ((end (point)) (syntax "w_"))
      (skip-syntax-backward syntax)
      (let ((start (point)))
	(buffer-substring-no-properties start end))))

  (defun anything-describe-function () (interactive)
    (let ((anything-sources (list anything-c-source-emacs-functions))
	  (anything-initial-input (my-elisp-current-function)))
      (anything)))  ;;少し遅い。
  (global-set-key "\C-hf" 'anything-describe-function)