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

the local binding of text-property-default-nonsticky.  (Bug#20690)
This commit is contained in:
Juri Linkov 2015-06-23 01:59:23 +03:00
parent d010523177
commit 1b1b6644c8

View file

@ -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"