Re: [O] Cannot agenda - bulk shift SCHEDULED entries with repeater interval

[Rainer Stengele]

Am 12.09.2012 15:47, schrieb Bastien:
> Hi Rainer,
>
> Rainer Stengele <address@hidden> 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:address@hidden:]+:\\)[     ]*$") 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:address@hidden:]+:\\)[     ]*$") 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:address@hidden:]+:\\)[     ]*$") 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