[nongnu] elpa/iedit 18b99c1fb4 169/301: Fix compile warning and test case

[ELPA Syncer]

branch: elpa/iedit
commit 18b99c1fb4b22f7d793afc36ba0ff9836102d17c
Author: Victor Ren <victorhge@gmail.com>
Commit: Victor Ren <victorhge@gmail.com>

    Fix compile warning and test case
---
 iedit-tests.el | 6 +++---
 iedit.el       | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/iedit-tests.el b/iedit-tests.el
index 3ac559734f..6624d4bd2a 100644
--- a/iedit-tests.el
+++ b/iedit-tests.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2013-02-26 13:36:47 Victor Ren>
+;; Time-stamp: <2013-06-05 14:36:42 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Version: 0.97
 ;; X-URL: http://www.emacswiki.org/emacs/Iedit
@@ -34,8 +34,8 @@
 
 (ert-deftest iedit-compile-test ()
   (let ((byte-compile-error-on-warn t ))
-    (should (byte-compile-file "iedit.el"))
-    (delete-file "iedit.elc" nil)))
+    (should (byte-compile-file "~/.emacs.d/site-lisp/iedit/iedit.el"))
+    (delete-file "~/.emacs.d/site-lisp/iedit/iedit.elc" nil)))
 
 (defmacro with-iedit-test-buffer (buffer-name &rest body)
   (declare (indent 1) (debug t))
diff --git a/iedit.el b/iedit.el
index 2a360abbbc..2602be0013 100644
--- a/iedit.el
+++ b/iedit.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2013-06-05 14:18:33 Victor Ren>
+;; Time-stamp: <2013-06-05 14:34:44 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Keywords: occurrence region simultaneous refactoring
 ;; Version: 0.97
@@ -357,8 +357,6 @@ Keymap used within overlays:
 
 (defun iedit-mode-from-isearch (regexp)
   "Start Iedit mode using last search string as the regexp."
-  (or isearch-success
-      (error "No match" ))
   (interactive
    (let ((regexp (cond
                   ((functionp isearch-word)
@@ -367,6 +365,8 @@ Keymap used within overlays:
                   (isearch-regexp isearch-string)
                   (t (regexp-quote isearch-string)))))
      (list regexp)))
+  (or isearch-success
+      (error "No match" ))
   (if (or isearch-regexp isearch-word)
       nil
     (setq iedit-initial-string-local isearch-string))