Changeset 19166 for lang/elisp

Timestamp:

09/11/08 11:47:49 (2 months ago)

Author:

imakado

Message:

thing-at-point を regexp-quote で囲んだ.anything-c-moccur-isearch-forward,backward コマンドに save-window-excursion を追加.

Files:

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

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

@@ -102 +102 @@
 
 ;;; variables
-(defvar anything-c-moccur-version 0.31)
+(defvar anything-c-moccur-version 0.32)
 (defvar anything-c-moccur-anything-invoking-flag nil)
 (defvar anything-c-moccur-anything-initial-pattern "")
@@ -392 +392 @@
     (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) "")
+                                  (regexp-quote (or (thing-at-point 'symbol) ""))
                                 "")))
         (when anything-c-moccur-push-mark-flag
@@ -573 +573 @@
   (interactive)
   (let ((anything-c-moccur-widen-when-goto-line-flag nil))
-    (save-restriction
-      (narrow-to-region (point-at-bol) (point-max))
-      (anything-c-moccur-occur-by-moccur))))
+    (save-window-excursion
+      (save-restriction
+        (narrow-to-region (point-at-bol) (point-max))
+        (anything-c-moccur-occur-by-moccur)))))
 
 (defun anything-c-moccur-isearch-backward ()
@@ -584 +585 @@
                                                                               (reverse -candidates)))
                                                   copied-source)))
-    (save-restriction
-      (narrow-to-region (point-min) (point-at-eol))
-      (anything-c-moccur-occur-by-moccur))))
+    (save-window-excursion
+      (save-restriction
+        (narrow-to-region (point-min) (point-at-eol))
+        (anything-c-moccur-occur-by-moccur)))))
 
 ;;; Commands for `anything-c-moccur-anything-map'