[elpa] 35/352: wcheck-make-overlayn parametriksi puskuri, ei ikkuna

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit c2249ece7215444a10b8b168a1526e253e2daf13
Author: Teemu Likonen <address@hidden>
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)