[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 103/352: Siirretään overlayt uuteen paikkaan
From: |
Stefan Monnier |
Subject: |
[elpa] 103/352: Siirretään overlayt uuteen paikkaan |
Date: |
Mon, 07 Jul 2014 14:02:49 +0000 |
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)
- [elpa] 102/352: Poistetaan turhia testejä funktiosta wcheck-combine-two, (continued)
- [elpa] 102/352: Poistetaan turhia testejä funktiosta wcheck-combine-two, Stefan Monnier, 2014/07/07
- [elpa] 91/352: Muutos muuttujan kuvauksessa: buffer-specific --> buffer-local, Stefan Monnier, 2014/07/07
- [elpa] 97/352: Kielellistä hienosaatöä muuttujan wcheck-language-data ohjeeseen, Stefan Monnier, 2014/07/07
- [elpa] 95/352: Lisätään tarkistus ulkoisen prosessin päälläolosta, Stefan Monnier, 2014/07/07
- [elpa] 99/352: Maalataan sanat tiedossa olevan tekstialueen perusteella, Stefan Monnier, 2014/07/07
- [elpa] 98/352: Luetaan vain tarpeelliset tekstialueet, Stefan Monnier, 2014/07/07
- [elpa] 100/352: Merkitään funtio-objektit #'-merkillä, Stefan Monnier, 2014/07/07
- [elpa] 101/352: Korjataan kirjoitusvirhe funktion kuvauksesta, Stefan Monnier, 2014/07/07
- [elpa] 106/352: Muutetaan prosessit puskurikohtaisiksi, Stefan Monnier, 2014/07/07
- [elpa] 96/352: Customize-tyypin "face" tilalle "symbol", Stefan Monnier, 2014/07/07
- [elpa] 103/352: Siirretään overlayt uuteen paikkaan,
Stefan Monnier <=
- [elpa] 105/352: wcheck-update-buffer-data uuden tietokannan mukaiseksi, Stefan Monnier, 2014/07/07
- [elpa] 110/352: Muutetaan wcheck-send-words hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 107/352: Poistetaan turha wcheck-end-process, Stefan Monnier, 2014/07/07
- [elpa] 104/352: Lisätään matalan tason tietokantafunktiot, Stefan Monnier, 2014/07/07
- [elpa] 114/352: Asetetaan ajastinfunktiot hakemaan tiedot uudesta tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 108/352: Siirretään koukkujen asennus omiin funktioihinsa, Stefan Monnier, 2014/07/07
- [elpa] 112/352: Muutetaan wcheck-make-overlay hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 116/352: Muutetaan tietokannan kyselyfunktio geneerisemmäksi, Stefan Monnier, 2014/07/07
- [elpa] 109/352: Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta, Stefan Monnier, 2014/07/07
- [elpa] 120/352: Kielellistä hienosäätöä dokumentteihin, Stefan Monnier, 2014/07/07