[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tiny d883abc 1/4: tiny.el (tiny--strip-newlines): Renam
From: |
Stefan Monnier |
Subject: |
[elpa] externals/tiny d883abc 1/4: tiny.el (tiny--strip-newlines): Rename from tiny--strip-\n |
Date: |
Mon, 15 Mar 2021 22:25:36 -0400 (EDT) |
branch: externals/tiny
commit d883abcca6476e33bb624f80d59b86fe992cb515
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>
tiny.el (tiny--strip-newlines): Rename from tiny--strip-\n
---
tiny.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tiny.el b/tiny.el
index 66eea40..b4da4b2 100644
--- a/tiny.el
+++ b/tiny.el
@@ -136,7 +136,7 @@ At the moment, only `tiny-mapconcat' is supported.
"Setup shortcuts."
(global-set-key (kbd "C-;") 'tiny-expand))
-(defun tiny--strip-\n (str)
+(defun tiny--strip-newlines (str)
(replace-regexp-in-string "\\\\n" "\n" str))
(defun tiny-mapconcat ()
@@ -166,7 +166,7 @@ Defaults are used in place of null values."
(seq (number-sequence n0 n2 (if (>= n0 n2) -1 1))))
`(mapconcat (lambda (x)
(let ((lst ,expr))
- (format ,(tiny--strip-\n fmt)
+ (format ,(tiny--strip-newlines fmt)
,@(mapcar (lambda (x)
(if x
(read x)
@@ -175,7 +175,7 @@ Defaults are used in place of null values."
`(nth ,(incf idx) lst))))
(cdr tes)))))
',seq
- ,(tiny--strip-\n s1))))))
+ ,(tiny--strip-newlines s1))))))
(defconst tiny-format-str
(let ((flags "[+ #-0]\\{0,1\\}")