From d102e30618638d326fdbef2fd43dcc4919f6a793 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Wed, 23 Dec 2020 21:23:30 +0000 Subject: [PATCH] Rework docstring of hack-elisp-shorthands * lisp/international/mule.el (hack-elisp-shorthands): Rework docstring. --- lisp/international/mule.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 6e4492efdb9..deb801ff1af 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -295,7 +295,12 @@ attribute." (apply 'define-charset-internal name (mapcar 'cdr attrs)))) (defun hack-elisp-shorthands (fullname) - "Return buffer-local value of `elisp-shorthands' in file FULLNAME." + "Return value of the `elisp-shorthands' file-local variable in FULLNAME. +FULLNAME is the full name of an Elisp file which potentially +specifies a file-local value for `elisp-shorthands'. The Elisp +code isn't read or evaluated in any way, we merely extract what +the buffer-local value of `elisp-shorthands' would be if the file +had been found by `find-file'." (let ((size (nth 7 (file-attributes fullname)))) (with-temp-buffer (insert-file-contents fullname nil (max 0 (- size 3000)) size) -- 2.39.5