]> git.eshelyaron.com Git - emacs.git/commitdiff
Rework docstring of hack-elisp-shorthands
authorJoão Távora <joaotavora@gmail.com>
Wed, 23 Dec 2020 21:23:30 +0000 (21:23 +0000)
committerJoão Távora <joaotavora@gmail.com>
Wed, 22 Sep 2021 10:33:56 +0000 (11:33 +0100)
* lisp/international/mule.el (hack-elisp-shorthands): Rework
docstring.

lisp/international/mule.el

index 6e4492efdb9b69ff1d89dd5c5a15bbb0e7560ac9..deb801ff1afb1725f742291cc2e0516727220484 100644 (file)
@@ -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)