From 5eb0ec18cea14a8d5a13c8ae02223b67dbdc280c Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Sun, 21 Jan 2024 19:13:59 +0100 Subject: [PATCH] Use DEFAULT arg of read-language-name (bug#68602) in describe-language-environment. This allows external packages providing completion (helm etc...) to be aware of default easily. * lisp/international/mule-cmds.el (describe-language-environment): Do it. --- lisp/international/mule-cmds.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 07f11a62594..7ae3bd7c816 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2159,10 +2159,9 @@ See `set-language-info-alist' for use in programs." (interactive (list (read-language-name 'documentation - (format-prompt "Describe language environment" current-language-environment)))) + (format-prompt "Describe language environment" current-language-environment) + current-language-environment))) (let ((help-buffer-under-preparation t)) - (if (null language-name) - (setq language-name current-language-environment)) (if (or (null language-name) (null (get-language-info language-name 'documentation))) (error "No documentation for the specified language")) -- 2.34.1