From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Thomas S. Dye" Subject: Re: [babel] (wrong-type-argument number-or-marker-p nil) Date: Sun, 7 Feb 2010 18:44:25 -1000 Message-ID: References: <87r5owk5j8.fsf@gmail.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=UTF-8; format=flowed; delsp=yes Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NeLUB-0000xe-UH for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 23:44:35 -0500 Received: from [199.232.76.173] (port=39715 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NeLUB-0000xW-LR for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 23:44:35 -0500 Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1NeLU6-0007e2-O4 for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 23:44:35 -0500 Received: from outbound-mail-360.bluehost.com ([66.147.249.254]:37842) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1NeLU6-0007dg-34 for emacs-orgmode@gnu.org; Sun, 07 Feb 2010 23:44:30 -0500 In-Reply-To: <87r5owk5j8.fsf@gmail.com> 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: Eric Schulte Cc: org-mode mailing list Hi Eric, Thanks for looking at this so quickly. Patching from email is a skill still on my horizon. I tried several =20 times without success and without gaining any idea how to resolve the =20= problem(s). You might not want to wait for me to figure out how to =20 patch. It took longer than I'm willing to admit on this list for me =20 to get to the point where I could make an emacs backtrace and longer =20 still to understand git sufficiently to make sense out of git bisect. =20= git am looks very mysterious to me right now. All the best, Tom On Feb 7, 2010, at 12:53 PM, Eric Schulte wrote: > 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 > > diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/=20= > 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-=20 > 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 > > "Thomas S. Dye" writes: > >> Aloha all, >> >> I pulled the latest org-mode this morning and got an error starting =20= >> emacs afterwards that appears to >> be tied to org-babel-load-file. >> >> 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 =20 >> 7ae93fe06479799b0d7dc233caa00ddfd6daec3a M >> contrib >> >> The backtrace from starting emacs with --debug-init follows: >> >> Debugger entered--Lisp error: (wrong-type-argument number-or-=20 >> 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-=20 >> subtract ... ...))) >> (cl-block-wrapper (catch (quote --cl-block-age--) (time-to-=20 >> 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-=20= >> file))) >> (if (and (file-exists-p exported-file) (> ... ...)) nil (org-=20 >> babel-tangle-file file base-name >> "emacs-lisp")) >> (unless (and (file-exists-p exported-file) (> ... ...)) (org-=20 >> babel-tangle-file file base-name >> "emacs-lisp")) >> (let* ((base-name ...) (exported-file ...)) (unless =20 >> (and ... ...) (org-babel-tangle-file file >> base-name "emacs-lisp")) (load-file exported-file) (message =20 >> "loaded %s" exported-file)) >> (progn (fset (quote age) (function* ...)) (let* (... ...) =20 >> (unless ... ...) (load-file >> exported-file) (message "loaded %s" exported-file))) >> (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) =20= >> (if --cl-letf-bound-- (fset ... >> --cl-letf-save--) (fmakunbound ...))) >> (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20= >> protect (progn ... ...) (if >> --cl-letf-bound-- ... ...))) >> (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file =20= >> exported-file) (message "loaded >> %s" exported-file))) >> (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file =20= >> exported-file) (message "loaded >> %s" exported-file))) >> (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-=20 >> file exported-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 =20 >> load) (directory-files >> user-specific-dir nil ".*el$")) (mapc (function org-babel-load-=20 >> 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 (...) =20 >> (mapc ... ...) (mapc ... ...))) >> eval-buffer(#> nil "/Users/dk/.emacs.d/=20 >> starter-kit.el" nil t) ; Reading at >> buffer position 6504 >> load-with-code-conversion("/Users/dk/.emacs.d/starter-kit.el" =20= >> "/Users/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 =20 >> (and ... ...) (org-babel-tangle-file file >> base-name "emacs-lisp")) (load-file exported-file) (message =20 >> "loaded %s" exported-file)) >> (progn (fset (quote age) (function* ...)) (let* (... ...) =20 >> (unless ... ...) (load-file >> exported-file) (message "loaded %s" exported-file))) >> (unwind-protect (progn (fset ... ...) (let* ... ... ... ...)) =20= >> (if --cl-letf-bound-- (fset ... >> --cl-letf-save--) (fmakunbound ...))) >> (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-=20= >> protect (progn ... ...) (if >> --cl-letf-bound-- ... ...))) >> (letf ((... ...)) (let* (... ...) (unless ... ...) (load-file =20= >> exported-file) (message "loaded >> %s" exported-file))) >> (letf* ((... ...)) (let* (... ...) (unless ... ...) (load-file =20= >> exported-file) (message "loaded >> %s" exported-file))) >> (flet ((age ... ...)) (let* (... ...) (unless ... ...) (load-=20 >> file exported-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" =20= >> nil t) ; Reading at buffer >> position 884 >> load-with-code-conversion("/Users/dk/.emacs.d/init.el" "/Users/=20= >> dk/.emacs.d/init.el" t t) >> load("/Users/dk/.emacs.d/init" t t) >> #[nil "=08\205\264 \306=3D\203. \307=08\310Q\2027 \311=3D\2033 =20= >> \312\307\313\314#\203# \315\2027 \312\ >> 307\313\316#\203/ \317\2027 \315\2027 \307=08\320Q.\321.\322\n=20 >> \321\211#\210 \321=3D\203_ \323\324\ >> 325\307=08\326Q!\".\322\f\321\211#\210 \321=3D\203^ \n.) \203\244 =20= >> \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 =20 >> system-type user-init-file-1 >> user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt =20= >> directory-files nil "^\\.emacs\\ >> (\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" =20 >> "/.emacs" t load expand-file-name >> "init" file-name-as-directory "/.emacs.d" file-name-extension =20 >> "elc" file-name-sans-extension >> ".el" file-exists-p file-newer-than-file-p message "Warning: %s =20= >> is newer 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