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