master 74e830768d: Make GEN message from loaddefs-generate nicer

[Lars Ingebrigtsen]

branch: master
commit 74e830768dc412b7041e01882efb1a697278d462
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make GEN message from loaddefs-generate nicer
    
    * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Shorten the
    informational GEN file relative to the stated directory
    (bug#57265).  This makes the message nicer for ELPA packages.
---
 lisp/emacs-lisp/loaddefs-gen.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 8413373e5d..e13b92bab8 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -645,7 +645,8 @@ instead of just updating them with the new/changed 
autoloads."
             (unless (equal (buffer-hash) hash)
               (write-region (point-min) (point-max) loaddefs-file nil 'silent)
               (byte-compile-info
-               (file-relative-name loaddefs-file lisp-directory) t 
"GEN"))))))))
+               (file-relative-name loaddefs-file (car (ensure-list dir)))
+               t "GEN"))))))))
 
 (defun loaddefs-generate--print-form (def)
   "Print DEF in a format that makes sense for version control."