monnier pushed a commit to branch master
in repository elpa.
commit 28adad609388cc3338fd7920f7af3ccb404e9061
Author: Teemu Likonen <[email protected]>
Date: Sun May 17 20:35:53 2009 +0000
Funktion wcheck-change-language kuvaus englanniksi
Lisätään myös kommentteja koodiin ja käännetään interaktiiviset
ilmoitukset englanniksi.
---
wcheck-mode.el | 25 ++++++++++++++++---------
1 files changed, 16 insertions(+), 9 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index f62ce25..9d5dc61 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -215,10 +215,10 @@ oikoluvun niissä ikkunoissa, joiden puskuri on sitä
pyytänyt.")
(defun wcheck-change-language (language &optional global)
- "Vaihtaa oikoluvun kielen arvoksi LANGUAGE. Tavallisesti muutos
-koskee vain nykyistä puskuri, mutta jos GLOBAL on
-non-nil (interaktiivisesti prefix argument), niin vaihdetaan
-oletuskieli."
+ "Change language for current buffer (or globally).
+Change `wcheck-mode' language to LANGUAGE. The change is
+buffer-local but if GLOBAL is non-nil (prefix argument if called
+interactively) then change the default language for new buffers."
(interactive
(let* ((comp (mapcar 'car wcheck-language-data))
(default
@@ -226,13 +226,15 @@ oletuskieli."
wcheck-language
(car comp))))
(list (completing-read
- (format "Vaihda %s (%s): " (if current-prefix-arg
- "oletuskieli uusiin puskureihin"
- "nykyisen puskurin kieli")
+ (format (if current-prefix-arg
+ "Default language for new buffers (%s): "
+ "Language for the current buffer (%s): ")
default)
comp nil t nil nil default)
current-prefix-arg)))
+ ;; Change the language, locally or globally, and update buffer-process
+ ;; bookkeeping data, if needed.
(when (stringp language)
(if global
(setq-default wcheck-language language)
@@ -240,14 +242,19 @@ oletuskieli."
(when wcheck-mode
(wcheck-update-buffer-process-data (current-buffer) language)))
+ ;; If this was called interactively do some checks and maintenance.
(when (called-interactively-p)
(let ((program (wcheck-query-language-data language 'program)))
(cond ((not (wcheck-program-executable-p program))
+ ;; No executable program for the selected language. Turn
+ ;; the mode off.
(when wcheck-mode
(wcheck-mode 0))
- (message (format "Kielen \"%s\" ohjelma \"%s\" ei ole ajettava"
- language program)))
+ (message
+ (format "Language \"%s\": program \"%s\" is not executable"
+ language program)))
+ ;; If the mode is currently turned on we request an update
(wcheck-mode
(wcheck-timer-read-request (current-buffer))
(wcheck-remove-overlays)))))
