Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix compile warning and test case

  • Loading branch information...
commit 18b99c1fb4b22f7d793afc36ba0ff9836102d17c 1 parent c2763ba
@victorhge authored
Showing with 6 additions and 6 deletions.
  1. +3 −3 iedit-tests.el
  2. +3 −3 iedit.el
View
6 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))
View
6 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))
Please sign in to comment.
Something went wrong with that request. Please try again.