Unverified Commit ccdf970e authored by Eric Schulte's avatar Eric Schulte
Browse files

Don't warn about ASCII encodings (subset of UTF-8)

Currently warnings are thrown by concatenate-source-op every time ASDF
is loaded if UTF-8 is the default encoding because the ASDF source is
ASCII which is not equal to UTF-8.  This commit adds a special case to
the encoding equality check so that ASCII is recognized as a subset of
UTF-8.
parent c2e20733
Pipeline #2786 passed with stages
in 34 minutes and 45 seconds
...@@ -69,7 +69,8 @@ into a single file")) ...@@ -69,7 +69,8 @@ into a single file"))
:append :append
(when (typep c 'cl-source-file) (when (typep c 'cl-source-file)
(let ((e (component-encoding c))) (let ((e (component-encoding c)))
(unless (equal e encoding) (unless (or (equal e encoding)
(and (equal e :ASCII) (equal encoding :UTF-8)))
(let ((a (assoc e other-encodings))) (let ((a (assoc e other-encodings)))
(if a (push (component-find-path c) (cdr a)) (if a (push (component-find-path c) (cdr a))
(push (list e (component-find-path c)) other-encodings))))) (push (list e (component-find-path c)) other-encodings)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment