monnier pushed a commit to branch master in repository elpa. commit 8199f32e8365f3253b116f56dacf047260c93efb Author: Teemu Likonen <tliko...@iki.fi> 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)