diff options
| author | Richard M. Stallman | 1994-08-24 19:53:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-24 19:53:17 +0000 |
| commit | 7195bb71697202d1f2a524bfcadfc7abc62dbe0f (patch) | |
| tree | 3be158ac43173407a0af7f64b05e4f636ce3ec8a /lisp | |
| parent | e4bfb3b6f1e39693d7f4daeb2efe6911fbfcb534 (diff) | |
| download | emacs-7195bb71697202d1f2a524bfcadfc7abc62dbe0f.tar.gz emacs-7195bb71697202d1f2a524bfcadfc7abc62dbe0f.zip | |
(ispell-buffer-local-words): Don't treat doublequote
specially when splitting the line into words.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 57e572956f3..3b124ccd902 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -2096,7 +2096,9 @@ Both should not be used to define a buffer-local dictionary." | |||
| 2096 | (setq ispell-buffer-local-name (buffer-name))) | 2096 | (setq ispell-buffer-local-name (buffer-name))) |
| 2097 | (let ((end (save-excursion (end-of-line) (point))) | 2097 | (let ((end (save-excursion (end-of-line) (point))) |
| 2098 | string) | 2098 | string) |
| 2099 | (while (re-search-forward " *\\([^ \"]+\\)" end t) | 2099 | ;; This used to treat " specially, but that loses for some |
| 2100 | ;; people using them to fake accented letters. | ||
| 2101 | (while (re-search-forward " *\\([^ ]+\\)" end t) | ||
| 2100 | (setq string (buffer-substring (match-beginning 1) (match-end 1))) | 2102 | (setq string (buffer-substring (match-beginning 1) (match-end 1))) |
| 2101 | (process-send-string ispell-process (concat "@" string "\n"))))))) | 2103 | (process-send-string ispell-process (concat "@" string "\n"))))))) |
| 2102 | 2104 | ||