From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Support (or not) for Emacs 21, and XEmacs Date: Sat, 17 Apr 2010 00:02:45 +0200 Message-ID: <5C203EAD-54CB-47BB-97BC-0E5895EEC4E7@uva.nl> 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> <87vdbryzs1.fsf@gollum.intra.norang.ca> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1O2tcn-000508-Sw for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 18:02:57 -0400 Received: from [140.186.70.92] (port=46563 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O2tcm-0004zg-Ae for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 18:02:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1O2tcj-0005IE-68 for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 18:02:55 -0400 Received: from postduif.ic.uva.nl ([145.18.40.180]:37530) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1O2tci-0005I4-Qt for emacs-orgmode@gnu.org; Fri, 16 Apr 2010 18:02:53 -0400 In-Reply-To: <87vdbryzs1.fsf@gollum.intra.norang.ca> 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: Bernt Hansen Cc: Org-Mode List Fixed, thanks - Carsten On Apr 16, 2010, at 9:15 PM, Bernt Hansen wrote: > 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 733879 :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-excursion ... ... ... ...))) > (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-dblock 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) (org-update-dblock) (font-lock-fontify-buffer) (forward-line > 2) (buffer-substring (point) (progn ... ...))) > (unwind-protect (with-current-buffer temp-buffer (org-mode) (org- > create-dblock props) (org-update-dblock) (font-lock-fontify-buffer) > (forward-line 2) (buffer-substring ... ...)) (and (buffer-name temp- > buffer) (kill-buffer temp-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) (progn ... ...))) > org-get-clocktable(:link nil :maxlevel 2 :tstart 733878 :tend > 733879 :scope agenda) > apply(org-get-clocktable (:link nil :maxlevel 2 :tstart > 733878 :tend 733879 :scope agenda)) > (setq tbl (apply (quote org-get-clocktable) p)) > (let ((org-agenda-files ...) (p org-agenda-clockreport-parameter- > plist) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put > p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable- > end)) (setq p (plist-put 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 > (... ... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p ...) > (setq tbl ...) (insert tbl))) > (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files > thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day- > cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos > end-pos todayp nd wd clocktable-start clocktable-end) (setq org- > agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or > ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... day- > numbers) (setq ndays ...)) (setq day-numbers (nreverse 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 thefiles > 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-fit-agenda-window)) (unless (and ... ...) > (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos > 1)) (add-text-properties (point-min) (point-max) (quote ...)) (org- > finalize-agenda) (setq buffer-read-only t) (message "")) > 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-filter > preset) (and (or filter preset) (org-agenda-filter-apply filter)) > (and 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] => 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 - Carsten