diff options
author | Juri Linkov <juri@linkov.net> | 2018-04-23 01:10:49 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2018-04-23 01:10:49 +0300 |
commit | 7abd3f2dcf1d31e31f40ca817666e8f66a17284f (patch) | |
tree | 880199c2f4902fb30fab689dd7495106493a1a07 /lisp/replace.el | |
parent | b26872a3b13f69f7f67a4964722d2ef155964c45 (diff) | |
download | emacs-7abd3f2dcf1d31e31f40ca817666e8f66a17284f.tar.gz |
Improve Isearch error handling
* lisp/isearch.el (isearch--momentary-message): Propertize message
suffix with minibuffer-prompt face.
(isearch--describe-regexp-mode): Do not omit description in case
of error in default non-literal search.
(isearch-message-prefix): Display “case-sensitive” in case of error.
(isearch-message-suffix): Propertize message suffix with
minibuffer-prompt face.
(isearch-search-fun-default): Remove unused error handling.
* lisp/vc/add-log.el (change-log-next-buffer): Better handle
errors during wrapping.
Diffstat (limited to 'lisp/replace.el')
-rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index d5d34f652ab..3503b656d9c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -314,7 +314,7 @@ the original string if not." (query-replace-read-to from prompt regexp-flag)))) (list from to (or (and current-prefix-arg (not (eq current-prefix-arg '-))) - (and (memq 'isearch-regexp-function (text-properties-at 0 from)) + (and (plist-member (text-properties-at 0 from) 'isearch-regexp-function) (get-text-property 0 'isearch-regexp-function from))) (and current-prefix-arg (eq current-prefix-arg '-))))) |