master 07257ac4ee: Fix the arguments in tags--compat-initialize

[Lars Ingebrigtsen]

branch: master
commit 07257ac4eedcaedd8731b3b98e723850542aab8e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix the arguments in tags--compat-initialize
    
    * lisp/progmodes/etags.el (tags--compat-initialize): Fix argument
    order -- swap the last two arguments (bug#58272).
---
 lisp/progmodes/etags.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index db2c8efbd4..85c5992998 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)