diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-04 14:31:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-04 14:32:11 +0200 |
| commit | 07257ac4eedcaedd8731b3b98e723850542aab8e (patch) | |
| tree | 273d2ee7ad9d882b1b2b86882177431b34c41522 /lisp | |
| parent | 0f1aabcbaa3d50b81bea7bedaa33c9351644c130 (diff) | |
| download | emacs-07257ac4eedcaedd8731b3b98e723850542aab8e.tar.gz emacs-07257ac4eedcaedd8731b3b98e723850542aab8e.tar.bz2 emacs-07257ac4eedcaedd8731b3b98e723850542aab8e.zip | |
Fix the arguments in tags--compat-initialize
* lisp/progmodes/etags.el (tags--compat-initialize): Fix argument
order -- swap the last two arguments (bug#58272).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files 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) |