[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1f7b602 1/3: Add commentary about #$ in autoload fi
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] master 1f7b602 1/3: Add commentary about #$ in autoload files |
Date: |
Sat, 6 Jul 2019 14:41:38 -0400 (EDT) |
branch: master
commit 1f7b602f843d82d2da46528c6cc2a16c794ca668
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
Add commentary about #$ in autoload files
* lisp/emacs-lisp/autoload.el (autoload-rubric): Add commentary about
`#$' trick.
---
lisp/emacs-lisp/autoload.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 21b8cac..dfcf17c 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -370,7 +370,11 @@ FILE's name."
";;\n"
";;; Code:\n\n"
(if lp
- ;; `load-path' should contain only directory names.
+ ;; Use the `#$' to indicate current file, from which
+ ;; we extract the directory name. Note that
+ ;; `package-quickstart-refresh' specifically replaces
+ ;; `#$', so any other tricks (e.g., `load-file-name')
+ ;; will not work for that case.
"(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))\n\n")
"\n"
@@ -381,7 +385,7 @@ FILE's name."
(file-name-sans-extension basename))))
";; Local Variables:\n"
";; version-control: never\n"
- ";; no-byte-compile: t\n"
+ ";; no-byte-compile: t\n" ;; #$ is byte-compiled into nil.
";; no-update-autoloads: t\n"
";; coding: utf-8\n"
";; End:\n"