diff options
| author | Stefan Monnier | 2004-12-06 15:12:08 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-12-06 15:12:08 +0000 |
| commit | 30bb14430cc6dd9bc44a5b561e2addabc592f4b0 (patch) | |
| tree | 327850d52c26b371a5a6a2338ceda06d5adf4014 | |
| parent | df8e73e1657200f37cea7ea3d25f1b5f9ccd5842 (diff) | |
| download | emacs-30bb14430cc6dd9bc44a5b561e2addabc592f4b0.tar.gz emacs-30bb14430cc6dd9bc44a5b561e2addabc592f4b0.zip | |
(isearch-quote-char): Use it.
| -rw-r--r-- | lisp/isearch.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 1057547cb3f..118d23ce38f 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1682,13 +1682,9 @@ Isearch mode." | |||
| 1682 | ;; single-byte character set, and convert them to Emacs | 1682 | ;; single-byte character set, and convert them to Emacs |
| 1683 | ;; characters. | 1683 | ;; characters. |
| 1684 | (if (and isearch-regexp (= char ?\ )) | 1684 | (if (and isearch-regexp (= char ?\ )) |
| 1685 | (if (condition-case err | 1685 | (if (subregexp-context-p isearch-string pos) |
| 1686 | (progn | 1686 | (isearch-process-search-string "[ ]" " ") |
| 1687 | (string-match isearch-string "") | 1687 | (isearch-process-search-char char)) |
| 1688 | nil) | ||
| 1689 | (error (equal (cadr err) "Unmatched [ or [^"))) | ||
| 1690 | (isearch-process-search-char char) | ||
| 1691 | (isearch-process-search-string "[ ]" " ")) | ||
| 1692 | (and enable-multibyte-characters | 1688 | (and enable-multibyte-characters |
| 1693 | (>= char ?\200) | 1689 | (>= char ?\200) |
| 1694 | (<= char ?\377) | 1690 | (<= char ?\377) |