From 10d31baea624fbf40401baee38aca1c2706ae1dd Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 19 Oct 1997 19:54:35 +0000 Subject: [PATCH] (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. --- lisp/textmodes/ispell.el | 12 +++++++----- 1 file 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))) -- 2.39.2