diff options
| author | Noam Postavsky | 2019-06-21 07:09:44 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2019-06-25 22:00:03 -0400 |
| commit | 648fdbbcec159e6bfdb7cd06d32c59e8a17a055e (patch) | |
| tree | 49296e3df33421b1b086eb4e5d2912a20fcb2093 /test | |
| parent | b59ffd2290ff744ca4e7cc2748ba6b66fb2f99f1 (diff) | |
| download | emacs-648fdbbcec159e6bfdb7cd06d32c59e8a17a055e.tar.gz emacs-648fdbbcec159e6bfdb7cd06d32c59e8a17a055e.zip | |
Don't bind search-spaces-regexp around possible autoload (Bug#35802)
* lisp/isearch.el (isearch-search-fun-default): Move possible autoload
trigger outside let-binding of search-spaces-regexp.
* lisp/char-fold.el (char-fold-make-table): Remove no longer needed
workaround.
* lisp/info.el (Info-search-whitespace-regexp):
* lisp/isearch.el (search-whitespace-regexp):
* src/search.c (syms_of_search) <search-spaces-regexp>: Add warning
about adding capturing groups to the value.
* test/lisp/char-fold-tests.el: Remove, binding search-spaces-regexp
to a different should be considered a bug.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/char-fold-tests.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/test/lisp/char-fold-tests.el b/test/lisp/char-fold-tests.el index 8a7414084b0..3fde312a133 100644 --- a/test/lisp/char-fold-tests.el +++ b/test/lisp/char-fold-tests.el | |||
| @@ -124,13 +124,5 @@ | |||
| 124 | ;; Ensure it took less than a second. | 124 | ;; Ensure it took less than a second. |
| 125 | (should (< (- (time-to-seconds) time) 1)))))) | 125 | (should (< (- (time-to-seconds) time) 1)))))) |
| 126 | 126 | ||
| 127 | (ert-deftest char-fold--test-bug-35802 () | ||
| 128 | (let* ((char-code-property-alist ; initial value | ||
| 129 | (cons '(decomposition . "uni-decomposition.el") | ||
| 130 | char-code-property-alist)) | ||
| 131 | (search-spaces-regexp "\\(\\s-\\|\n\\)+") | ||
| 132 | (char-fold-table (char-fold-make-table))) | ||
| 133 | (char-fold--test-match-exactly "ä" "ä"))) | ||
| 134 | |||
| 135 | (provide 'char-fold-tests) | 127 | (provide 'char-fold-tests) |
| 136 | ;;; char-fold-tests.el ends here | 128 | ;;; char-fold-tests.el ends here |