aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Corallo2021-03-21 09:28:25 +0100
committerAndrea Corallo2021-03-21 09:28:25 +0100
commit08682ccc3154eaae993dbcb71a6498d1c06d80ae (patch)
tree5db307545236bc1000b8609cb1234b963216223c
parentbe22cda7be9e77e67f224f6f07cca9dd44aaa078 (diff)
downloademacs-08682ccc3154eaae993dbcb71a6498d1c06d80ae.tar.gz
emacs-08682ccc3154eaae993dbcb71a6498d1c06d80ae.zip
; 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.
-rw-r--r--lisp/emacs-lisp/comp-cstr.el2
-rw-r--r--lisp/emacs-lisp/comp.el2
2 files changed, 2 insertions, 2 deletions
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'."
873 for v in (valset cstr) 873 for v in (valset cstr)
874 do 874 do
875 (when-let* ((ok (floatp v)) 875 (when-let* ((ok (floatp v))
876 (truncated (ignore-error 'overflow-error 876 (truncated (ignore-error overflow-error
877 (truncate v))) 877 (truncate v)))
878 (ok (= v truncated))) 878 (ok (= v truncated)))
879 (push (cons truncated truncated) (range cstr)))) 879 (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."
3606 (comp-ctxt-funcs-h comp-ctxt)) 3606 (comp-ctxt-funcs-h comp-ctxt))
3607 (unless (file-exists-p dir) 3607 (unless (file-exists-p dir)
3608 ;; In case it's created in the meanwhile. 3608 ;; In case it's created in the meanwhile.
3609 (ignore-error 'file-already-exists 3609 (ignore-error file-already-exists
3610 (make-directory dir t))) 3610 (make-directory dir t)))
3611 (comp--compile-ctxt-to-file name))) 3611 (comp--compile-ctxt-to-file name)))
3612 3612