diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-19 19:54:35 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-19 19:54:35 +0000 |
| commit | 10d31baea624fbf40401baee38aca1c2706ae1dd (patch) | |
| tree | e2e3fdbde0b41efc995db1128ad275c84ce9be16 /lisp/textmodes | |
| parent | e4541b670de21babbaaad1ca849c3a7e57ac2b2d (diff) | |
| download | emacs-10d31baea624fbf40401baee38aca1c2706ae1dd.tar.gz | |
(ispell-change-dictionary): Fix error message.
(ispell-buffer-local-parsing): Fix message.
(ispell-get-word): Use buffer-substring-no-properties.
(ispell-buffer-local-dict): Likewise.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c74a6d971bc..be445f276cc 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -993,7 +993,7 @@ Word syntax described by `ispell-dictionary-alist' (which see)." (error "No word found to check!")) (setq start (match-beginning 0) end (point) - word (buffer-substring start end)) + word (buffer-substring-no-properties start end)) (list word start end))) @@ -1708,7 +1708,7 @@ With prefix argument, set the default directory." (setq ispell-dictionary dict)) (if (null arg) ; set local dictionary (setq ispell-local-dictionary dict))) - (error "Illegal dictionary: %s" dict)) + (error "Invalid Ispell dictionary: %s" dict)) (ispell-kill-ispell t) (message "(Next %sIspell command will use %s dictionary)" (cond ((equal ispell-local-dictionary ispell-dictionary) @@ -2360,7 +2360,7 @@ Includes latex/nroff modes and extended character mode." (process-send-string ispell-process "-\n~nroff")) ((string-match "~" string) ; Set extended character mode. (process-send-string ispell-process (concat string "\n"))) - (t (message "Illegal Ispell Parsing argument!") + (t (message "Invalid Ispell Parsing argument!") (sit-for 2)))))))) @@ -2381,13 +2381,15 @@ Both should not be used to define a buffer-local dictionary." (setq end (save-excursion (end-of-line) (point))) (if (re-search-forward " *\\([^ \"]+\\)" end t) (setq ispell-local-dictionary - (buffer-substring (match-beginning 1) (match-end 1))))) + (buffer-substring-no-properties (match-beginning 1) + (match-end 1))))) (goto-char (point-min)) (while (search-forward ispell-pdict-keyword nil t) (setq end (save-excursion (end-of-line) (point))) (if (re-search-forward " *\\([^ \"]+\\)" end t) (setq ispell-local-pdict - (buffer-substring (match-beginning 1) (match-end 1))))))) + (buffer-substring-no-properties (match-beginning 1) + (match-end 1))))))) ;; Reload if new personal dictionary defined. (if (and ispell-local-pdict (not (equal ispell-local-pdict ispell-personal-dictionary))) |