Changeset 18986 for lang/elisp

Timestamp:

09/08/08 20:33:04 (2 months ago)

Author:

imakado

Message:

ミニバッファ内で使われるsyntax-tableをanything-current-bufferと同じに。

Files:

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

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

@@ -124 +124 @@
 
       (define-key map (kbd "C-M-f")  'anything-c-moccur-anything-next-file-matches)
-      (define-key map (kbd "C-M-b")  'anything-c-moccur-anything-previous-file-matches))
+      (define-key map (kbd "C-M-b")  'anything-c-moccur-anything-previous-file-matches)
+
+      (define-key map (kbd "C-M-%")  'anything-c-moccur-query-replace-regexp)
+      )
     map))
 
@@ -395 +398 @@
     (anything ";;; ")))
 
+(defun anything-c-moccur-query-replace-regexp ()
+  (interactive)
+  (lexical-let ((input-re (minibuffer-contents))
+                (cur-point (first anything-current-position)))
+    (setq anything-saved-action (lambda (dummy)
+                                  (let ((to-string (read-from-minibuffer "to: " input-re)))
+                                    (unwind-protect
+                                        (perform-replace input-re to-string t t nil nil nil (point-min) (point-max))
+                                      (goto-char cur-point)))))
+    (anything-exit-minibuffer)))
+
 ;;; dmoccur
 (defvar anything-c-moccur-dmoccur-buffers nil)
@@ -538 +552 @@
   (anything-c-moccur-anything-try-execute-persistent-action))
 
+
 (defun anything-c-moccur-wrap-word-internal (s1 s2)
   (ignore-errors
-    (save-excursion
-      (backward-sexp)
-      (insert s1))
-    (insert s2)))
+    (let ((cur-syntax-table
+           (with-current-buffer anything-current-buffer
+             (syntax-table))))
+      (when (syntax-table-p cur-syntax-table)
+        (with-syntax-table cur-syntax-table
+          (save-excursion
+            (backward-sexp)
+            (insert s1))
+          (insert s2))))))
 
 (defun anything-c-moccur-start-symbol ()