From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 21 Mar 2021 08:28:25 +0000 (+0100)
Subject: ; Remove two unnecessary quotes
X-Git-Tag: emacs-28.0.90~2727^2~62
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08682ccc3154eaae993dbcb71a6498d1c06d80ae;p=emacs.git

; Remove two unnecessary quotes

	* lisp/emacs-lisp/comp-cstr.el (comp-cstr-=): Remove unnecessary
	quote.
	* lisp/emacs-lisp/comp.el (comp-compile-ctxt-to-file): Likewise.
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index d0b842e7c37..7f5d34b45c3 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -873,7 +873,7 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
                  for v in (valset cstr)
                  do
                  (when-let* ((ok (floatp v))
-                             (truncated (ignore-error 'overflow-error
+                             (truncated (ignore-error overflow-error
                                           (truncate v)))
                              (ok (= v truncated)))
                    (push (cons truncated truncated) (range cstr))))
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ca4be0fe976..76b4733cfaa 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3606,7 +3606,7 @@ Prepare every function for final compilation and drive the C back-end."
              (comp-ctxt-funcs-h comp-ctxt))
     (unless (file-exists-p dir)
       ;; In case it's created in the meanwhile.
-      (ignore-error 'file-already-exists
+      (ignore-error file-already-exists
         (make-directory dir t)))
     (comp--compile-ctxt-to-file name)))