[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 241/352: Korjataan wcheck-jump-backward -bugi
From: |
Stefan Monnier |
Subject: |
[elpa] 241/352: Korjataan wcheck-jump-backward -bugi |
Date: |
Mon, 07 Jul 2014 14:04:34 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit 4764312724388f43bf9eee76f29f8ca714b27e36
Author: Teemu Likonen <address@hidden>
Date: Sat May 28 10:37:35 2011 +0000
Korjataan wcheck-jump-backward -bugi
Hyppy taaksepäin puskurin alusta alkavaan maalattuun tekstiin ei
toiminut. Vika oli funktiossa wcheck-overlay-previous.
---
wcheck-mode.el | 38 +++++++++++++++++++++-----------------
1 files changed, 21 insertions(+), 17 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index aa9d0de..ed4384c 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1411,26 +1411,30 @@ text."
(defun wcheck-overlay-next (start bound)
- (catch 'overlay
- (dolist (ol (overlays-at start))
- (when (overlay-get ol 'wcheck-mode)
- (throw 'overlay ol)))
- (let ((pos start))
- (while (and (setq pos (next-overlay-change pos))
- (< pos (min bound (point-max))))
- (dolist (ol (overlays-at pos))
- (when (overlay-get ol 'wcheck-mode)
- (throw 'overlay ol)))))))
+ (unless (>= start (point-max))
+ (catch 'overlay
+ (dolist (ol (overlays-at start))
+ (when (overlay-get ol 'wcheck-mode)
+ (throw 'overlay ol)))
+ (let ((pos start))
+ (while (and (setq pos (next-overlay-change pos))
+ (< pos (min bound (point-max))))
+ (dolist (ol (overlays-at pos))
+ (when (overlay-get ol 'wcheck-mode)
+ (throw 'overlay ol))))))))
(defun wcheck-overlay-previous (start bound)
- (catch 'overlay
- (let ((pos start))
- (while (and (setq pos (previous-overlay-change pos))
- (> pos (max bound (point-min))))
- (dolist (ol (overlays-at pos))
- (when (overlay-get ol 'wcheck-mode)
- (throw 'overlay ol)))))))
+ (unless (<= start (point-min))
+ (catch 'overlay
+ (let ((pos start))
+ (while t
+ (setq pos (previous-overlay-change pos))
+ (dolist (ol (overlays-at pos))
+ (when (overlay-get ol 'wcheck-mode)
+ (throw 'overlay ol)))
+ (when (<= pos (max bound (point-min)))
+ (throw 'overlay nil)))))))
(defun wcheck-line-start-at (pos)
- [elpa] 231/352: Versio 2011.01.09, (continued)
- [elpa] 231/352: Versio 2011.01.09, Stefan Monnier, 2014/07/07
- [elpa] 237/352: Makron wcheck-with-language-data muuttujille paremmat nimet, Stefan Monnier, 2014/07/07
- [elpa] 236/352: Lisätään makroihin sisennysasetukset: (declare (indent ...)), Stefan Monnier, 2014/07/07
- [elpa] 238/352: Poistetaan turha #' lambda-rakenteiden edestä, Stefan Monnier, 2014/07/07
- [elpa] 245/352: Correction in wcheck-language-data doc: "variable" -> "value", Stefan Monnier, 2014/07/07
- [elpa] 240/352: Mainostetaan funktiota wcheck-marked-text-at julkiseen käyttöön, Stefan Monnier, 2014/07/07
- [elpa] 246/352: Fix type in doc: "wcheck-parse-" "wcheck-parser-", Stefan Monnier, 2014/07/07
- [elpa] 235/352: Wcheck-versionumero: 2011.02.20, Stefan Monnier, 2014/07/07
- [elpa] 233/352: Uusi ominaisuus: tarkistusohjelman tulosteen jäsennysfunktio, Stefan Monnier, 2014/07/07
- [elpa] 251/352: Clarify the use of regexp-start, -body and -end, Stefan Monnier, 2014/07/07
- [elpa] 241/352: Korjataan wcheck-jump-backward -bugi,
Stefan Monnier <=
- [elpa] 239/352: Tyylillistä hienosäätöä funktioon wcheck-make-overlay, Stefan Monnier, 2014/07/07
- [elpa] 243/352: Add README file, Stefan Monnier, 2014/07/07
- [elpa] 250/352: Improve wcheck-language-data doc, Stefan Monnier, 2014/07/07
- [elpa] 244/352: Copy Emacs wiki page's content to new README file, Stefan Monnier, 2014/07/07
- [elpa] 249/352: Fix a typo in wcheck-language-data doc string, Stefan Monnier, 2014/07/07
- [elpa] 253/352: Add \< and \> to regexps in "email" language example, Stefan Monnier, 2014/07/07
- [elpa] 252/352: Rephrase grouping construct \(\) description in doc string, Stefan Monnier, 2014/07/07
- [elpa] 247/352: Escape \\< with \\=\\< in wcheck-language-data doc string, Stefan Monnier, 2014/07/07
- [elpa] 248/352: Clearer reference to the license text, Stefan Monnier, 2014/07/07
- [elpa] 255/352: Copy examples from wcheck-language-data doc to README, Stefan Monnier, 2014/07/07