monnier pushed a commit to branch master
in repository elpa.
commit ac11bd7a46786f45f3a8b5d677f460a3579b72fa
Author: Teemu Likonen <[email protected]>
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)
