emacs-elpa-diffs
[Top][All Lists]
Advanced

[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\\}")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]