monnier pushed a commit to branch master
in repository elpa.
commit 080b63ee4e12bf383e3629acc059a7c72d672658
Author: Teemu Likonen <[email protected]>
Date: Thu Aug 5 05:56:43 2010 +0000
Hyödynnetään vaakasuuntainen tila paremmin oikolukuehdotuspuskurissa
Tekstipohjaisen oikolukuehdotuspuskurin vaakasuuntainen tila
hyödynnetään nyt viimeistä merkkiä myöten, kun puskuriin ladotaan
korjausehdotuksia.
---
wcheck-mode.el | 21 ++++++++++++---------
1 files changed, 12 insertions(+), 9 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 0700007..370911e 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1175,7 +1175,7 @@ or nil."
alist)
(with-temp-buffer
- (setq mode-line-format (list "-- Choose a substitute %-")
+ (setq mode-line-format (list "--- Choose a substitute %-")
cursor-type nil
truncate-lines t)
@@ -1183,20 +1183,22 @@ or nil."
(while (and suggestions chars)
(setq sug (car suggestions)
suggestions (cdr suggestions)
- string (concat " "
- (propertize (format "(%c)" (car chars))
+ string (concat (propertize (format "(%c)" (car chars))
'face 'bold)
- " " sug)
+ " " sug " ")
alist (cons (cons (car chars) sug) alist)
chars (cdr chars))
(insert string)
(when (and suggestions chars
- (>= (+ (- (point) (line-beginning-position))
- (length (concat " ( ) " (car suggestions))))
- (window-width)))
+ (> (+ (- (point) (line-beginning-position))
+ (length (concat "( ) " (car suggestions))))
+ (window-width)))
+ (delete-char -2)
(newline 1))))
- (setq buffer-read-only t)
+
+ (delete-char -2)
(goto-char (point-min))
+ (setq buffer-read-only t)
(let* ((window-min-height 2)
(split-window-keep-point t)
@@ -1217,7 +1219,8 @@ or nil."
((= last ?0) "1-9,0")
((= last ?a) "1-9,0,a")
((memq last (number-sequence ?b ?z))
- (format "1-9,0,a-%c" last)))))
+ (format "1-9,0,a-%c" last))
+ (t ""))))
minibuffer-prompt-properties)))
(set-window-buffer window (current-buffer))
(set-window-dedicated-p window t)
