mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(ispell-command-loop): Add current dictionary name and program name

Browse Source 
to mode-line-format.
(ispell-region, ispell-process-line): Add current dictionary name
and program name to messages.
This commit is contained in:
Juri Linkov 2005-07-09 20:49:10 +00:00
parent d634a3a2de
commit 4a65d2b34e
2 changed files with 36 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/ChangeLog
View File

@ -1,3 +1,22 @@
2005-07-09 Juri Linkov <juri@jurta.org>
* fringe.el (fringe-mode): Add period in docstring.
(fringe-query-style): Build prompt depending on `all-frames' arg.
* dired.el (dired-marker-char): Avoid quotations for `do' and `mark'
to not create links to unrelated functions in the Help buffer.
* progmodes/compile.el (compilation-mode-hook, compilation-mode):
Doc fix.
* simple.el (next-error-hook): New variable.
(next-error): Use it. Doc fix.
* textmodes/ispell.el (ispell-command-loop): Add current
dictionary name and program name to mode-line-format.
(ispell-region, ispell-process-line): Add current dictionary name
and program name to messages.
2005-07-08 Jay Belanger <belanger@truman.edu>
* calc/calc.el (calc-embedded-announce-formula-alist)

25
lisp/textmodes/ispell.el
View File

@ -1659,7 +1659,10 @@ Global `ispell-quit' set to start location to continue spell session."
;; setup the *Choices* buffer with valid data.
(save-excursion
(set-buffer (get-buffer-create ispell-choices-buffer))
(setq mode-line-format (concat "-- %b -- word: " word))
(setq mode-line-format
(concat "-- %b -- word: " word
" -- dict: " (or ispell-current-dictionary "default")
" -- prog: " (file-name-nondirectory ispell-program-name)))
;; XEmacs: no need for horizontal scrollbar in choices window
(with-no-warnings
(and (fboundp 'set-specifier)
@ -1819,9 +1822,10 @@ Global `ispell-quit' set to start location to continue spell session."
(erase-buffer)
(setq count ?0
skipped 0
mode-line-format (concat
"-- %b -- word: "
new-word)
mode-line-format
(concat "-- %b -- word: " new-word
" -- dict: "
ispell-alternate-dictionary)
miss (lookup-words new-word)
choices miss
line ispell-choices-win-default-height)
@ -2512,9 +2516,10 @@ Return nil if spell session is quit,
(rstart (make-marker)))
(unwind-protect
(save-excursion
(message "Spell checking %s using %s dictionary..."
(message "Spell checking %s using %s with %s dictionary..."
(if (and (= reg-start (point-min)) (= reg-end (point-max)))
(buffer-name) "region")
(file-name-nondirectory ispell-program-name)
(or ispell-current-dictionary "default"))
;; Returns cursor to original location.
(save-window-excursion
@ -2532,7 +2537,8 @@ Return nil if spell session is quit,
(set-marker skip-region-start (- (point) (length key)))
(goto-char reg-start)))
(let (message-log-max)
(message "Continuing spelling check using %s dictionary..."
(message "Continuing spelling check using %s with %s dictionary..."
(file-name-nondirectory ispell-program-name)
(or ispell-current-dictionary "default")))
(set-marker rstart reg-start)
(set-marker ispell-region-end reg-end)
@ -2609,7 +2615,9 @@ Return nil if spell session is quit,
(if (not recheckp) (set-marker ispell-region-end nil))
;; Only save if successful exit.
(ispell-pdict-save ispell-silently-savep)
(message "Spell-checking done")))))
(message "Spell-checking using %s with %s dictionary done"
(file-name-nondirectory ispell-program-name)
(or ispell-current-dictionary "default"))))))
(defun ispell-begin-skip-region-regexp ()
@ -2960,7 +2968,8 @@ Returns the sum shift due to changes in word replacements."
))
(if (not ispell-quit)
(let (message-log-max)
(message "Continuing spelling check using %s dictionary..."
(message "Continuing spelling check using %s with %s dictionary..."
(file-name-nondirectory ispell-program-name)
(or ispell-current-dictionary "default"))))
(sit-for 0)
(setq start (marker-position line-start)