From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.devel Subject: Re: [emacs-announce] Emacs pretest 25.0.93 Date: Sat, 23 Apr 2016 17:20:07 +0200 Message-ID: <87vb38jqs8.fsf@web.de> References: <87r3dxbln9.fsf@petton.fr> <87bn50pn65.fsf@Rainer.invalid> <834mas5y4i.fsf@gnu.org> <877ffopkzt.fsf@Rainer.invalid> <8737qcpklh.fsf@Rainer.invalid> <8337qc5w01.fsf@gnu.org> <87vb38o3ll.fsf@Rainer.invalid> <83zisk4erk.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1461424834 25004 80.91.229.3 (23 Apr 2016 15:20:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 23 Apr 2016 15:20:34 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Apr 23 17:20:27 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1atzMB-0005ik-0x for ged-emacs-devel@m.gmane.org; Sat, 23 Apr 2016 17:20:27 +0200 Original-Received: from localhost ([::1]:52753 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1atzMA-0002J6-Bc for ged-emacs-devel@m.gmane.org; Sat, 23 Apr 2016 11:20:26 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:47461) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1atzM5-00022v-Kv for emacs-devel@gnu.org; Sat, 23 Apr 2016 11:20:23 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1atzM2-0006QF-CY for emacs-devel@gnu.org; Sat, 23 Apr 2016 11:20:21 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:36381) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1atzM2-0006Q8-2Z for emacs-devel@gnu.org; Sat, 23 Apr 2016 11:20:18 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1atzM0-0005dE-BW for emacs-devel@gnu.org; Sat, 23 Apr 2016 17:20:16 +0200 Original-Received: from ip-90-186-2-49.web.vodafone.de ([90.186.2.49]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 23 Apr 2016 17:20:16 +0200 Original-Received: from michael_heerdegen by ip-90-186-2-49.web.vodafone.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 23 Apr 2016 17:20:16 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 148 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: ip-90-186-2-49.web.vodafone.de User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.92 (gnu/linux) Cancel-Lock: sha1:Dz0gzneJNtEcDjynKMh6SzOdxdk= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-Topics: emacs-announce X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:203213 Archived-At: --=-=-= Content-Type: text/plain Eli Zaretskii 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'): --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=bt.txt_1407PLz Content-Transfer-Encoding: quoted-printable 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-- fi= le)) (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-exclude= s)) (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-buf= fer) 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-beg= inning 0)) (setq last-time (nth 4 form)) (let ((--dolist-tail-- file)) (whi= le --dolist-tail-- (let ((file ...)) (let (...) (if ... ...)) (setq --dolis= t-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-s= ection (match-beginning 0)) (if (autoload-generate-file-autoloads file (cur= rent-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* ((fo= rm (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 (strin= gp file))) ((or (not (file-exists-p file)) (member file done) (member (expa= nd-file-name file) autoload-excludes)) (autoload-remove-section (match-begi= nning 0))) ((not (time-less-p (nth 4 form) (nth 5 (file-attributes file))))= nil) (t (autoload-remove-section (match-beginning 0)) (if (autoload-genera= te-file-autoloads file (current-buffer) buffer-file-name) (setq no-autoload= s (cons file no-autoloads))))) (setq done (cons file done)) (setq files (de= lete file files)))) (save-excursion (setq files (delete (file-relative-name buffer-file-name)= (mapcar 'file-relative-name files))) (goto-char (point-min)) (while (searc= h-forward generate-autoload-section-header nil t) (let* ((form (autoload-re= ad-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-r= emove-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-au= toloads (cons file no-autoloads))))) (setq done (cons file done)) (setq fil= es (delete file files))))) (save-current-buffer (set-buffer (autoload-find-generated-file)) (save-ex= cursion (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 ...)) (aut= oload-remove-section (match-beginning 0)) (setq last-time (nth 4 form)) (le= t (...) (while --dolist-tail-- ...))) ((not (stringp file))) ((or (not ...)= (member file done) (member ... autoload-excludes)) (autoload-remove-sectio= n (match-beginning 0))) ((not (time-less-p ... ...)) nil) (t (autoload-remo= ve-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-ti= me '(0 0 0 0))) file-time) (let ((--dolist-tail-- files)) (while --dolist-t= ail-- (let ((file (car --dolist-tail--))) (cond ((member ... autoload-exclu= des) nil) ((setq file-time ...) (setq no-autoloads ...) (if ... ...))) (set= q --dolist-tail-- (cdr --dolist-tail--))))) (if no-autoloads (progn (setq n= o-autoloads (sort no-autoloads 'string<)) (goto-char (point-max)) (search-b= ackward "\f" nil t) (autoload-insert-section-header (current-buffer) nil ni= l 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-suffix= es))) (while --dolist-tail-- (let (...) (if ... nil ...) (setq --dolist-tai= l-- ...)))) (concat "^[^=3D.].*" (regexp-opt tmp t) "\\'"))) (files (apply = 'nconc (mapcar #'(lambda (dir) (directory-files ... t files-re)) dirs))) (d= one nil) (last-time) (no-autoloads nil) (autoload-modified-buffers nil) (ge= nerated-autoload-file (if (called-interactively-p 'interactive) (read-file-= name "Write autoload definitions to file: ") generated-autoload-file))) (sa= ve-current-buffer (set-buffer (autoload-find-generated-file)) (save-excursi= on (setq files (delete (file-relative-name buffer-file-name) (mapcar 'file-= relative-name files))) (goto-char (point-min)) (while (search-forward gener= ate-autoload-section-header nil t) (let* ((form (autoload-read-section-head= er)) (file (nth 3 form))) (cond ((and ... ...) (autoload-remove-section ...= ) (setq last-time ...) (let ... ...)) ((not ...)) ((or ... ... ...) (autolo= ad-remove-section ...)) ((not ...) nil) (t (autoload-remove-section ...) (i= f ... ...))) (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 (... n= il) (... ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if no-a= utoloads (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-a= utoload-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.e= l" ".")) (backup-inhibited t)) (update-directory-autoloads "."))) eval((progn (let ((generated-autoload-file (expand-file-name "helm-autolo= ads.el" ".")) (backup-inhibited t)) (update-directory-autoloads "."))) nil) pp-eval-expression((progn (let ((generated-autoload-file (expand-file-nam= e "helm-autoloads.el" ".")) (backup-inhibited t)) (update-directory-autoloa= ds ".")))) my-pp-eval-expression((my-eval-in-mb-wrapper (let ((generated-autoload-fi= le (expand-file-name "helm-autoloads.el" ".")) (backup-inhibited t)) (updat= e-directory-autoloads "."))) nil) funcall-interactively(my-pp-eval-expression (my-eval-in-mb-wrapper (let (= (generated-autoload-file (expand-file-name "helm-autoloads.el" ".")) (backu= p-inhibited t)) (update-directory-autoloads "."))) nil) call-interactively(my-pp-eval-expression nil nil) command-execute(my-pp-eval-expression) --=-=-= Content-Type: text/plain HTH, Michael. --=-=-=--