[elpa] 214/352: Lisää virheenkäsittely condition-case-rakenteella

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit e26ed3f2890f68540353d27c9ab312702acf8cc6
Author: Teemu Likonen <address@hidden>
Date:   Sun Jan 2 11:58:33 2011 +0000

    Lisää virheenkäsittely condition-case-rakenteella
---
 wcheck-mode.el |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 893fa71..281616e 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1267,8 +1267,7 @@ was replaced."
                               (wcheck-marked-text-at (1- pos))))
             (return-value nil))
         (if (not overlay-data)
-            (signal 'wcheck-suggestion-error
-                    "There is no marked text here")
+            (signal 'wcheck-suggestion-error "There is no marked text here")
           (let* ((text (aref overlay-data 0))
                  (start (aref overlay-data 1))
                  (end (aref overlay-data 2))
@@ -1283,7 +1282,7 @@ was replaced."
                        (markerp end))
               (with-current-buffer (marker-buffer start)
                 (if buffer-read-only
-                    (message "Buffer is read-only")
+                    (signal 'wcheck-suggestion-error "Buffer is read-only")
                   (delete-region start end)
                   (goto-char start)
                   (insert choice)