From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Eric Schulte" Subject: Re: [babel] (wrong-type-argument number-or-marker-p nil) Date: Sun, 07 Feb 2010 15:53:47 -0700 Message-ID: <87r5owk5j8.fsf@gmail.com> References: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NeGFH-00028U-Gw for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 18:08:51 -0500 Received: from [199.232.76.173] (port=51370 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NeGFH-000286-4s for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 18:08:51 -0500 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1NeGFD-0001ka-O2 for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 18:08:50 -0500 Received: from mail-px0-f176.google.com ([209.85.216.176]:43005) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NeGFD-0001kQ-9i for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 18:08:47 -0500 Received: by pxi6 with SMTP id 6so1354022pxi.14 for ; Sun, 07 Feb 2010 15:08:46 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "Thomas S. Dye" Cc: org-mode mailing list --=-=-= Hi Tom, Could you try the attached patch and let me know if it fixes the problem? If so I'll apply it to the main repo. Thanks -- Eric --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=quick-fix.patch diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index cad8cec..dd76195 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/contrib/babel/lisp/org-babel-tangle.el @@ -48,8 +48,8 @@ file using `load-file'." (flet ((age (file) (time-to-seconds (time-subtract (current-time) - (sixth (file-attributes - (file-truename file))))))) + (sixth (or (file-attributes (file-truename file)) + (file-attributes file))))))) (let* ((base-name (file-name-sans-extension file)) (exported-file (concat base-name ".el"))) ;; tangle if the org-mode file is newer than the elisp file --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable "Thomas S. Dye" writes: > Aloha all, > > I pulled the latest org-mode this morning and got an error starting emacs= afterwards that appears to > be tied to org-babel-load-file.=20=20 > > I ran git bisect and ended up here: > > 131441dbd2d16e92f863864ed536f37fcd4a85fc is first bad commit > commit 131441dbd2d16e92f863864ed536f37fcd4a85fc > Author: Eric Schulte > Date: Thu Feb 4 09:43:11 2010 -0700 > > babel: load-file works for symlinks -- Thanks to Martin K=E2=88=9A=C2= =BAhl > > :040000 040000 b4e1b1d95a9c1bfd182ad3a834830c4494566679 7ae93fe06479799b0= d7dc233caa00ddfd6daec3a M=20=20 > contrib > > The backtrace from starting emacs with --debug-init follows: > > Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p= nil) > time-subtract((19311 14612 450479) nil) > (time-to-seconds (time-subtract (current-time) (sixth ...))) > (catch (quote --cl-block-age--) (time-to-seconds (time-subtract ...= ...))) > (cl-block-wrapper (catch (quote --cl-block-age--) (time-to-seconds = ...))) > (block age (time-to-seconds (time-subtract ... ...))) > age("td.org") > (> (age file) (age exported-file)) > (and (file-exists-p exported-file) (> (age file) (age exported-file= ))) > (if (and (file-exists-p exported-file) (> ... ...)) nil (org-babel-= tangle-file file base-name > "emacs-lisp")) > (unless (and (file-exists-p exported-file) (> ... ...)) (org-babel-= tangle-file file base-name > "emacs-lisp")) > (let* ((base-name ...) (exported-file ...)) (unless (and ... ...) (= org-babel-tangle-file file > base-name "emacs-lisp")) (load-file exported-file) (message "loaded %= s" exported-file)) > (progn (fset (quote age) (function* ...)) (let* (... ...) (unless .= .. ...) (load-file > exported-file) (message "loaded %s" exported-file))) > (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) (if -= -cl-letf-bound-- (fset ... > --cl-letf-save--) (fmakunbound ...))) > (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-prot= ect (progn ... ...) (if > --cl-letf-bound-- ... ...))) > (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file expor= ted-file) (message "loaded > %s" exported-file))) > (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file expo= rted-file) (message "loaded > %s" exported-file))) > (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-file e= xported-file) (message > "loaded %s" exported-file))) > org-babel-load-file("td.org") > mapc(org-babel-load-file ("td.org")) > (let ((default-directory user-specific-dir)) (mapc (function load) = (directory-files > user-specific-dir nil ".*el$")) (mapc (function org-babel-load-file) = (directory-files > user-specific-dir nil ".*org$"))) > (progn (let (...) (mapc ... ...) (mapc ... ...))) > (if (file-exists-p user-specific-dir) (progn (let ... ... ...))) > (when (file-exists-p user-specific-dir) (let (...) (mapc ... ...) (= mapc ... ...))) > eval-buffer(#> nil "/Users/dk/.emacs.d/starter-ki= t.el" nil t) ; Reading at > buffer position 6504 > load-with-code-conversion("/Users/dk/.emacs.d/starter-kit.el" "/Use= rs/dk/.emacs.d/ > starter-kit.el" nil nil) > load("/Users/dk/.emacs.d/starter-kit.el" nil nil t) > load-file("/Users/dk/.emacs.d/starter-kit.el") > (let* ((base-name ...) (exported-file ...)) (unless (and ... ...) (= org-babel-tangle-file file > base-name "emacs-lisp")) (load-file exported-file) (message "loaded %= s" exported-file)) > (progn (fset (quote age) (function* ...)) (let* (... ...) (unless .= .. ...) (load-file > exported-file) (message "loaded %s" exported-file))) > (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) (if -= -cl-letf-bound-- (fset ... > --cl-letf-save--) (fmakunbound ...))) > (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-prot= ect (progn ... ...) (if > --cl-letf-bound-- ... ...))) > (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file expor= ted-file) (message "loaded > %s" exported-file))) > (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file expo= rted-file) (message "loaded > %s" exported-file))) > (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-file e= xported-file) (message > "loaded %s" exported-file))) > org-babel-load-file("/Users/dk/.emacs.d/starter-kit.org") > eval-buffer(# nil "/Users/dk/.emacs.d/init.el" nil = t) ; Reading at buffer > position 884 > load-with-code-conversion("/Users/dk/.emacs.d/init.el" "/Users/dk/.= emacs.d/init.el" t t) > load("/Users/dk/.emacs.d/init" t t) > #[nil "\205\264 \306=3D\203. \307\310Q\2027 \311=3D\2033 \312\307= \313\314#\203# \315\2027 \312\ > 307\313\316#\203/ \317\2027 \315\2027 \307\320Q.\321.\322\n\321\211#= \210 \321=3D\203_ \323\324\ > 325\307\326Q!\".\322\f\321\211#\210 \321=3D\203^ \n.) \203\244 \327 = !\330\232\203\244 \331 !\211. > \332P.\"\333.\"!\203\200 .\"\202\213 \333 > !\203\212 > \202\213 \313\211.\203\243 \334 > \"\203\241 \335\336 > #\210\337\340!\210 > .*.#?\205\263 \313.$\322\341\321\211#))\207" [init-file-user system-t= ype user-init-file-1 > user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt direc= tory-files nil "^\\.emacs\\ > (\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" "/.emac= s" t load expand-file-name > "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" f= ile-name-sans-extension > ".el" file-exists-p file-newer-than-file-p message "Warning: %s is ne= wer than %s" sit-for 1 > "default" alt inhibit-default-init inhibit-startup-screen] 7]() > command-line() > normal-top-level() > > hth, > Tom > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--