1659 |
;; setup the *Choices* buffer with valid data. |
;; setup the *Choices* buffer with valid data. |
1660 |
(save-excursion |
(save-excursion |
1661 |
(set-buffer (get-buffer-create ispell-choices-buffer)) |
(set-buffer (get-buffer-create ispell-choices-buffer)) |
1662 |
(setq mode-line-format (concat "-- %b -- word: " word)) |
(setq mode-line-format |
1663 |
|
(concat "-- %b -- word: " word |
1664 |
|
" -- dict: " (or ispell-current-dictionary "default") |
1665 |
|
" -- prog: " (file-name-nondirectory ispell-program-name))) |
1666 |
;; XEmacs: no need for horizontal scrollbar in choices window |
;; XEmacs: no need for horizontal scrollbar in choices window |
1667 |
(with-no-warnings |
(with-no-warnings |
1668 |
(and (fboundp 'set-specifier) |
(and (fboundp 'set-specifier) |
1822 |
(erase-buffer) |
(erase-buffer) |
1823 |
(setq count ?0 |
(setq count ?0 |
1824 |
skipped 0 |
skipped 0 |
1825 |
mode-line-format (concat |
mode-line-format |
1826 |
"-- %b -- word: " |
(concat "-- %b -- word: " new-word |
1827 |
new-word) |
" -- dict: " |
1828 |
|
ispell-alternate-dictionary) |
1829 |
miss (lookup-words new-word) |
miss (lookup-words new-word) |
1830 |
choices miss |
choices miss |
1831 |
line ispell-choices-win-default-height) |
line ispell-choices-win-default-height) |
2516 |
(rstart (make-marker))) |
(rstart (make-marker))) |
2517 |
(unwind-protect |
(unwind-protect |
2518 |
(save-excursion |
(save-excursion |
2519 |
(message "Spell checking %s using %s dictionary..." |
(message "Spell checking %s using %s with %s dictionary..." |
2520 |
(if (and (= reg-start (point-min)) (= reg-end (point-max))) |
(if (and (= reg-start (point-min)) (= reg-end (point-max))) |
2521 |
(buffer-name) "region") |
(buffer-name) "region") |
2522 |
|
(file-name-nondirectory ispell-program-name) |
2523 |
(or ispell-current-dictionary "default")) |
(or ispell-current-dictionary "default")) |
2524 |
;; Returns cursor to original location. |
;; Returns cursor to original location. |
2525 |
(save-window-excursion |
(save-window-excursion |
2537 |
(set-marker skip-region-start (- (point) (length key))) |
(set-marker skip-region-start (- (point) (length key))) |
2538 |
(goto-char reg-start))) |
(goto-char reg-start))) |
2539 |
(let (message-log-max) |
(let (message-log-max) |
2540 |
(message "Continuing spelling check using %s dictionary..." |
(message "Continuing spelling check using %s with %s dictionary..." |
2541 |
|
(file-name-nondirectory ispell-program-name) |
2542 |
(or ispell-current-dictionary "default"))) |
(or ispell-current-dictionary "default"))) |
2543 |
(set-marker rstart reg-start) |
(set-marker rstart reg-start) |
2544 |
(set-marker ispell-region-end reg-end) |
(set-marker ispell-region-end reg-end) |
2615 |
(if (not recheckp) (set-marker ispell-region-end nil)) |
(if (not recheckp) (set-marker ispell-region-end nil)) |
2616 |
;; Only save if successful exit. |
;; Only save if successful exit. |
2617 |
(ispell-pdict-save ispell-silently-savep) |
(ispell-pdict-save ispell-silently-savep) |
2618 |
(message "Spell-checking done"))))) |
(message "Spell-checking using %s with %s dictionary done" |
2619 |
|
(file-name-nondirectory ispell-program-name) |
2620 |
|
(or ispell-current-dictionary "default")))))) |
2621 |
|
|
2622 |
|
|
2623 |
(defun ispell-begin-skip-region-regexp () |
(defun ispell-begin-skip-region-regexp () |
2968 |
)) |
)) |
2969 |
(if (not ispell-quit) |
(if (not ispell-quit) |
2970 |
(let (message-log-max) |
(let (message-log-max) |
2971 |
(message "Continuing spelling check using %s dictionary..." |
(message "Continuing spelling check using %s with %s dictionary..." |
2972 |
|
(file-name-nondirectory ispell-program-name) |
2973 |
(or ispell-current-dictionary "default")))) |
(or ispell-current-dictionary "default")))) |
2974 |
(sit-for 0) |
(sit-for 0) |
2975 |
(setq start (marker-position line-start) |
(setq start (marker-position line-start) |