[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/zones 2ebb425 43/43: no summary available
From: |
Stefan Monnier |
Subject: |
[elpa] externals/zones 2ebb425 43/43: no summary available |
Date: |
Sun, 28 Oct 2018 15:06:00 -0400 (EDT) |
branch: externals/zones
commit 2ebb425963f156b3df2096235fd3f2625222e707
Author: DrewAdams <address@hidden>
Commit: Alex Schroeder <address@hidden>
no summary available
---
zones.el | 22 +++++++++++++---------
1 file changed, 13 insertions(+), 9 deletions(-)
diff --git a/zones.el b/zones.el
index d357b21..b106623 100644
--- a/zones.el
+++ b/zones.el
@@ -8,9 +8,9 @@
;; Created: Sun Apr 18 12:58:07 2010 (-0700)
;; Version: 2015-08-16
;; Package-Requires: ()
-;; Last-Updated: Fri Oct 19 21:41:21 2018 (-0700)
+;; Last-Updated: Sun Oct 21 11:52:29 2018 (-0700)
;; By: dradams
-;; Update #: 2022
+;; Update #: 2031
;; URL: https://www.emacswiki.org/emacs/download/zones.el
;; Doc URL: https://www.emacswiki.org/emacs/Zones
;; Doc URL: https://www.emacswiki.org/emacs/MultipleNarrowings
@@ -30,7 +30,7 @@
;; More description below.
;;
;; Bug reports etc.: (concat "drew" ".adams" "@" "oracle" ".com")
-;;
+;;
;;(@> "Index")
;;
@@ -457,7 +457,7 @@
;; (dolist (start+end regions)
;; (hlt-highlight-region (nth 0 start+end) (nth 1 start+end)
;; face msgp mousep buffers)))
-;;
+;;
;; That's it - just iterate over `zz-izones' with a function that
;; takes the region as an argument. What `zones.el' offers in this
;; regard is a way to easily define a set of buffer zones.
@@ -748,7 +748,7 @@ Don't forget to mention your Emacs and library versions."))
(when (or (> emacs-major-version 24) ; Emacs 24.4+
(and (= emacs-major-version 24) (> emacs-minor-version 3))) ;
`reset' arg to `face-spec-set'.
- (defface zz-fringe-for-narrowing
+ (defface zz-fringe-for-narrowing
'((((background dark)) (:background "#FFFF2429FC15")) ; a dark magenta
(t (:background "LightGreen")))
"*Face used for fringe when buffer is narrowed."
@@ -1759,6 +1759,10 @@ set this to a different variable anytime using
`\\[zz-set-izones-var]'.
All highlighting is checked, both overlays and face text properties.
+The number of highlighted areas added as zones is echoed in a message.
+This might be less than the number of zones added, because there can
+be multiple highlights with the same face for the same area.
+
When called from Lisp:
* Non-nil START and END are the buffer limits to search.
@@ -1819,7 +1823,7 @@ When called from Lisp:
(case count
(0 (message "NO zones added or updated"))
(1 (message "1 zone added or updated"))
- (t (message "%s zones added or updated" count))))))
+ (t (message "%s highlighted areas added or updated as zones"
count))))))
(defun zz-set-zones-from-highlighting (&optional start end face
only-hlt-face overlay/text fonk-lock-p msgp)
"Replace value of izones variable with zones from the highlighted areas.
@@ -1835,7 +1839,7 @@ current zones instead of adding to them."
nil nil ,(and numarg (<= numarg 0)) t)))
(set zz-izones-var ())
(zz-add-zones-from-highlighting start end face only-hlt-face overlay/text
fonk-lock-p msgp))
-
+
)
@@ -2084,7 +2088,7 @@ The value of variable `zz-izones' defines the zones."
(let ((ii 0))
(mapcar (lambda (posn) (cons (setq ii (1+ ii)) (list (copy-marker (car
posn)) (copy-marker (cdr posn)))))
(funcall region-extract-function 'bounds))))
-
+
(defun zz-zones-from-noncontiguous-region ()
"Return a list of basic zones from `region-extract-function' bounds."
(mapcar (lambda (posn) (list (copy-marker (car posn)) (copy-marker (cdr
posn))))
@@ -2205,7 +2209,7 @@ are included in the returned list."
(unless dont-delete-p (delete-overlay ov)) ; Delete original
overlays in BUFFER
(push ov new-ovs))) ; Add other-buffer overlays to return
value.
new-ovs))
-
+
;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'zones)
- [elpa] externals/zones 222e9ee 34/43: no summary available, (continued)
- [elpa] externals/zones 222e9ee 34/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 7467046 12/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 3b8bdf1 18/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 82f54b1 15/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 772c2ad 23/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones af62ffe 22/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 130fbf9 17/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones a2d04c4 21/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 7ba2596 24/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones a3ea160 32/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 2ebb425 43/43: no summary available,
Stefan Monnier <=
- [elpa] externals/zones a881957 42/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 97791dc 29/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones a73be38 31/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 6dd2d90 33/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 9441301 36/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones e849190 39/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones d55cf66 41/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 399986d 38/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 08061c1 35/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 5e7e567 40/43: no summary available, Stefan Monnier, 2018/10/28