emacs-diffs
[Top][All Lists]
Advanced

[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"



reply via email to

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