From 07257ac4eedcaedd8731b3b98e723850542aab8e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 4 Oct 2022 14:31:24 +0200 Subject: [PATCH] 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 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) -- 2.39.2