From: Agustín Martín <agustin.martin@hispalinux.es>
Date: Mon, 23 Apr 2012 10:03:33 +0000 (+0200)
Subject: Remove obsolete usage of (ispell-insert-word)
X-Git-Tag: emacs-24.2.90~471^2~303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f621ccf5b8d7038c1e614616d7aa831a0e25b18f;p=emacs.git

Remove obsolete usage of (ispell-insert-word)

`ispell-insert-word' is a plain `insert' together with word filtering
through `translation-table-for-input' for character code unification.
This was useful in Emacs 22, but is not needed for Emacs 23 and above
since unification is now direct.

Since XEmacs does not have `translation-table-for-input' there is no
need at all to keep this old code, but use (insert) directly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd2d9ff86aa..5afe17b6f74 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2012-04-23  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
+
+	* ispell.el (ispell-insert-word) Remove unneeded function using
+	obsolete `translation-table-for-input'.
+	(ispell-word, ispell-process-line, ispell-complete-word): Use
+	plain `insert' instead of removed `ispell-insert-word'.
+
 2012-04-22  Chong Yidong  <cyd@gnu.org>
 
 	* cus-edit.el (custom-variable-menu)
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 53822694698..ba333117e08 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1665,16 +1665,6 @@ This allows it to improve the suggestion list based on actual misspellings."
 			  (setq more-lines (= 0 (forward-line))))))))))))))
 
 
-;; Insert WORD while possibly translating characters by
-;; translation-table-for-input.
-(defun ispell-insert-word (word)
-  (let ((pos (point)))
-    (insert word)
-    ;; Avoid "obsolete" warnings for translation-table-for-input.
-    (with-no-warnings
-      (if (char-table-p translation-table-for-input)
-	  (translate-region pos (point) translation-table-for-input)))))
-
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue region)
   "Check spelling of word under or before the cursor.
@@ -1787,7 +1777,7 @@ quit          spell session exited."
 			  ;; Insert first and then delete,
 			  ;; to avoid collapsing markers before and after
 			  ;; into a single place.
-			  (ispell-insert-word new-word)
+			  (insert new-word)
 			  (delete-region (point) end)
 			  ;; It is meaningless to preserve the cursor position
 			  ;; inside a word that has changed.
@@ -3277,7 +3267,7 @@ Returns the sum SHIFT due to changes in word replacements."
 	      (delete-region (point) (+ word-len (point)))
 	      (if (not (listp replace))
 		  (progn
-		    (ispell-insert-word replace) ; insert dictionary word
+		    (insert replace) ; insert dictionary word
 		    (ispell-send-replacement (car poss) replace)
 		    (setq accept-list (cons replace accept-list)))
 		(let ((replace-word (car replace)))
@@ -3451,7 +3441,7 @@ Standard ispell choices are then available."
 	     (setq word (if (atom replacement) replacement (car replacement))
 		   cursor-location (+ (- (length word) (- end start))
 				      cursor-location))
-	     (ispell-insert-word word)
+	     (insert word)
 	     (if (not (atom replacement)) ; recheck spelling of replacement.
 		 (progn
 		   (goto-char cursor-location)