From aad8ffafa89fe46ff5d63bd0127274f74019d50f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 27 Feb 2021 20:30:21 -0500 Subject: [PATCH] * lisp/international/mule-cmds.el: Try and fix bug#46818 (update-leim-list-file): Reduce stack/pdl use. --- lisp/international/mule-cmds.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index e4bdf50f526..e1dbf82ed49 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1312,8 +1312,13 @@ Each function is called with one arg, LEIM directory name.") (defun update-leim-list-file (&rest dirs) "Update LEIM list file in directories DIRS." - (dolist (function update-leim-list-functions) - (apply function dirs))) + ;; bug#46818: This `let'-binding is not necessary, but + ;; it reduces the recursion depth during bootstrap (at which + ;; point some of the core ELisp files haven't been byte-compiled + ;; yet, which causes deeper-than-normal recursion). + (let ((vc-handled-backends nil)) + (dolist (function update-leim-list-functions) + (apply function dirs)))) (defvar-local current-input-method nil "The current input method for multilingual text. -- 2.39.2