; 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 d0b842e7c37bbcdf0557f371444a3d268659fecc..7f5d34b45c3360a17209b998cc90393201d82d70 100644 (file)
--- 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 ca4be0fe9767c89f4a42c71fb5521b6bd85c6c6a..76b4733cfaa3cfc745a91d4283c9c2a8f70d254c 100644 (file)
--- 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)))