From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: Re: Cannot agenda - bulk shift SCHEDULED entries with repeater interval Date: Wed, 12 Sep 2012 16:23:51 +0200 Message-ID: <50509AF7.8090502@online.de> References: <87pq5sr9e4.fsf@mean.albasani.net> <5050337F.2080702@online.de> <5050345F.7060609@online.de> <87mx0vtr5h.fsf@altern.org> <5050760E.6080109@online.de> <87har3z72c.fsf@altern.org> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15 Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60333) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TBnrG-0005jx-3Y for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 10:24:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TBnr9-0000Z6-Vd for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 10:24:02 -0400 Received: from moutng.kundenserver.de ([212.227.126.187]:56413) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TBnr9-0000Yw-Ln for emacs-orgmode@gnu.org; Wed, 12 Sep 2012 10:23:55 -0400 In-Reply-To: <87har3z72c.fsf@altern.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: Memnon Anon , emacs-orgmode@gnu.org Am 12.09.2012 15:47, schrieb Bastien: > Hi Rainer, > > Rainer Stengele writes: > >> agenda is no more working: (I use sticky Agendas) > yes, related to another change, that I just fixed too. > > Please try again and let me know if things are okay now. > > Thanks! > Hi Bastien, there seems to be another problem: Debugger entered--Lisp error: (wrong-type-argument stringp 48) string-match("HIDEAGENDA\\|REFILETARGET" 48) (and hide-re (string-match hide-re tg)) (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 (quote inherited) tg))) (if (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 (quote inherited) tg))) nil tg) (lambda (tg) (if (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 (quote inherited) tg))) nil tg))(48) mapcar((lambda (tg) (if (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 (quote inherited) tg))) nil tg)) "09:00") (delq nil (mapcar (lambda (tg) (if (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 (quote inherited) tg))) nil tg)) tags)) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re (string-match hide-re tg)) (and (not add-inherited) (get-text-property 0 ... tg))) nil tg)) tags))) (progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":")))))) (if (or add-inherited hide-re) (progn (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or ... ...) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda ... ... ...) tags ":") (if have-i "::" ":"))))))) (when (or add-inherited hide-re) (if (string-match (org-re "\\([ ]+\\)\\(:[[:alnum:]_@#%:]+:\\)[ ]*$") txt) (setq txt (substring txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (lambda (tg) (if (or (and hide-re ...) (and ... ...)) nil tg)) tags))) (when tags (let ((have-i (get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt " :" (mapconcat (lambda (x) (setq i ...) (if ... ... x)) tags ":") (if have-i "::" ":")))))) org-agenda-fix-displayed-tags(#("----------------" 0 16 (org-heading t)) "09:00" t "HIDEAGENDA\\|REFILETARGET") (setq txt (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) ... Thanks, Rainer