emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/shorthand-namespacing d102e30 07/11: Rework docstring of hack-el


From: João Távora
Subject: feature/shorthand-namespacing d102e30 07/11: Rework docstring of hack-elisp-shorthands
Date: Wed, 22 Sep 2021 18:54:02 -0400 (EDT)

branch: feature/shorthand-namespacing
commit d102e30618638d326fdbef2fd43dcc4919f6a793
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    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 6e4492e..deb801f 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]