From: Rainer Stengele <rainer.stengele@online.de>
To: Bastien <bzg@altern.org>
Cc: Memnon Anon <gegendosenfleisch@googlemail.com>, emacs-orgmode@gnu.org
Subject: Re: Cannot agenda - bulk shift SCHEDULED entries with repeater interval
Date: Wed, 12 Sep 2012 16:23:51 +0200 [thread overview]
Message-ID: <50509AF7.8090502@online.de> (raw)
In-Reply-To: <87har3z72c.fsf@altern.org>
Am 12.09.2012 15:47, schrieb Bastien:
> Hi Rainer,
>
> Rainer Stengele <rainer.stengele@online.de> 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
next prev parent reply other threads:[~2012-09-12 14:24 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-09-10 14:38 Cannot agenda - bulk shift SCHEDULED entries with repeater interval Rainer Stengele
2012-09-11 13:15 ` Memnon Anon
2012-09-12 7:02 ` Rainer Stengele
2012-09-12 7:06 ` Rainer Stengele
2012-09-12 10:38 ` Bastien
2012-09-12 11:46 ` Rainer Stengele
2012-09-12 13:47 ` Bastien
2012-09-12 14:23 ` Rainer Stengele [this message]
2012-09-12 15:17 ` Bastien
2012-09-13 6:39 ` Cannot agenda - bulk shift SCHEDULED entries with repeater interval => SOLVED Rainer Stengele
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=50509AF7.8090502@online.de \
--to=rainer.stengele@online.de \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
--cc=gegendosenfleisch@googlemail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).