From: Michael Brand <michael.ch.brand@gmail.com>
To: Nicolas Goaziou <n.goaziou@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: bug: org-mouse broken
Date: Fri, 23 Sep 2011 12:54:50 +0200 [thread overview]
Message-ID: <CALn3zohG-_ZYrNwNyEbwGVcNPzQn=dsdC_SymR6oRHGmYSr-NA@mail.gmail.com> (raw)
In-Reply-To: <874o04a0yf.fsf@gmail.com>
[-- Attachment #1: Type: text/plain, Size: 1058 bytes --]
Hi Nicolas
There is an issue with org-feed. The backtrace is attached. I hope
this is enough to reproduce:
1) /tmp/feed.org:
#+begin_src org
,-*- coding: utf-8-unix -*-
,#+DRAWERS: FEEDSTATUS
,* podcast
, :FEEDSTATUS:
, :END:
#+end_src
2) (setq org-feed-alist '(("podcast"
"http://pod.drs.ch/sounds_mpx.xml" "/tmp/feed.org" "podcast")))
3) (org-feed-update-all)
4) hit SPC once to workaround some non-related org-feed bug (?) that I
ignore
Michael
On Thu, Sep 22, 2011 at 20:25, Nicolas Goaziou <n.goaziou@gmail.com> wrote:
> Michael Brand <michael.ch.brand@gmail.com> writes:
>
>> The file name 0001-Provide-more-consistent-regexps-for-headlines.patch
>> made me curious and I take the opportunity to support such an effort
>> by testing this patch on release_7.7-316-gdecd722.
>
> Great! Thank you for testing it.
>
>> I found the issue that "* TODO task" setting to done with "C-c C-t d"
>> leads to "* DONE TODO task".
>
> Indeed. This is fixed in the following patch. Please disregard the
> previous one.
[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 7364 bytes --]
Debugger entered--Lisp error: (error "Wrong position")
signal(error ("Wrong position"))
error("Wrong position")
(if (looking-at org-complex-heading-regexp) nil (error "Wrong position"))
(unless (looking-at org-complex-heading-regexp) (error "Wrong position"))
(save-excursion (goto-char pos) (unless (looking-at org-complex-heading-regexp) (error "Wrong position")) (setq level (org-get-valid-level ... 1)) (org-end-of-subtree t t) (skip-chars-backward " \n") (beginning-of-line 2) (setq pos (point)) (while (setq entry ...) (org-paste-subtree level entry ...)) (org-mark-ring-push pos))
(let (entry level) (save-excursion (goto-char pos) (unless ... ...) (setq level ...) (org-end-of-subtree t t) (skip-chars-backward " \n") (beginning-of-line 2) (setq pos ...) (while ... ...) (org-mark-ring-push pos)))
org-feed-add-items(1 ("* Sounds!-Podcast - Vintage-Elektronik: das Apparat Organ Quartet aus Island\n [2011-09-15 Thu 23:55]\n Vier Keyboarder und ein Schlagzeuger bilden zusammen das Apparat Organ Quartet. Die Band aus Island verzichtet auf moderne Computer und Sequencer, verwendet dafür analoge Synthesizer, Farfisa-Orgeln und Casio-Keyboards. Ihr neues Album «Polyfonia» tönt ein wenig nach Kraftwerk, Game-Soundtracks aus den 80er und Prog-Rock aus den 90er-Jahren.\n [[http://pod.drs.ch/mp3/sounds/sounds_201109152355_10193717.mp3]]\n" "* Die belgischen Indie-Rock-Urgesteine mit neuer CD\n [2011-09-19 Mon 23:55]\n dEUS, die belgische Indie-Rock-Institution, feiern in diesem Jahr ihr 20-jähriges Jubiläum. Mit den Alben \"Worst Case Scenario (1994) „In A Bar, Under The Sea\"(1996) und „The Ideal Crash\" (1999) wurden sie auch international zu einer festen Grösse. Übriggeblieben Tom Barman und der Keyboarder Klaas Janzoons. Waren die Vielschichtig und trotzdem geradlinig präsentiert sich die neue, 6.CD „Keep You Close „. Verzichtet wurde auf elektronische Spielereien („Vintage Point\"), Dancefloor-orientierte Beatlastigkeit („The Architect\") oder Zerfahrenheit (\"Pocket Revolution\"). Angesagt ist entspannter Pop-Rock mit Klavier, Gitarre Streicher und Bläser. von der Urbesetzung sind allerdings nur noch der Sänger und Gitarrist Tom Barman und der Keyboarder Klaas Janzoons.\n [[http://pod.drs.ch/mp3/sounds/sounds_201109192355_10194329.mp3]]\n" "* Sounds!-Podcast - Mit Düsi durch die Plattenläden Londons\n [2011-09-20 Tue 23:55]\n Unser Mann in London, Hanspeter Düsi Künzler , stöberte einmal mehr in den Regalen der Plattenläden in der englischen Hauptstadt. Gefunden hat er ein paar heisse, bei uns noch nicht veröffentlichten Herbstneuheiten auf CD und Vinyl. Zu hören sind u.a. Duke Spirit, Veronica Falls, Real Tuesday Weld oder Peggy Sue.\n [[http://pod.drs.ch/mp3/sounds/sounds_201109202355_10194271.mp3]]\n" "* Podcast: Charmanter Folk-Pop vom Duo Slow Club aus Sheffield\n [2011-09-21 Wed 23:55]\n Kennengelernt haben sich Rebeccca Taylor und Charles Watson während der Schulzeit in Sheffield. Seit 2006 machen sie unter dem Name Slow Club gemeinsam Musik. Ihr Debut-Album «Yeah So» war geprägt von einer charmanten Mischung aus Folk und Pop , beschränkt auf Gesang und Gitarre. Auf der neuen CD «Paradise» kommen noch Geige, Piano und E-Gitarre hinzu. Herzschmerz, Liebe und Tod sind die zentralen Themen. \n [[http://pod.drs.ch/mp3/sounds/sounds_201109212355_10194350.mp3]]\n" "* Sounds!-Podcast - Interview mit St. Vincent\n [2011-09-22 Thu 23:55]\n Hinter dem Namen St. Vincent steckt die texanische Singer/Songwriterin und Multiinstrumentalistin Annie Clark. Im Sounds!-Interview spricht sie u.a. über ihre Affinität zu Jazz (John Coltrane, Charlie Mingus), die Bedeutung von Tom Waits oder ihre ersten musikalischen Gehversuche auf dem Computer. Ausserdem verrät sie uns ihre literarischen Vorlieben und gibt Auskunft über die neue CD «Strange Mercy».\n [[http://pod.drs.ch/mp3/sounds/sounds_201109222355_10194051.mp3]]\n"))
(progn (if new-handler (progn ... ...) (setq new-formatted ...)) (org-feed-add-items inbox-pos new-formatted))
(if new (progn (if new-handler ... ...) (org-feed-add-items inbox-pos new-formatted)))
(when new (if new-handler (progn ... ...) (setq new-formatted ...)) (org-feed-add-items inbox-pos new-formatted))
(save-window-excursion (setq inbox-pos (org-feed-goto-inbox-internal file headline)) (setq old-status (org-feed-read-previous-status inbox-pos drawer)) (setq entries (mapcar ... entries)) (dolist (e entries) (if ... ... ... ...)) (setq new (mapcar parse-entry new) changed (mapcar parse-entry changed)) (when filter (setq new ... changed ...)) (when (not ...) (message "No new items in feed %s" name) (throw ... 0)) (setq guid-alist (append ... ...)) (setq status (mapcar ... entries)) (when new (if new-handler ... ...) (org-feed-add-items inbox-pos new-formatted)) (when (and changed-handler changed) (goto-char inbox-pos) (funcall changed-handler changed)) (org-feed-write-status inbox-pos drawer status) (goto-char inbox-pos) (hide-subtree) (show-children) (org-cycle-hide-drawers (quote children)) (when org-feed-save-after-adding (save-buffer)) (message "Added %d new item%s from feed %s to file %s, heading %s" (length new) (if ... "s" "") name (file-name-nondirectory file) headline) (run-hooks (quote org-feed-after-adding-hook)) (length new))
(save-excursion (save-window-excursion (setq inbox-pos ...) (setq old-status ...) (setq entries ...) (dolist ... ...) (setq new ... changed ...) (when filter ...) (when ... ... ...) (setq guid-alist ...) (setq status ...) (when new ... ...) (when ... ... ...) (org-feed-write-status inbox-pos drawer status) (goto-char inbox-pos) (hide-subtree) (show-children) (org-cycle-hide-drawers ...) (when org-feed-save-after-adding ...) (message "Added %d new item%s from feed %s to file %s, heading %s" ... ... name ... headline) (run-hooks ...) (length new)))
(let ((name ...) (url ...) (file ...) (headline ...) (filter ...) (formatter ...) (new-handler ...) (changed-handler ...) (template ...) (drawer ...) (parse-feed ...) (parse-entry ...) feed-buffer inbox-pos new-formatted entries old-status status new changed guid-alist e guid olds) (setq feed-buffer (org-feed-get-feed url)) (unless (and feed-buffer ...) (error "Cannot get feed %s" name)) (when retrieve-only (throw ... feed-buffer)) (setq entries (funcall parse-feed feed-buffer)) (ignore-errors (kill-buffer feed-buffer)) (save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
(catch (quote exit) (let (... ... ... ... ... ... ... ... ... ... ... ... feed-buffer inbox-pos new-formatted entries old-status status new changed guid-alist e guid olds) (setq feed-buffer ...) (unless ... ...) (when retrieve-only ...) (setq entries ...) (ignore-errors ...) (save-excursion ...)))
org-feed-update(("podcast" "http://pod.drs.ch/sounds_mpx.xml" "/tmp/feed.org" "podcast"))
mapcar(org-feed-update (("podcast" "http://pod.drs.ch/sounds_mpx.xml" "/tmp/feed.org" "podcast")))
(apply (quote +) (mapcar (quote org-feed-update) org-feed-alist))
(let ((nfeeds ...) (nnew ...)) (message "%s from %d %s" (cond ... ... ...) nfeeds (if ... "feed" "feeds")))
org-feed-update-all()
eval((org-feed-update-all))
eval-last-sexp-1(nil)
eval-last-sexp(nil)
call-interactively(eval-last-sexp nil nil)
next prev parent reply other threads:[~2011-09-23 10:54 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-08-19 5:56 bug: org-mouse broken Samuel Wales
2011-08-19 6:06 ` Samuel Wales
2011-09-20 17:39 ` Samuel Wales
2011-09-20 17:42 ` Samuel Wales
2011-09-22 14:19 ` Nicolas Goaziou
2011-09-22 16:26 ` Michael Brand
2011-09-22 18:25 ` Nicolas Goaziou
2011-09-22 18:45 ` Michael Brand
2011-09-23 10:54 ` Michael Brand [this message]
2011-09-23 16:45 ` Nicolas Goaziou
2011-09-23 17:00 ` Michael Brand
2011-09-25 10:19 ` Michael Brand
2011-09-28 15:53 ` Nicolas Goaziou
2011-09-28 16:06 ` Michael Brand
2011-11-03 18:03 ` Michael Brand
2011-11-03 20:43 ` Nicolas Goaziou
2011-11-03 21:10 ` Michael Brand
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='CALn3zohG-_ZYrNwNyEbwGVcNPzQn=dsdC_SymR6oRHGmYSr-NA@mail.gmail.com' \
--to=michael.ch.brand@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=n.goaziou@gmail.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).