monnier pushed a commit to branch master
in repository elpa.

commit 5e511a2fc095363abe6583dde6381733e79e3e8d
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Sun Jan 9 12:29:10 2011 +0000

    Käsitellään hyppytoiminnossa myös puskurin alku ja loppu
    
    Jos puskurin alussa pyydetään hyppäämään taaksepäin tai lopussa
    eteenpäin, ei mitään etsittävää tietenkään ole. Nyt sekin tilanne
    käsitellään.
---
 wcheck-mode.el |   16 +++++++++++-----
 1 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index d5e65d4..74a5ca5 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1025,7 +1025,9 @@ requested it."
                          (wcheck-jump-req buffer window (1- bound)
                                           (- (1- bound) wcheck-jump-step)))
                         (t
-                         (signal 'wcheck-overlay-not-found-error nil))))))
+                         (signal 'wcheck-overlay-not-found-error nil)))))
+               (t
+                (signal 'wcheck-overlay-not-found-error nil)))
 
        (wcheck-overlay-not-found-error
         (message "Found nothing")
@@ -1418,8 +1420,10 @@ text."
         (if (and ol (not (wcheck-invisible-text-in-area-p
                           buffer (point) (overlay-end ol))))
             (goto-char (overlay-end ol))
-          (wcheck-jump-req buffer window (point)
-                           (+ (point) wcheck-jump-step)))))))
+          (if (eobp)
+              (message "End of buffer")
+            (wcheck-jump-req buffer window (point)
+                             (+ (point) wcheck-jump-step))))))))
 
 
 ;;;###autoload
@@ -1437,8 +1441,10 @@ text."
         (if (and ol (not (wcheck-invisible-text-in-area-p
                           buffer (point) (overlay-start ol))))
             (goto-char (overlay-start ol))
-          (wcheck-jump-req buffer window (point)
-                           (- (point) wcheck-jump-step)))))))
+          (if (bobp)
+              (message "Beginning of buffer")
+            (wcheck-jump-req buffer window (point)
+                             (- (point) wcheck-jump-step))))))))
 
 
 ;;; Spelling suggestions

Reply via email to