From: Michael Heerdegen <michael_heerdegen@web.de>
To: emacs-devel@gnu.org
Subject: Re: [emacs-announce] Emacs pretest 25.0.93
Date: Sat, 23 Apr 2016 17:20:07 +0200 [thread overview]
Message-ID: <87vb38jqs8.fsf@web.de> (raw)
In-Reply-To: 83zisk4erk.fsf@gnu.org
[-- Attachment #1: Type: text/plain, Size: 704 bytes --]
Eli Zaretskii <eliz@gnu.org> writes:
> > -;;;### (autoloads nil "cal-iso" "cal-iso.el" t)
> > +;;;### (autoloads nil "cal-iso" "cal-iso.el" (22225 49314 854982
> > +;;;;;; 791000))
>
> AFAIU, these differences are meaningless. But I have no autoloads
> whose time stamp is 't'.
FWIW, I once saw this while calling "make" for Helm. I investigated and
saw such a "t" timestamp in the loaddefs file. I didn't think long
about it. I just deleted that loaddefs file - after that, "make"
succeeded, and instead of "t" there was a "real" time stamp.
But we are lucky, I still have a Lisp backtrace from the error in my
Trash (not from building, but from reproducing with
`update-directory-autoloads'):
[-- Attachment #2: bt.txt_1407PLz --]
[-- Type: text/plain, Size: 7810 bytes --]
Debugger entered--Lisp error: (error "Invalid time specification")
time-less-p(t (22288 49208 740259 566000))
(not (time-less-p (nth 4 form) (nth 5 (file-attributes file))))
(cond ((and (consp file) (stringp (car file))) (autoload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (let ((--dolist-tail-- file)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (let ((file-time ...)) (if (and file-time ...) (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) ((not (stringp file))) ((or (not (file-exists-p file)) (member file done) (member (expand-file-name file) autoload-excludes)) (autoload-remove-section (match-beginning 0))) ((not (time-less-p (nth 4 form) (nth 5 (file-attributes file)))) nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) (setq no-autoloads (cons file no-autoloads)))))
(let* ((form (autoload-read-section-header)) (file (nth 3 form))) (cond ((and (consp file) (stringp (car file))) (autoload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (let ((--dolist-tail-- file)) (while --dolist-tail-- (let ((file ...)) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) ((not (stringp file))) ((or (not (file-exists-p file)) (member file done) (member (expand-file-name file) autoload-excludes)) (autoload-remove-section (match-beginning 0))) ((not (time-less-p (nth 4 form) (nth 5 (file-attributes file)))) nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) (setq no-autoloads (cons file no-autoloads))))) (setq done (cons file done)) (setq files (delete file files)))
(while (search-forward generate-autoload-section-header nil t) (let* ((form (autoload-read-section-header)) (file (nth 3 form))) (cond ((and (consp file) (stringp (car file))) (autoload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (let ((--dolist-tail-- file)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))) ((not (stringp file))) ((or (not (file-exists-p file)) (member file done) (member (expand-file-name file) autoload-excludes)) (autoload-remove-section (match-beginning 0))) ((not (time-less-p (nth 4 form) (nth 5 (file-attributes file)))) nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) (setq no-autoloads (cons file no-autoloads))))) (setq done (cons file done)) (setq files (delete file files))))
(save-excursion (setq files (delete (file-relative-name buffer-file-name) (mapcar 'file-relative-name files))) (goto-char (point-min)) (while (search-forward generate-autoload-section-header nil t) (let* ((form (autoload-read-section-header)) (file (nth 3 form))) (cond ((and (consp file) (stringp (car file))) (autoload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (let ((--dolist-tail-- file)) (while --dolist-tail-- (let ... ... ...)))) ((not (stringp file))) ((or (not (file-exists-p file)) (member file done) (member (expand-file-name file) autoload-excludes)) (autoload-remove-section (match-beginning 0))) ((not (time-less-p (nth 4 form) (nth 5 ...))) nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-generate-file-autoloads file (current-buffer) buffer-file-name) (setq no-autoloads (cons file no-autoloads))))) (setq done (cons file done)) (setq files (delete file files)))))
(save-current-buffer (set-buffer (autoload-find-generated-file)) (save-excursion (setq files (delete (file-relative-name buffer-file-name) (mapcar 'file-relative-name files))) (goto-char (point-min)) (while (search-forward generate-autoload-section-header nil t) (let* ((form (autoload-read-section-header)) (file (nth 3 form))) (cond ((and (consp file) (stringp ...)) (autoload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (let (...) (while --dolist-tail-- ...))) ((not (stringp file))) ((or (not ...) (member file done) (member ... autoload-excludes)) (autoload-remove-section (match-beginning 0))) ((not (time-less-p ... ...)) nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-generate-file-autoloads file ... buffer-file-name) (setq no-autoloads ...)))) (setq done (cons file done)) (setq files (delete file files))))) (let ((no-autoloads-time (or last-time '(0 0 0 0))) file-time) (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (cond ((member ... autoload-excludes) nil) ((setq file-time ...) (setq no-autoloads ...) (if ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if no-autoloads (progn (setq no-autoloads (sort no-autoloads 'string<)) (goto-char (point-max)) (search-backward "\f" nil t) (autoload-insert-section-header (current-buffer) nil nil no-autoloads no-autoloads-time) (insert generate-autoload-section-trailer)))) (let ((version-control 'never)) (save-buffer)) (autoload-save-buffers))
(let* ((files-re (let ((tmp nil)) (let ((--dolist-tail-- (get-load-suffixes))) (while --dolist-tail-- (let (...) (if ... nil ...) (setq --dolist-tail-- ...)))) (concat "^[^=.].*" (regexp-opt tmp t) "\\'"))) (files (apply 'nconc (mapcar #'(lambda (dir) (directory-files ... t files-re)) dirs))) (done nil) (last-time) (no-autoloads nil) (autoload-modified-buffers nil) (generated-autoload-file (if (called-interactively-p 'interactive) (read-file-name "Write autoload definitions to file: ") generated-autoload-file))) (save-current-buffer (set-buffer (autoload-find-generated-file)) (save-excursion (setq files (delete (file-relative-name buffer-file-name) (mapcar 'file-relative-name files))) (goto-char (point-min)) (while (search-forward generate-autoload-section-header nil t) (let* ((form (autoload-read-section-header)) (file (nth 3 form))) (cond ((and ... ...) (autoload-remove-section ...) (setq last-time ...) (let ... ...)) ((not ...)) ((or ... ... ...) (autoload-remove-section ...)) ((not ...) nil) (t (autoload-remove-section ...) (if ... ...))) (setq done (cons file done)) (setq files (delete file files))))) (let ((no-autoloads-time (or last-time '(0 0 0 0))) file-time) (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file ...)) (cond (... nil) (... ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if no-autoloads (progn (setq no-autoloads (sort no-autoloads 'string<)) (goto-char (point-max)) (search-backward "\f" nil t) (autoload-insert-section-header (current-buffer) nil nil no-autoloads no-autoloads-time) (insert generate-autoload-section-trailer)))) (let ((version-control 'never)) (save-buffer)) (autoload-save-buffers)))
update-directory-autoloads(".")
(let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))
(progn (let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads ".")))
eval((progn (let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))) nil)
pp-eval-expression((progn (let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))))
my-pp-eval-expression((my-eval-in-mb-wrapper (let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))) nil)
funcall-interactively(my-pp-eval-expression (my-eval-in-mb-wrapper (let ((generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))) nil)
call-interactively(my-pp-eval-expression nil nil)
command-execute(my-pp-eval-expression)
[-- Attachment #3: Type: text/plain, Size: 17 bytes --]
HTH,
Michael.
next prev parent reply other threads:[~2016-04-23 15:20 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-04-22 17:26 [emacs-announce] Emacs pretest 25.0.93 Nicolas Petton
2016-04-22 17:52 ` Philipp Stephani
2016-04-22 18:58 ` Eli Zaretskii
2016-04-22 19:08 ` nicolas
2016-04-22 19:12 ` Nicolas Petton
2016-04-22 19:58 ` Eli Zaretskii
2016-04-23 11:41 ` Achim Gratz
2016-04-23 12:05 ` Eli Zaretskii
2016-04-23 12:28 ` Achim Gratz
2016-04-23 12:37 ` Achim Gratz
2016-04-23 12:51 ` Eli Zaretskii
2016-04-23 13:29 ` Achim Gratz
2016-04-23 13:48 ` Eli Zaretskii
2016-04-23 15:20 ` Michael Heerdegen [this message]
2016-04-23 16:55 ` Achim Gratz
2016-04-23 17:23 ` Michael Heerdegen
2016-04-23 17:59 ` Eli Zaretskii
2016-04-23 18:11 ` Achim Gratz
2016-04-23 22:19 ` Michael Heerdegen
2016-04-24 5:56 ` Eli Zaretskii
2016-04-24 6:22 ` Achim Gratz
2016-04-23 17:39 ` Glenn Morris
2016-04-23 17:54 ` Achim Gratz
2016-04-23 18:46 ` Glenn Morris
2016-04-23 12:52 ` [emacs-announce] " Eli Zaretskii
2016-04-25 10:09 ` Phillip Lord
2016-04-25 10:21 ` Eli Zaretskii
2016-04-25 13:25 ` Chris Zheng
2016-04-26 5:45 ` Eli Zaretskii
2016-04-26 16:49 ` Phillip Lord
2016-04-26 17:26 ` Eli Zaretskii
2016-04-26 17:45 ` Phillip Lord
2016-04-26 18:29 ` Eli Zaretskii
2016-04-26 19:09 ` Kaushal Modi
2016-04-26 19:14 ` Eli Zaretskii
2016-04-26 19:28 ` Kaushal Modi
2016-04-26 19:32 ` Stephen Leake
2016-04-26 19:40 ` Eli Zaretskii
2016-04-26 22:32 ` Phillip Lord
2016-04-27 7:25 ` Eli Zaretskii
2016-04-30 9:57 ` Eli Zaretskii
2016-04-25 22:30 ` Phillip Lord
2016-04-26 13:43 ` Eli Zaretskii
2016-04-26 13:57 ` Kaushal Modi
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87vb38jqs8.fsf@web.de \
--to=michael_heerdegen@web.de \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).