emacs-devel
[Top][All Lists]
Advanced

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

Re: [Emacs-diffs] emacs-25 c23c965: Prevent bootstrap autoload backup fi


From: Stefan Monnier
Subject: Re: [Emacs-diffs] emacs-25 c23c965: Prevent bootstrap autoload backup files
Date: Tue, 12 Apr 2016 08:18:06 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux)

> -    (let ((delay-mode-hooks t))
> -      (find-file-noselect
> -       (autoload-ensure-default-file (autoload-generated-file))))))
> +    (let* ((delay-mode-hooks t)
> +           (file (autoload-generated-file))
> +           (file-missing (not (file-exists-p file))))
> +      (when file-missing
> +        (autoload-ensure-default-file file))
> +      (with-current-buffer
> +          (find-file-noselect
> +           (autoload-ensure-file-writeable
> +            file))
> +        ;; block backups when the file has just been created, since
> +        ;; the backups will just be the auto-generated headers.
> +        ;; bug#23203
> +        (when file-missing
> +          (setq buffer-backed-up t)
> +          (save-buffer))
> +        (current-buffer)))))
 
That looks quite complicated just to suppress backups.
Could you explain why we couldn't just do something like:

     (let ((delay-mode-hooks t)
           (make-backup-files))
       (find-file-noselect
        (autoload-ensure-default-file (autoload-generated-file))))))
or
     (let ((delay-mode-hooks t))
       (with-current-buffer
           (find-file-noselect
            (autoload-ensure-default-file (autoload-generated-file)))
         (setq-local backup-inhibited t)))))


-- Stefan



reply via email to

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