From: Juri Linkov <juri@linkov.net>
Date: Mon, 22 Jun 2015 22:59:23 +0000 (+0300)
Subject: * lisp/replace.el (query-replace-read-from): Add separator to
X-Git-Tag: emacs-25.0.90~1672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b1b6644c8cb27539ca99e97ef2f352f411c06d8;p=emacs.git

* lisp/replace.el (query-replace-read-from): Add separator to

the local binding of text-property-default-nonsticky.  (Bug#20690)
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 1bf134302e4..74909efa380 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -156,6 +156,8 @@ wants to replace FROM with TO."
     ;; unavailable while preparing to dump.
     (custom-reevaluate-setting 'query-replace-from-to-separator)
     (let* ((history-add-new-input nil)
+	   (text-property-default-nonsticky
+	    (cons '(separator . t) text-property-default-nonsticky))
 	   (separator
 	    (when query-replace-from-to-separator
 	      (propertize "\0"