monnier pushed a commit to branch master
in repository elpa.
commit 5e511a2fc095363abe6583dde6381733e79e3e8d
Author: Teemu Likonen <[email protected]>
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
