emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
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

  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).