Changeset 16070 for lang/elisp

Timestamp:

07/22/08 03:41:53 (4 months ago)

Author:

imakado

Message:

関数名の変更

Files:

• lang/elisp/anything-c-moccur/anything-c-moccur.el (modified) (7 diffs)

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

@@ -27 +27 @@
 
 ;; sample config
+;; (require 'anything-c-moccur)
 ;; (global-set-key (kbd "M-o") 'anything-c-moccur-occur-by-moccur)
 ;; (global-set-key (kbd "C-M-o") 'anything-c-moccur-dmoccur)
@@ -252 +253 @@
     (anything-c-moccur-anything-execute-persistent-action)))
 
-(defmacro anything-c-moccur-with-elide-anything-env (sources &rest body)
+(defmacro anything-c-moccur-with-anything-env (sources &rest body)
   (declare (indent 1))
   `(let ((anything-sources ,sources)
@@ -422 +423 @@
 (defun anything-c-moccur-occur-by-moccur ()
   (interactive)
-  (anything-c-moccur-with-elide-anything-env (list anything-c-source-occur-by-moccur)
+  (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
     (let* ((initial-pattern (if anything-c-moccur-enable-initial-pattern
                                 (or (thing-at-point 'symbol) "")
@@ -433 +434 @@
 (defun anything-c-moccur-occur-by-moccur-only-function ()
   (interactive)
-  (anything-c-moccur-with-elide-anything-env (list anything-c-source-occur-by-moccur)
+  (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
     (let ((anything-c-moccur-anything-initial-pattern "! "))
       (when anything-c-moccur-push-mark-flag
@@ -441 +442 @@
 (defun anything-c-moccur-occur-by-moccur-only-comment ()
   (interactive)
-  (anything-c-moccur-with-elide-anything-env (list anything-c-source-occur-by-moccur)
+  (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
     (let ((anything-c-moccur-anything-initial-pattern ";;; "))
       (when anything-c-moccur-push-mark-flag
@@ -539 +540 @@
   (setq anything-c-moccur-dmoccur-buffers buffers)
 
-  (anything-c-moccur-with-elide-anything-env (list anything-c-source-dmoccur)
+  (anything-c-moccur-with-anything-env (list anything-c-source-dmoccur)
     (anything))))
 
@@ -572 +573 @@
     (setq anything-c-moccur-dired-do-moccur-buffers buffers)
 
-    (anything-c-moccur-with-elide-anything-env (list anything-c-source-dired-do-moccur)
+    (anything-c-moccur-with-anything-env (list anything-c-source-dired-do-moccur)
       (anything))))