Mercurial > emacs

changeset 20089:5da6e31f3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Karl Heuer <kwzh@gnu.org>
date Sun, 19 Oct 1997 19:54:35 +0000
parents 1d51bc7c2563
children a364e9970764
files lisp/textmodes/ispell.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Fri Oct 17 15:41:57 1997 +0000
+++ b/lisp/textmodes/ispell.el	Sun Oct 19 19:54:35 1997 +0000
@@ -993,7 +993,7 @@
 	(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 @@
 		   (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 @@
 		 (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 @@
 	(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)))