* 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 1bf134302e4937b7ca11fe14ae9a4221734fe668..74909efa3806dd9454c68835689102300943bc46 100644 (file)
--- 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"