summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJuri Linkov <juri@linkov.net>2015-06-23 01:59:23 +0300
committerJuri Linkov <juri@linkov.net>2015-06-23 01:59:23 +0300
commit1b1b6644c8cb27539ca99e97ef2f352f411c06d8 (patch)
tree41f6866248b1f2f28cb4b03df628778abaa22abe /lisp
parentd010523177889867cf572ff48e8729b1503ea5a4 (diff)
downloademacs-1b1b6644c8cb27539ca99e97ef2f352f411c06d8.tar.gz
* lisp/replace.el (query-replace-read-from): Add separator to
the local binding of text-property-default-nonsticky. (Bug#20690)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/replace.el2
1 files changed, 2 insertions, 0 deletions
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"