monnier pushed a commit to branch master
in repository elpa.
commit 8199f32e8365f3253b116f56dacf047260c93efb
Author: Teemu Likonen <[email protected]>
Date: Sun Dec 26 15:28:30 2010 +0000
Tulostetaan [Empty string], mikäli korvattava teksti on tyhjä merkkijono
---
wcheck-mode.el | 11 +++++++++--
1 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 8b5bf43..267aaf9 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1235,7 +1235,10 @@ choice (a string) or nil."
(let ((menu (list "Choose a substitute"
(cons "" (if suggestions
(mapcar #'(lambda (item)
- (cons item item))
+ (cons (if (> (length item) 0)
+ item
+ "[Empty string]")
+ item))
suggestions)
(list "[No suggestions]"))))))
(x-popup-menu event menu)))
@@ -1261,7 +1264,11 @@ or nil."
suggestions (cdr suggestions)
string (concat (propertize (format "(%c)" (car chars))
'face 'bold)
- " " sug " ")
+ " "
+ (if (> (length sug) 0)
+ sug
+ "[Empty string]")
+ " ")
alist (cons (cons (car chars) sug) alist)
chars (cdr chars))
(insert string)
