(set-language-environment): Use `functionp' to check exit and

setup functions.

1 files changed, 1 insertions, 1 deletions

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)