mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Remove obsolete usage of (ispell-insert-word)

Browse Source 
`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.
This commit is contained in:
Agustín Martín 2012-04-23 12:03:33 +02:00
parent 1068fe4d1b
commit f621ccf5b8
2 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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)

16
lisp/textmodes/ispell.el
View File

@ -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)