monnier pushed a commit to branch master
in repository elpa.
commit c2249ece7215444a10b8b168a1526e253e2daf13
Author: Teemu Likonen <[email protected]>
Date: Sun May 17 12:40:34 2009 +0000
wcheck-make-overlayn parametriksi puskuri, ei ikkuna
Funktion wcheck-make-overlay parametrina oli "window" eli ikkuna, jossa
alleviivaukset näkyvät. Nykyversiossa alleviivaukset näkyvät kaikissa
ikkunoissa, ja koko window-parametria ei enää käytetä mihinkään.
Laitetaan tilalle uusi parametri "buffer" ja merkitään alleviivaukset
eksplisiittisesti tuohon puskuriin eikä siihen, mikä sattuu olemaan
aktiivisena sillä hetkellä, kun funktiota kutsutaan. Näin funktio toimii
luotettavammin ja on riippumattomampi.
---
wcheck-mode.el | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index b98fc02..2f1cc8c 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -493,7 +493,8 @@ käsittelee kieltä LANGUAGE."
(when (window-live-p window)
(with-selected-window window
(save-excursion
- (let ((w-start (window-start window))
+ (let ((buffer (window-buffer window))
+ (w-start (window-start window))
(w-end (window-end window 'update))
(r-start (wcheck-query-language-data language 'regexp-start t))
(r-end (wcheck-query-language-data language 'regexp-end t))
@@ -506,7 +507,7 @@ käsittelee kieltä LANGUAGE."
(while (re-search-forward
(concat r-start "\\(" word "\\)" r-end)
w-end t)
- (wcheck-make-overlay language window
+ (wcheck-make-overlay language buffer
(match-beginning 1)
(match-end 1))))))))))
@@ -538,8 +539,8 @@ ulkoista ohjelmaa. Palauttaa t tai nil."
;;; Overlay
-(defun wcheck-make-overlay (language window beg end)
- (let ((overlay (make-overlay beg end))
+(defun wcheck-make-overlay (language buffer beg end)
+ (let ((overlay (make-overlay beg end buffer))
(face (wcheck-query-language-data language 'face t)))
(dolist (prop `((wcheck-mode . t)
(face . ,face)
