Re: bug: org-mouse broken

[Michael Brand <michael.ch.brand@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)