summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/autoload.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
-rw-r--r--lisp/emacs-lisp/autoload.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 21b8caccf4b..dfcf17ce1e8 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"