From f621ccf5b8d7038c1e614616d7aa831a0e25b18f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Mon, 23 Apr 2012 12:03:33 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 7 +++++++ lisp/textmodes/ispell.el | 16 +++------------- 2 files changed, 10 insertions(+), 13 deletions(-) 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 + + * 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 * 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)