Changeset 29648 for lang

Timestamp:

02/06/09 18:55:19 (4 years ago)

Author:

imakado

Message:

開いている全バッファを対象にしてoccurを起動するコマンド`anything-c-moccur-buffer-list'を追加.k1LoW++

Files:

• lang/elisp/anything-c-moccur/trunk/anything-c-moccur.el (modified) (1 diff)

lang/elisp/anything-c-moccur/trunk/anything-c-moccur.el

@@ -425 +425 @@
     (anything-exit-minibuffer)))
 
+;; e.x, (global-set-key (kbd "C-c f") (anything-c-moccur-define-occur-command "defun "))
+(defun anything-c-moccur-define-occur-command (initial)
+  (lexical-let ((initial initial))
+    (lambda () (interactive) (anything 'anything-c-source-occur-by-moccur initial))))
+
+
+;;; moccur buffers
+(defvar anything-c-source-moccur-buffer-list
+  '((name . "Moccur To Buffers")
+    (candidates . (lambda ()
+                    (anything-c-moccur-moccur-search anything-pattern nil (buffer-list))
+                    (anything-c-moccur-dmoccur-scraper)))
+    (action . (("Goto line" . anything-c-moccur-dmoccur-goto-line)))
+    (persistent-action . anything-c-moccur-dmoccur-persistent-action)
+    (match . (identity))
+    (requires-pattern . 5)
+    (init . anything-c-moccur-initialize)
+    (cleanup . anything-c-moccur-clean-up)
+    (delayed)
+    (volatile)))
+
+(defun anything-c-moccur-buffer-list ()
+  (interactive)
+  (anything-c-moccur-with-anything-env (list anything-c-source-moccur-buffer-list)
+    (anything)))
+
 ;;; dmoccur
 (defvar anything-c-moccur-dmoccur-buffers nil)