1410 |
\(\"word\" arg\) word is hand entered. |
\(\"word\" arg\) word is hand entered. |
1411 |
quit spell session exited." |
quit spell session exited." |
1412 |
|
|
1413 |
(interactive (list nil nil current-prefix-arg)) |
(interactive (list ispell-following-word ispell-quietly current-prefix-arg)) |
1414 |
(if continue |
(if continue |
1415 |
(ispell-continue) |
(ispell-continue) |
|
(if (interactive-p) |
|
|
(setq following ispell-following-word |
|
|
quietly ispell-quietly)) |
|
1416 |
(ispell-accept-buffer-local-defs) ; use the correct dictionary |
(ispell-accept-buffer-local-defs) ; use the correct dictionary |
1417 |
(let ((cursor-location (point)) ; retain cursor location |
(let ((cursor-location (point)) ; retain cursor location |
1418 |
(word (ispell-get-word following)) |
(word (ispell-get-word following)) |