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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat b16122b 71/99: Use explicit symbol names instead


From: ELPA Syncer
Subject: [elpa] externals/compat b16122b 71/99: Use explicit symbol names instead of alii
Date: Sun, 17 Oct 2021 05:57:59 -0400 (EDT)

branch: externals/compat
commit b16122b6de7f8c5fd9e06cb7fec7e1b51767fd39
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Use explicit symbol names instead of alii
---
 compat-26.1.el | 7 ++++---
 compat-27.1.el | 2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/compat-26.1.el b/compat-26.1.el
index b7111fa..fd62072 100644
--- a/compat-26.1.el
+++ b/compat-26.1.el
@@ -244,8 +244,9 @@ TRIM-LEFT and TRIM-RIGHT default to \"[ \\t\\n\\r]+\"."
   "Return a new uninterned symbol.
 The name is made by appending `gensym-counter' to PREFIX.
 PREFIX is a string, and defaults to \"g\"."
-  (let ((num (prog1 gensym-counter
-               (setq gensym-counter (1+ gensym-counter)))))
+  (let ((num (prog1 compat--gensym-counter
+               (setq compat--gensym-counter
+                     (1+ compat--gensym-counter)))))
     (make-symbol (format "%s%d" (or prefix "g") num))))
 
 ;;;; Defined in files.el
@@ -287,7 +288,7 @@ the variable `temporary-file-directory' is returned."
                   default-directory 'temporary-file-directory)))
     (if handler
         (funcall handler 'temporary-file-directory)
-      (if (string-match mounted-file-systems default-directory)
+      (if (string-match compat--mounted-file-systems default-directory)
           default-directory
         temporary-file-directory))))
 
diff --git a/compat-27.1.el b/compat-27.1.el
index eab0eb1..f9e22af 100644
--- a/compat-27.1.el
+++ b/compat-27.1.el
@@ -181,7 +181,7 @@ any JSON false values."
 This is the same as (insert (json-serialize OBJECT)), but potentially
 faster.  See the function `json-serialize' for allowed values of
 OBJECT."
-  (insert (apply #'json-serialize object args)))
+  (insert (apply #'compat--json-serialize object args)))
 
 (compat-defun json-parse-string (string &rest args)
   "Parse the JSON STRING into a Lisp object.



reply via email to

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