[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0be7b49 7/7: Merge branch 'wcheck-update'
From: |
Teemu Likonen |
Subject: |
[elpa] master 0be7b49 7/7: Merge branch 'wcheck-update' |
Date: |
Tue, 05 Jan 2016 13:20:55 +0000 |
branch: master
commit 0be7b49c8eb7359c4c6f0ac74563cc1dca803fc2
Merge: 9611c98 2baed0b
Author: Teemu Likonen <address@hidden>
Commit: Teemu Likonen <address@hidden>
Merge branch 'wcheck-update'
* wcheck-update:
wcheck-mode: update README, copyright etc.
wcheck-mode: update copyright year and version 2016.1.5
wcheck-mode: evaluate wcheck--buffer-data-key-index only once
wcheck-mode: precalculate (expt 2 16)
wcheck-mode: make generated face predicate a lambda
wcheck-mode: change some wordings in comments
---
packages/wcheck-mode/README.md | 15 +++++------
packages/wcheck-mode/wcheck-mode.el | 46 ++++++++++++++++++----------------
2 files changed, 31 insertions(+), 30 deletions(-)
diff --git a/packages/wcheck-mode/README.md b/packages/wcheck-mode/README.md
index 87b1784..c7b11d8 100644
--- a/packages/wcheck-mode/README.md
+++ b/packages/wcheck-mode/README.md
@@ -18,7 +18,7 @@ checking text. For example, Wcheck mode can be used with
spell-checker
programs such as Ispell, Enchant and Hunspell, but actually any tool
that can receive text from standard input stream and send text to
standard output can be used. Wcheck mode sends parts of buffer's content
-to an external program or an Emacs Lisp function and, based on their
+to an external program or an Emacs Lisp function and, relying on their
output, decides if some parts of text should be marked in the buffer.
[Emacs]: http://www.gnu.org/software/emacs/
@@ -91,10 +91,10 @@ checker.
Install
-------
-You can install Wcheck mode through [Marmalade][] or [Melpa][] package
-archive. Alternatively you can put `wcheck-mode.el` file to some
-directory in your Emacs's `load-path` and add the following lines to
-Emacs's initialization file (`~/.emacs` or `~/.emacs.d/init.el`):
+You can install Wcheck mode through [Melpa][] package archive.
+Alternatively you can put `wcheck-mode.el` file to some directory in
+your Emacs's `load-path` and add the following lines to Emacs's
+initialization file (`~/.emacs` or `~/.emacs.d/init.el`):
(autoload 'wcheck-mode "wcheck-mode"
"Toggle wcheck-mode." t)
@@ -107,8 +107,7 @@ Emacs's initialization file (`~/.emacs` or
`~/.emacs.d/init.el`):
(autoload 'wcheck-jump-backward "wcheck-mode"
"Move point backward to previous marked text area." t)
-[Marmalade]: http://marmalade-repo.org/
-[Melpa]: http://melpa.milkbox.net/
+[Melpa]: https://melpa.org/
Configuration and basic usage
@@ -337,7 +336,7 @@ branches and possibly merged to _master_ when they are
ready.
Copyright and license
---------------------
-Copyright (C) 2009-2014 Teemu Likonen <<address@hidden>>
+Copyright (C) 2009-2016 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
diff --git a/packages/wcheck-mode/wcheck-mode.el
b/packages/wcheck-mode/wcheck-mode.el
index ed46e78..bb61dd0 100644
--- a/packages/wcheck-mode/wcheck-mode.el
+++ b/packages/wcheck-mode/wcheck-mode.el
@@ -1,13 +1,13 @@
;;; wcheck-mode.el --- General interface for text checkers
-;; Copyright (C) 2009-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2016 Free Software Foundation, Inc.
;; Author: Teemu Likonen <address@hidden>
;; Maintainer: Teemu Likonen <address@hidden>
;; Created: 2009-07-04
;; URL: https://github.com/tlikonen/wcheck-mode
;; Keywords: text spell check languages ispell
-;; Version: 2014.6.21
+;; Version: 2016.1.5
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -58,7 +58,7 @@
;; actually any tool that can receive text from standard input stream
;; and send text to standard output can be used. Wcheck mode sends parts
;; of buffer's content to an external program or an Emacs Lisp function
-;; and, based on their output, decides if some parts of text should be
+;; and, relying on their output, decides if some parts of text should be
;; marked in the buffer.
;;; Code:
@@ -892,7 +892,7 @@ otherwise turn it off. If ARG is not given toggle the mode.
Wcheck is a minor mode for automatically checking and marking
strings in Emacs buffer. Wcheck sends (parts of) buffer's content
-to a text-checker back-end and, based on its output, decides if
+to a text-checker back-end and, relying on its output, decides if
some parts of text should be marked.
Wcheck can be used with external spell-checker programs such as
@@ -1415,7 +1415,7 @@ areas, including invisible ones. Otherwise skip invisible
text."
(match-beginning 1) 'invisible buffer
end)))
- ((and (eval face-p)
+ ((and (funcall face-p)
(or (equal regexp-discard "")
(not (string-match
regexp-discard
@@ -1475,7 +1475,7 @@ text."
(goto-char (next-single-char-property-change
(match-beginning 1) 'invisible buffer
end)))
- ((eval face-p)
+ ((funcall face-p)
;; Make an overlay.
(wcheck--make-overlay
buffer ol-face ol-mouse-face ol-help-echo ol-keymap
@@ -1933,16 +1933,18 @@ expression will return a boolean."
(mode (nth 1 face-settings))
(faces (nthcdr 2 face-settings)))
(cond ((not font-lock-mode)
- t)
+ (lambda () t))
((eq mode 'read)
- `(wcheck--face-found-p
- ',faces (wcheck--collect-faces
- (match-beginning 1) (match-end 1))))
+ `(lambda ()
+ (wcheck--face-found-p
+ ',faces (wcheck--collect-faces
+ (match-beginning 1) (match-end 1)))))
((eq mode 'skip)
- `(not (wcheck--face-found-p
- ',faces (wcheck--collect-faces
- (match-beginning 1) (match-end 1)))))
- (t t))))
+ `(lambda ()
+ (not (wcheck--face-found-p
+ ',faces (wcheck--collect-faces
+ (match-beginning 1) (match-end 1))))))
+ (t (lambda () t)))))
;;; Miscellaneous low-level functions
@@ -2057,8 +2059,7 @@ The returned value is a floating point number."
(high (nth 0 idle))
(low (nth 1 idle))
(micros (nth 2 idle)))
- (+ (* high
- (expt 2 16))
+ (+ (* high 65536)
low
(/ micros 1000000.0))))
@@ -2179,12 +2180,13 @@ But only if it doesn't exist already."
If optional TARGET-KEY is not given return all data associated
with the matching KEY VALUE."
(catch 'answer
- (dolist (item wcheck--buffer-data)
- (when (equal value (aref item (wcheck--buffer-data-key-index key)))
- (throw 'answer (if target-key
- (aref item (wcheck--buffer-data-key-index
- target-key))
- item))))))
+ (let ((index (wcheck--buffer-data-key-index key)))
+ (dolist (item wcheck--buffer-data)
+ (when (equal value (aref item index))
+ (throw 'answer (if target-key
+ (aref item (wcheck--buffer-data-key-index
+ target-key))
+ item)))))))
(defun wcheck--buffer-data-get-all (&optional key)
- [elpa] master updated (9611c98 -> 0be7b49), Teemu Likonen, 2016/01/05
- [elpa] master 8af5404 3/7: wcheck-mode: precalculate (expt 2 16), Teemu Likonen, 2016/01/05
- [elpa] master 44f197d 5/7: wcheck-mode: update copyright year and version 2016.1.5, Teemu Likonen, 2016/01/05
- [elpa] master 0be7b49 7/7: Merge branch 'wcheck-update',
Teemu Likonen <=
- [elpa] master 610ef6f 1/7: wcheck-mode: change some wordings in comments, Teemu Likonen, 2016/01/05
- [elpa] master 2baed0b 6/7: wcheck-mode: update README, copyright etc., Teemu Likonen, 2016/01/05
- [elpa] master 5adc714 2/7: wcheck-mode: make generated face predicate a lambda, Teemu Likonen, 2016/01/05
- [elpa] master ca08b20 4/7: wcheck-mode: evaluate wcheck--buffer-data-key-index only once, Teemu Likonen, 2016/01/05