[elpa] 103/352: Siirretään overlayt uuteen paikkaan

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit ac11bd7a46786f45f3a8b5d677f460a3579b72fa
Author: Teemu Likonen <address@hidden>
Date:   Wed Jul 22 07:55:37 2009 +0000

    Siirretään overlayt uuteen paikkaan
---
 wcheck-mode.el |   64 +++++++++++++++++++++++++++++--------------------------
 1 files changed, 34 insertions(+), 30 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index ea7b7ae..56952a2 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -717,7 +717,7 @@ nil remove BUFFER from the list."
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Low-level functions
+;;; Miscellaneous low-level functions
 
 
 (defun wcheck-read-words (language buffer beg end)
@@ -890,35 +890,6 @@ The returned value is a floating point number."
        (/ micros 1000000.0))))
 
 
-(defun wcheck-make-overlay (language buffer beg end)
-  "Create an overlay for use with `wcheck-mode'.
-Create an overlay in BUFFER from range BEG to END. Use overlay's
-\"face\" property as configured in `wcheck-language-data' for
-LANGUAGE."
-  (let ((overlay (make-overlay beg end buffer))
-        (face (wcheck-query-language-data language 'face t)))
-    (dolist (prop `((wcheck-mode . t)
-                    (face . ,face)
-                    (modification-hooks . (wcheck-remove-changed-overlay))
-                    (insert-in-front-hooks . (wcheck-remove-changed-overlay))
-                    (insert-behind-hooks . (wcheck-remove-changed-overlay))
-                    (evaporate . t)))
-      (overlay-put overlay (car prop) (cdr prop)))))
-
-
-(defun wcheck-remove-overlays (&optional beg end)
-  "Remove `wcheck-mode' overlays from current buffer.
-If optional arguments BEG and END exist remove overlays from
-range BEG to END. Otherwise remove all overlays."
-  (remove-overlays beg end 'wcheck-mode t))
-
-
-(defun wcheck-remove-changed-overlay (overlay after beg end &optional len)
-  "Hook for removing overlay which is being edited."
-  (unless after
-    (delete-overlay overlay)))
-
-
 (defun wcheck-combine-overlapping-areas (alist)
   "Combine overlapping items in ALIST.
 ALIST is a list of (A . B) items in which A and B are integers.
@@ -952,4 +923,37 @@ according to A's and all overlapping A B ranges are 
combined."
           (t (append (list a) b)))))
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Overlays
+
+
+(defun wcheck-make-overlay (language buffer beg end)
+  "Create an overlay for use with `wcheck-mode'.
+Create an overlay in BUFFER from range BEG to END. Use overlay's
+\"face\" property as configured in `wcheck-language-data' for
+LANGUAGE."
+  (let ((overlay (make-overlay beg end buffer))
+        (face (wcheck-query-language-data language 'face t)))
+    (dolist (prop `((wcheck-mode . t)
+                    (face . ,face)
+                    (modification-hooks . (wcheck-remove-changed-overlay))
+                    (insert-in-front-hooks . (wcheck-remove-changed-overlay))
+                    (insert-behind-hooks . (wcheck-remove-changed-overlay))
+                    (evaporate . t)))
+      (overlay-put overlay (car prop) (cdr prop)))))
+
+
+(defun wcheck-remove-overlays (&optional beg end)
+  "Remove `wcheck-mode' overlays from current buffer.
+If optional arguments BEG and END exist remove overlays from
+range BEG to END. Otherwise remove all overlays."
+  (remove-overlays beg end 'wcheck-mode t))
+
+
+(defun wcheck-remove-changed-overlay (overlay after beg end &optional len)
+  "Hook for removing overlay which is being edited."
+  (unless after
+    (delete-overlay overlay)))
+
+
 (provide 'wcheck-mode)