auctex-devel
[Top][All Lists]
Advanced

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

Re: Drop tarball releases and go ELPA only


From: Arash Esbati
Subject: Re: Drop tarball releases and go ELPA only
Date: Sun, 11 Aug 2024 13:58:16 +0200
User-agent: Gnus/5.13 (Gnus v5.13)

Hi Keita,

Ikumi Keita <ikumi@ikumi.que.jp> writes:

> On second thought, I came to think that we should retain compatibility
> for Emacs<29. Otherwise it would be difficult to check whether the
> future ELPA release has the compatibility or not.

Yes, I agree.

> So how about one like this?
> (let* ((autoload-file (expand-file-name "$@")) \
>        (autoload-file-dir (file-name-directory autoload-file)) \
>        (addition-text "(add-to-list (quote load-path)\n\
>                                        (directory-file-name\n\
>                                          (file-name-directory 
> load-file-name)))"
> )) \
>   (if (fboundp `loaddefs-generate) \
>       (loaddefs-generate autoload-file-dir autoload-file \
>                          (list "tex-wizard.el") \
>                          addition-text)\
>     (mapc (lambda (file) \
>             (update-file-autoloads file nil autoload-file)) \
>           command-line-args-left) \
>     (write-region addition-text nil autoload-file t)) \
>   (save-buffers-kill-emacs t))'

Do you have an older Emacs available?  Depending on the output of
`update-file-autoloads', we could probably prettify the genereated file
with somethin like this (I removed the EOL-masks for easier editing):

--8<---------------cut here---------------start------------->8---
(let* ((autoload-file (expand-file-name "$@"))
       (autoload-file-dir (file-name-directory autoload-file))
       (addition-text "(add-to-list (quote load-path)\n\
                                       (directory-file-name\n\
                                         (file-name-directory 
load-file-name)))"))
  (if (fboundp `loaddefs-generate)
      (loaddefs-generate autoload-file-dir autoload-file
                         (list "tex-wizard.el")
                         addition-text)
    (mapc (lambda (file)
            (update-file-autoloads file nil autoload-file))
          command-line-args-left)
    (with-temp-file autoload-file
      (insert-file-contents autoload-file)
      (cond ((progn (goto-char (point-min))
                    (re-search-forward "^;;; Code:" nil t))
             (newline 2))
            ((progn (goto-char (point-min))
                    (re-search-forward "^$"))
             (open-line 2))
            (t (goto-char (point-max))))
      (insert addition-text)))
  (save-buffers-kill-emacs t))
--8<---------------cut here---------------end--------------->8---

WDYT?

> (I haven't tested it yet.)

Me either.

> Additionally, we can include auctex.el and lpath.el in the excluded
> file list.

Yes, makes sense.

Best, Arash



reply via email to

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