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

the local binding of text-property-default-nonsticky. (Bug#20690)
2015-06-23 01:59:23 +03:00
parent d010523177
commit 1b1b6644c8
1 changed files with 2 additions and 0 deletions
--- 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"