[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/zones 222e9ee 34/43: no summary available
From: |
Stefan Monnier |
Subject: |
[elpa] externals/zones 222e9ee 34/43: no summary available |
Date: |
Sun, 28 Oct 2018 15:05:59 -0400 (EDT) |
branch: externals/zones
commit 222e9eee8c9874ea582614d08847c1c9d810478d
Author: DrewAdams <address@hidden>
Commit: Alex Schroeder <address@hidden>
no summary available
---
zones.el | 23 ++++++++++++++---------
1 file changed, 14 insertions(+), 9 deletions(-)
diff --git a/zones.el b/zones.el
index 143a17f..c0bb444 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: Mon Jan 1 16:29:27 2018 (-0800)
+;; Last-Updated: Tue Jan 9 13:44:11 2018 (-0800)
;; By: dradams
-;; Update #: 1788
+;; Update #: 1792
;; 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
@@ -428,6 +428,8 @@
;;
;;(@* "Change log")
;;
+;; 2018/01/09 dadams
+;; zz-readable-marker: If already a readable marker then just return it
(idempotent).
;; 2017/08/02 dadams
;; Added: zz-izones-from-noncontiguous-region,
zz-zones-from-noncontiguous-region,
;; zz-noncontiguous-region-from-izones,
zz-noncontiguous-region-from-zones, zz-dot-pairs.
@@ -1267,6 +1269,7 @@ OBJECT is returned."
(defun zz-readable-marker (number-or-marker &optional buffer)
"Return a readable-marker object equivalent to NUMBER-OR-MARKER, or nil.
Return nil if NUMBER-OR-MARKER is not `number-or-marker-p'.
+\(If NUMBER-OR-MARKER is already a readable marker then return it.)
This is a non-destructive operation.
@@ -1277,13 +1280,15 @@ current buffer). It is used as the marker buffer when
A readable-marker object is a sexp of form (marker BUFFER POSITION),
where BUFFER is a buffer name (string) and POSITION is buffer
position (number)."
- (let* ((buf (get-buffer (or buffer (current-buffer))))
- (buf (and buf (buffer-name buf)))
- (mrkr (and (number-or-marker-p number-or-marker)
- (if (markerp number-or-marker)
- number-or-marker
- (with-current-buffer buf (copy-marker
number-or-marker))))))
- (and mrkr `(marker ,buf ,(marker-position mrkr)))))
+ (if (zz-readable-marker-p number-or-marker)
+ number-or-marker
+ (let* ((buf (get-buffer (or buffer (current-buffer))))
+ (buf (and buf (buffer-name buf)))
+ (mrkr (and (number-or-marker-p number-or-marker)
+ (if (markerp number-or-marker)
+ number-or-marker
+ (with-current-buffer buf (copy-marker
number-or-marker))))))
+ (and mrkr `(marker ,buf ,(marker-position mrkr))))))
(defun zz-izones-p (value)
"Return non-nil if VALUE is a (possibly empty) list of izones.
- [elpa] externals/zones 08146ae 14/43: no summary available, (continued)
- [elpa] externals/zones 08146ae 14/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones a8a4c72 16/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 3d5fa31 08/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones be810ac 26/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones eb696a2 13/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones b7c13db 01/43: New library: zones of text - like multiple regions., Stefan Monnier, 2018/10/28
- [elpa] externals/zones 309a1af 19/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 8c578ca 25/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones c9001d4 27/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 387b40f 30/43: no summary available, Stefan Monnier, 2018/10/28
- [elpa] externals/zones 222e9ee 34/43: no summary available,
Stefan Monnier <=
- [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, 2018/10/28