[elpa] 181/352: Muutetaan korjausehdotuspuskurin ulkonäköä

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit ede4abbfefa7163d986d49b97f86556f8285385f
Author: Teemu Likonen <address@hidden>
Date:   Sun Dec 26 15:28:53 2010 +0000

    Muutetaan korjausehdotuspuskurin ulkonäköä
    
    Aiemmin korjausehdotus tulostettiin muodossa "(1) sana". Nyt ensimmäinen
    sulje jätetään pois.
---
 wcheck-mode.el |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 267aaf9..206c286 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1262,7 +1262,7 @@ 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)
                                    " "
                                    (if (> (length sug) 0)
@@ -1274,14 +1274,13 @@ or nil."
               (insert string)
               (when (and suggestions chars
                          (> (+ (- (point) (line-beginning-position))
-                               (length (concat "( ) " (car suggestions))))
+                               (length (concat "x) " (car suggestions))))
                             (window-width)))
                 (delete-char -2)
                 (newline 1))))
 
           (delete-char -2)
           (goto-char (point-min))
-          (goto-char (line-end-position))
           (setq buffer-read-only t)
 
           (let* ((window-min-height 2)