From 279f7b6bfd61ff011ae06ca0c8aed530d934b218 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 28 Oct 2001 16:07:35 +0000 Subject: [PATCH] (set-language-environment): Use `functionp' to check exit and setup functions. --- lisp/international/mule-cmds.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index b19fdf1f728..add848a1498 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1426,7 +1426,7 @@ specifies the character set for the major languages of Western Europe." (let ((func (get-language-info current-language-environment 'exit-function))) (run-hooks 'exit-language-environment-hook) - (if (fboundp func) (funcall func)))) + (if (functionp func) (funcall func)))) (let ((default-eol-type (coding-system-eol-type default-buffer-file-coding-system))) (reset-language-environment) -- 2.39.5