[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/seq 0455744 08/53: * packages/seq/seq.el: Update seq.el
From: |
Stefan Monnier |
Subject: |
[elpa] externals/seq 0455744 08/53: * packages/seq/seq.el: Update seq.el to version 1.5. |
Date: |
Tue, 1 Dec 2020 17:06:04 -0500 (EST) |
branch: externals/seq
commit 045574416d1932288a0214e6dd5414a8d9d76695
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
* packages/seq/seq.el: Update seq.el to version 1.5.
---
seq.el | 42 ++++++++++++++++++++----------------------
1 file changed, 20 insertions(+), 22 deletions(-)
diff --git a/seq.el b/seq.el
index 6f7f3c4..2f3f519 100644
--- a/seq.el
+++ b/seq.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: sequences
-;; Version: 1.4
+;; Version: 1.5
;; Package: seq
;; Maintainer: emacs-devel@gnu.org
@@ -44,31 +44,26 @@
(defmacro seq-doseq (spec &rest body)
"Loop over a sequence.
-Similar to `dolist' but can be applied lists, strings and vectors.
+Similar to `dolist' but can be applied to lists, strings, and vectors.
Evaluate BODY with VAR bound to each element of SEQ, in turn.
-Then evaluate RESULT to get return value, default nil.
-\(fn (VAR SEQ [RESULT]) BODY...)"
+\(fn (VAR SEQ) BODY...)"
(declare (indent 1) (debug ((symbolp form &optional form) body)))
- (let ((is-list (make-symbol "is-list"))
+ (let ((length (make-symbol "length"))
(seq (make-symbol "seq"))
(index (make-symbol "index")))
`(let* ((,seq ,(cadr spec))
- (,is-list (listp ,seq))
- (,index (if ,is-list ,seq 0)))
- (while (if ,is-list
- (consp ,index)
- (< ,index (seq-length ,seq)))
- (let ((,(car spec) (if ,is-list
- (car ,index)
- (seq-elt ,seq ,index))))
- ,@body
- (setq ,index (if ,is-list
- (cdr ,index)
- (+ ,index 1)))))
- ,@(if (cddr spec)
- `((setq ,(car spec) nil) ,@(cddr spec))))))
+ (,length (if (listp ,seq) nil (seq-length ,seq)))
+ (,index (if ,length 0 ,seq)))
+ (while (if ,length
+ (< ,index ,length)
+ (consp ,index))
+ (let ((,(car spec) (if ,length
+ (prog1 (seq-elt ,seq ,index)
+ (setq ,index (+ ,index 1)))
+ (pop ,index))))
+ ,@body)))))
(defun seq-drop (seq n)
"Return a subsequence of SEQ without its first N elements.
@@ -221,7 +216,7 @@ TYPE must be one of following symbols: vector, string or
list.
(`vector (apply #'vconcat seqs))
(`string (apply #'concat seqs))
(`list (apply #'append (append seqs '(nil))))
- (t (error "Not a sequence type name: %s" type))))
+ (t (error "Not a sequence type name: %S" type))))
(defun seq-mapcat (function seq &optional type)
"Concatenate the result of applying FUNCTION to each element of SEQ.
@@ -295,7 +290,7 @@ TYPE can be one of the following symbols: vector, string or
list."
(`vector (vconcat seq))
(`string (concat seq))
(`list (append seq nil))
- (t (error "Not a sequence type name: %s" type))))
+ (t (error "Not a sequence type name: %S" type))))
(defun seq--drop-list (list n)
"Return a list from LIST without its first N elements.
@@ -350,7 +345,10 @@ This is an optimization for lists in `seq-take-while'."
(defalias 'seq-each #'seq-do)
(defalias 'seq-map #'mapcar)
-(add-to-list 'emacs-lisp-mode-hook #'seq--activate-font-lock-keywords)
+(unless (fboundp 'elisp--font-lock-flush-elisp-buffers)
+ ;; In Emacsā„25, (via elisp--font-lock-flush-elisp-buffers and a few others)
+ ;; we automatically highlight macros.
+ (add-to-list 'emacs-lisp-mode-hook #'seq--activate-font-lock-keywords))
(provide 'seq)
;;; seq.el ends here
- [elpa] branch externals/seq created (now 10d3983), Stefan Monnier, 2020/12/01
- [elpa] externals/seq 380986d 02/53: Update seq.el to version 1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 088b2d6 09/53: Update seq.el to version 1.7, Stefan Monnier, 2020/12/01
- [elpa] externals/seq c555087 06/53: Rephrases a comment in seq.el about the order of the arguments, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 81682a1 11/53: Update seq.el to version 1.9, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 444ca62 01/53: packages/seq: New package, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 503dc82 03/53: Update seq.el to version 1.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 021f678 12/53: Update seq.el to version 1.11, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0ffc6fd 05/53: Update seq.el to version 1.3, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 5d295d9 10/53: Update seq.el to version 1.8, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0455744 08/53: * packages/seq/seq.el: Update seq.el to version 1.5.,
Stefan Monnier <=
- [elpa] externals/seq 1580064 04/53: Update seq.el to version 1.2, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 3c98f64 07/53: seq.el update, Stefan Monnier, 2020/12/01