diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-04-16 08:32:38 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-04-16 08:32:38 -0700 |
| commit | 3ab1784327d4d40b3e6bc3a14323740c9a62fa16 (patch) | |
| tree | 6ffd932bcd441d57ad675545ab73b86524412da1 /lisp/replace.el | |
| parent | 6f0b4d81b94ef392b2a7517db94398f20378f444 (diff) | |
| download | emacs-3ab1784327d4d40b3e6bc3a14323740c9a62fa16.tar.gz | |
* lisp/replace.el (query-replace-from-to-separator): Delay initialization
to avoid rogue setting after startup.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 70b86dd2016..8e71615ca14 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -68,14 +68,12 @@ to the minibuffer that reads the string to replace, or invoke replacements from Isearch by using a key sequence like `C-s C-s M-%'." "24.3") (defcustom query-replace-from-to-separator - (propertize - (or (ignore-errors - ;; Ignore errors when attempt to autoload char-displayable-p - ;; fails while preparing to dump. - (if (char-displayable-p ?\u2192) " \u2192 " " -> ")) - " -> ") - 'face 'minibuffer-prompt) + (propertize (if (char-displayable-p ?\u2192) " \u2192 " " -> ") + 'face 'minibuffer-prompt) "String that separates FROM and TO in the history of replacement pairs." + ;; Avoids error when attempt to autoload char-displayable-p fails + ;; while preparing to dump, also stops customize-rogue listing this. + :initialize 'custom-initialize-delay :group 'matching :type 'sexp :version "25.1") |