* lisp/replace.el (how-many): Fix rstart and !rend case.

Fixes: debbugs:15589

* lisp/replace.el (how-many): Fix rstart and !rend case.
Fixes: debbugs:15589
fc7f501b · Oleh Krehel · Glenn Morris · fdcb2049 · fc7f501b · fc7f501b
Commit fc7f501b authored Oct 12, 2013 by Oleh Krehel Committed by Glenn Morris Oct 12, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 3 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/replace.el lisp/replace.el +6 -3

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2013-10-13  Oleh Krehel  <ohwoeowho@gmail.com>
+
+	* replace.el (how-many): Fix rstart and !rend case.  (Bug#15589)
+
 2013-10-13  Andreas Politz  <politza@hochschule-trier.de>

 	* progmodes/sql.el (sql-add-product): Fix paren typo.  (Bug#15435)

--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -810,9 +810,12 @@ a previously found match."
   (keep-lines-read-args "How many matches for regexp"))
  (save-excursion
    (if rstart
-	(progn
-	  (goto-char (min rstart rend))
-	  (setq rend (max rstart rend)))
+        (if rend
+            (progn
+              (goto-char (min rstart rend))
+              (setq rend (max rstart rend)))
+          (goto-char rstart)
+          (setq rend (point-max)))
      (if (and interactive transient-mark-mode mark-active)
 	  (setq rstart (region-beginning)
 		rend (region-end))