[elpa] externals/relint acf8c7101d 3/6: Correct constant evaluation of alist-get

[Mattias Engdegård]

branch: externals/relint
commit acf8c7101dbaffc6166f78e2e274fcb5871f70ed
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Correct constant evaluation of alist-get
---
 relint.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/relint.el b/relint.el
index 53f447dcfa..753a6e2c32 100644
--- a/relint.el
+++ b/relint.el
@@ -691,9 +691,9 @@ not be evaluated safely."
         (let* ((all-args (mapcar #'relint--eval body))
                (testfn (nth 4 all-args))
                (args (if testfn
-                         all-args
-                       (append (relint--take 4 all-args)
-                               (list (relint--wrap-function testfn))))))
+                         (append (relint--take 4 all-args)
+                                 (list (relint--wrap-function testfn)))
+                       all-args)))
           (condition-case nil
               (apply head args)
             (error (throw 'relint-eval 'no-value)))))
@@ -2269,7 +2269,7 @@ Return a list of (FORM . STARTING-POSITION)."
                                 ;; Specific to cc-mode
                                 "c-lang-defconst"))))
        (and (= steps 4)
-            (looking-at (rx (or "define-derived-mode"))))))))
+            (looking-at (rx "define-derived-mode")))))))
 
 (defun relint--suspicious-backslash (string-start)
   "With point at an ineffective backslash, emit an warning unless filtered out.