From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 4 Oct 2022 12:31:24 +0000 (+0200)
Subject: Fix the arguments in tags--compat-initialize
X-Git-Tag: emacs-29.0.90~1856^2~33
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07257ac4eedcaedd8731b3b98e723850542aab8e;p=emacs.git

Fix the arguments in tags--compat-initialize

* lisp/progmodes/etags.el (tags--compat-initialize): Fix argument
order -- swap the last two arguments (bug#58272).
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index db2c8efbd40..85c5992998a 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1784,10 +1784,10 @@ Bind `case-fold-search' during the evaluation, depending on the value of
 (defun tags--compat-initialize (initialize)
   (fileloop-initialize
    (tags--compat-files initialize)
+   (lambda () (tags-loop-eval tags-loop-scan))
    (if tags-loop-operate
        (lambda () (tags-loop-eval tags-loop-operate))
-     (lambda () (message "Scanning file %s...found" buffer-file-name) nil))
-   (lambda () (tags-loop-eval tags-loop-scan))))
+     (lambda () (message "Scanning file %s...found" buffer-file-name) nil))))
 
 ;;;###autoload
 (defun tags-loop-continue (&optional first-time)