Am 12.09.2012 15:47, schrieb Bastien:
> Hi Rainer,
>
> Rainer Stengele <[email protected]> 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
