/[emacs]/emacs/lisp/textmodes/ispell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/ispell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.168 by lute, Mon Jul 4 16:44:59 2005 UTC revision 1.169 by jurta, Sat Jul 9 20:47:19 2005 UTC
# Line 1659  Global `ispell-quit' set to start locati Line 1659  Global `ispell-quit' set to start locati
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)
# Line 1819  Global `ispell-quit' set to start locati Line 1822  Global `ispell-quit' set to start locati
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)
# Line 2512  Return nil if spell session is quit, Line 2516  Return nil if spell session is quit,
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
# Line 2532  Return nil if spell session is quit, Line 2537  Return nil if spell session is quit,
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)
# Line 2609  Return nil if spell session is quit, Line 2615  Return nil if spell session is quit,
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 ()
# Line 2960  Returns the sum shift due to changes in Line 2968  Returns the sum shift due to changes in
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)

Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26