[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 204/352: Siirretään makrojen määritykset samaan paikkaan
From: |
Stefan Monnier |
Subject: |
[elpa] 204/352: Siirretään makrojen määritykset samaan paikkaan |
Date: |
Mon, 07 Jul 2014 14:04:06 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit 60233ece2e433f888028e8f432730f2f5f3fa1db
Author: Teemu Likonen <address@hidden>
Date: Sun Jan 2 10:43:39 2011 +0000
Siirretään makrojen määritykset samaan paikkaan
---
wcheck-mode.el | 69 +++++++++++++++++++++++++++++--------------------------
1 files changed, 36 insertions(+), 33 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index eb4e1a8..df9fe82 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -562,6 +562,42 @@ This is used when language does not define a face."
"Process name for `wcheck-mode'.")
+;;; Macros
+
+
+(defmacro wcheck-loop-over-reqs-engine (key var &rest body)
+ `(dolist (,var (delq nil (mapcar (lambda (buffer)
+ (when (wcheck-buffer-data-get
+ :buffer buffer ,key)
+ buffer))
+ (wcheck-buffer-data-get-all :buffer))))
+ (when (buffer-live-p ,var)
+ (with-current-buffer ,var
+ ,@body))))
+
+(defmacro wcheck-loop-over-read-reqs (var &rest body)
+ `(wcheck-loop-over-reqs-engine :read-req ,var ,@body))
+(defmacro wcheck-loop-over-paint-reqs (var &rest body)
+ `(wcheck-loop-over-reqs-engine :paint-req ,var ,@body))
+
+
+(defmacro wcheck-with-language-data (language bindings &rest body)
+ (let ((lang-var (make-symbol "--wck-language--")))
+ `(let* ((,lang-var ,(cadr language))
+ ,@(when (car language)
+ `((,(car language) ,lang-var)))
+ ,@(mapcar
+ (lambda (var)
+ (cond ((symbolp var)
+ (list var `(wcheck-query-language-data
+ ,lang-var ',var)))
+ ((and var (listp var))
+ (list (car var) `(wcheck-query-language-data
+ ,lang-var ',(cadr var))))))
+ bindings))
+ ,@body)))
+
+
;;; Interactive commands
@@ -729,22 +765,6 @@ right-click mouse menu)."
(setq wcheck-timer nil)))
-(defmacro wcheck-loop-over-reqs-engine (key var &rest body)
- `(dolist (,var (delq nil (mapcar (lambda (buffer)
- (when (wcheck-buffer-data-get
- :buffer buffer ,key)
- buffer))
- (wcheck-buffer-data-get-all :buffer))))
- (when (buffer-live-p ,var)
- (with-current-buffer ,var
- ,@body))))
-
-(defmacro wcheck-loop-over-read-reqs (var &rest body)
- `(wcheck-loop-over-reqs-engine :read-req ,var ,@body))
-(defmacro wcheck-loop-over-paint-reqs (var &rest body)
- `(wcheck-loop-over-reqs-engine :paint-req ,var ,@body))
-
-
(defun wcheck-timer-read-event ()
"Send windows' content to checker program or function.
@@ -795,23 +815,6 @@ marking strings in buffers."
3))
-(defmacro wcheck-with-language-data (language bindings &rest body)
- (let ((lang-var (make-symbol "--wck-language--")))
- `(let* ((,lang-var ,(cadr language))
- ,@(when (car language)
- `((,(car language) ,lang-var)))
- ,@(mapcar
- (lambda (var)
- (cond ((symbolp var)
- (list var `(wcheck-query-language-data
- ,lang-var ',var)))
- ((and var (listp var))
- (list (car var) `(wcheck-query-language-data
- ,lang-var ',(cadr var))))))
- bindings))
- ,@body)))
-
-
(defun wcheck-send-strings (buffer strings)
"Send STRINGS for the process that handles BUFFER.
STRINGS is a list of strings to be sent as input for the external
- [elpa] 206/352: Käsitellään oikolukuehdotusten virheet toisella tavalla, (continued)
- [elpa] 206/352: Käsitellään oikolukuehdotusten virheet toisella tavalla, Stefan Monnier, 2014/07/07
- [elpa] 347/352: Add elpa pkg file to the repository (version 2014.5.17), Stefan Monnier, 2014/07/07
- [elpa] 178/352: Käytetään Emacs Lisp -tiedostojen vakiintuneita otsakkeita, Stefan Monnier, 2014/07/07
- [elpa] 315/352: Update copyright year to 2013, Stefan Monnier, 2014/07/07
- [elpa] 154/352: Optimoidaan hieman funktiota wcheck-collect-faces, Stefan Monnier, 2014/07/07
- [elpa] 165/352: Lisätään autoload-vihje funktiolle wcheck-spelling-suggestions, Stefan Monnier, 2014/07/07
- [elpa] 242/352: New feature: call custom functions from suggestion menu, Stefan Monnier, 2014/07/07
- [elpa] 153/352: Siirretään ajastimen käynnistys ja sammutus omiin funktioihinsa, Stefan Monnier, 2014/07/07
- [elpa] 295/352: Minor README formatting, Stefan Monnier, 2014/07/07
- [elpa] 343/352: Delete obsolete variable wcheck-read-or-skip-faces, Stefan Monnier, 2014/07/07
- [elpa] 204/352: Siirretään makrojen määritykset samaan paikkaan,
Stefan Monnier <=
- [elpa] 341/352: Remove "see examples below" from the doc string of wcheck-language-data, Stefan Monnier, 2014/07/07
- [elpa] 326/352: Rephrase README.org file (FIXME and email examples), Stefan Monnier, 2014/07/07
- [elpa] 346/352: Adjust Makefile, Stefan Monnier, 2014/07/07
- [elpa] 217/352: Muutetaan hylätyn korjausehdotusvalinnan virheilmoitusta, Stefan Monnier, 2014/07/07
- [elpa] 316/352: Version 2013.04.07, Stefan Monnier, 2014/07/07
- [elpa] 336/352: Drop the .org suffix from README (mentioned doc string), Stefan Monnier, 2014/07/07
- [elpa] 319/352: Change docstring Github URL to the wcheck-mode's main page, Stefan Monnier, 2014/07/07
- [elpa] 175/352: Korjataan vääränlainen sisennys wcheck-language-datan kuvauksessa, Stefan Monnier, 2014/07/07
- [elpa] 320/352: Remove version information from wcheck-mode.el, Stefan Monnier, 2014/07/07
- [elpa] 124/352: Tehostetaan sanojen lukemista, Stefan Monnier, 2014/07/07