From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Re: Support (or not) for Emacs 21, and XEmacs Date: Fri, 16 Apr 2010 15:15:42 -0400 Message-ID: <87vdbryzs1.fsf@gollum.intra.norang.ca> References: <15649C3E-517D-433D-977F-06008C20A4F4@gmail.com> <87k4s7mtvk.fsf@gmx.de> <874ojb4k1t.fsf@gollum.intra.norang.ca> <237EB140-6923-47B2-8991-511BEAA6C682@uva.nl> <87r5mf31do.fsf@gollum.intra.norang.ca> <01F3859A-1BDB-4F9C-A523-B3235A055F0D@uva.nl> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1O2r1t-0002SO-V9 for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 15:16:42 -0400 Received: from [140.186.70.92] (port=43117 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O2r1F-0002Gc-Dn for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 15:16:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1O2r13-0002cO-CT for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 15:15:56 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:60295) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1O2r13-0002cH-7p for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 15:15:49 -0400 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: Carsten Dominik Cc: Org-Mode List Another bug. Attempting to get a clock report in the agenda. (R in the daily agenda) -Bernt Debugger entered--Lisp error: (void-function org-dblock-write:) org-dblock-write:((:name nil :link nil :maxlevel 2 :tstart 733878 :tend 7= 33879 :scope agenda :indentation-column 0 :content "\n")) funcall(org-dblock-write: (:name nil :link nil :maxlevel 2 :tstart 733878= :tend 733879 :scope agenda :indentation-column 0 :content "\n")) (let* ((pos ...) (line ...) (params ...) (name ...) (indent ...) (cmd ...= )) (message "Updating dynamic block `%s' at line %d..." name line) (funcall= cmd params) (message "Updating dynamic block `%s' at line %d...done" name = line) (goto-char pos) (when (and indent ...) (setq indent ...) (save-excurs= ion ... ... ... ...))) (save-window-excursion (let* (... ... ... ... ... ...) (message "Updating= dynamic block `%s' at line %d..." name line) (funcall cmd params) (message= "Updating dynamic block `%s' at line %d...done" name line) (goto-char pos)= (when ... ... ...))) org-update-dblock() (save-current-buffer (set-buffer temp-buffer) (org-mode) (org-create-dblo= ck props) (org-update-dblock) (font-lock-fontify-buffer) (forward-line 2) (= buffer-substring (point) (progn ... ...))) (with-current-buffer temp-buffer (org-mode) (org-create-dblock props) (or= g-update-dblock) (font-lock-fontify-buffer) (forward-line 2) (buffer-substr= ing (point) (progn ... ...))) (unwind-protect (with-current-buffer temp-buffer (org-mode) (org-create-d= block props) (org-update-dblock) (font-lock-fontify-buffer) (forward-line 2= ) (buffer-substring ... ...)) (and (buffer-name temp-buffer) (kill-buffer t= emp-buffer))) (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer= ... ... ... ... ... ...) (and ... ...))) (with-temp-buffer (org-mode) (org-create-dblock props) (org-update-dblock= ) (font-lock-fontify-buffer) (forward-line 2) (buffer-substring (point) (pr= ogn ... ...))) org-get-clocktable(:link nil :maxlevel 2 :tstart 733878 :tend 733879 :sco= pe agenda) apply(org-get-clocktable (:link nil :maxlevel 2 :tstart 733878 :tend 7338= 79 :scope agenda)) (setq tbl (apply (quote org-get-clocktable) p)) (let ((org-agenda-files ...) (p org-agenda-clockreport-parameter-plist) t= bl) (setq p (org-plist-delete p :block)) (setq p (plist-put p :tstart clock= table-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-pu= t p :scope ...)) (setq tbl (apply ... p)) (insert tbl)) (progn (let (... ... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p = ...) (setq tbl ...) (insert tbl))) (if (and org-agenda-clockreport-mode clocktable-start) (progn (let ... ..= . ... ... ... ... ...))) (when (and org-agenda-clockreport-mode clocktable-start) (let (... ... tb= l) (setq p ...) (setq p ...) (setq p ...) (setq p ...) (setq tbl ...) (inse= rt tbl))) (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) = (today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0) (inhibit-red= isplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd wd clock= table-start clocktable-end) (setq org-agenda-redo-command (list ... ... sta= rt-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays) (while (> = ndays 1) (push ... day-numbers) (setq ndays ...)) (setq day-numbers (nrever= se day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1= + ...)) (org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-= day) (car day-numbers)) (org-set-local (quote org-include-all-loc) include-= all) (org-set-local (quote org-agenda-span) (org-agenda-ndays-to-span nd)) = (when (and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when = rtnall ... ... ... ...)) (unless org-agenda-compact-blocks (let* ... ... ..= .) (add-text-properties s ... ...) (org-agenda-mark-header-line s)) (while = (setq d ...) (setq date ... wd ... s ...) (if ... ... ...) (setq files thef= iles rtnall nil) (while ... ...) (if org-agenda-include-diary ...) (if ... = ...)) (when (and org-agenda-clockreport-mode clocktable-start) (let ... ...= ... ... ... ... ...)) (goto-char (point-min)) (or org-agenda-multi (org-fi= t-agenda-window)) (unless (and ... ...) (goto-char ...) (recenter -1) (if .= .. ...)) (goto-char (or start-pos 1)) (add-text-properties (point-min) (poi= nt-max) (quote ...)) (org-finalize-agenda) (setq buffer-read-only t) (messa= ge "")) org-agenda-list(nil nil 1) eval((org-agenda-list (quote nil) nil 1)) (let nil (eval org-agenda-redo-command)) eval((let nil (eval org-agenda-redo-command))) org-let(nil (eval org-agenda-redo-command)) (let* ((org-agenda-keep-modes t) (filter org-agenda-filter) (preset ...) = (cols org-agenda-columns-active) (line ...) (window-line ...) (lprops ...))= (put (quote org-agenda-filter) :preset-filter nil) (and cols (org-columns-= quit)) (message "Rebuilding agenda buffer...") (org-let lprops (quote ...))= (setq org-agenda-undo-list nil org-agenda-pending-undo-list nil) (message = "Rebuilding agenda buffer...done") (put (quote org-agenda-filter) :preset-f= ilter preset) (and (or filter preset) (org-agenda-filter-apply filter)) (an= d cols (interactive-p) (org-agenda-columns)) (org-goto-line line) (recenter= window-line)) org-agenda-redo() org-agenda-clockreport-mode() call-interactively(org-agenda-clockreport-mode) Carsten Dominik writes: > On Apr 16, 2010, at 4:42 PM, Bernt Hansen wrote: > >> Thanks. I'll beat on it some more :) > > What a team! :-) > >> >> Regards, >> Bernt >> >> Carsten Dominik writes: >> >>> Hi Bernt, thanks a lot for this report - I believe I know >>> what was causing this and have fixed it, still on that branch of >>> course. >>> >>> - Carsten >>> >>> On Apr 16, 2010, at 3:13 PM, Bernt Hansen wrote: >>> >>>> Found a bug. >>>> >> >> >> >>>> Clocking in doesn't work correctly. >>>> >>>> I have a task like this >>>> >>>> ,----[ x.org ] >>>> | * TODO foo >>>> | :CLOCK: >>>> | CLOCK: [2010-04-16 Fri 09:10]--[2010-04-16 Fri 09:11] =3D> 0:01 >>>> | :END: >>>> | >>>> | ** TODO Bar baz >>>> | [2010-04-16 Fri 09:10] >>>> `---- >>>> >>>> if the parent task is clocking I can't clock in the subtask - the >>>> parent >>>> task continues to clock and the point is moved to the headline of >>>> the >>>> parent task. Same behaviour on both versions. >>>> >>>> Switching back to master until this is fixed since I can't function >>>> without working clocking :) > > - Carsten > > > > > > _______________________________________________ > 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