monnier pushed a commit to branch master
in repository elpa.
commit 60a71c8cf415ae3451bf79ef0186281af22ab96f
Author: Teemu Likonen <[email protected]>
Date: Sun Jan 9 12:27:44 2011 +0000
Muutetaan mode-line-tieto: "W:" ja kielen kaksi ensimmäistä merkkiä
---
wcheck-mode.el | 18 ++++++++++++++++--
1 files changed, 16 insertions(+), 2 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 6145bc9..d4b8b5e 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -748,6 +748,20 @@ interactively) then change the global default language."
(wcheck-remove-local-hooks buffer)))
+(defun wcheck-mode-line-lang ()
+ (condition-case nil
+ (let (lang-code)
+ (catch 'enough
+ (mapc (lambda (c)
+ (when (char-equal ?w (char-syntax c))
+ (push c lang-code)
+ (when (>= (length lang-code) 2)
+ (throw 'enough t))))
+ (wcheck-buffer-data-get :buffer (current-buffer) :language)))
+ (apply #'string (nreverse lang-code)))
+ (error "")))
+
+
;;;###autoload
(define-minor-mode wcheck-mode
"General interface for text checkers.
@@ -781,7 +795,7 @@ right-click mouse menu). Commands `wcheck-jump-forward' and
area."
:init-value nil
- :lighter " wck"
+ :lighter (" W:" (:eval (wcheck-mode-line-lang)))
:keymap wcheck-mode-map
(condition-case error-data
@@ -1391,7 +1405,7 @@ text."
(defun wcheck-invisible-text-in-area-p (buffer beg end)
(catch 'invisible
- (let ((pos (min beg end)) ;LET, ei LET*
+ (let ((pos (min beg end))
(end (max beg end)))
(when (invisible-p pos)
(throw 'invisible t))
