Debugger entered--Lisp error: (invalid-read-syntax "#")

["Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>]

Hello,

When refiling items (or capturing), I now have (for a couple of days):

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (invalid-read-syntax "#")
  read(#<buffer bookmarks.txt>)
  bookmark-alist-from-buffer()
  bookmark-load("~/.emacs.d/bookmarks.txt" t t)
  bookmark-maybe-load-default-file()
  bookmark-set("org-refile-last-stored")
  (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level (org-get-valid-level (funcall outline-level) 1)) (goto-char (if reversed (or (outline-next-heading) (point-max)) (or (save-excursion (org-get-next-sibling)) (org-end-of-subtree t t) (point-max))))) (setq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-min)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-auto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook)))
  (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level (org-get-valid-level (funcall outline-level) 1)) (goto-char (if reversed (or (outline-next-heading) (point-max)) (or (save-excursion ...) (org-end-of-subtree t t) (point-max))))) (setq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-min)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-auto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))
  (save-current-buffer (set-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file)))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level (org-get-valid-level (funcall outline-level) 1)) (goto-char (if reversed (or ... ...) (or ... ... ...)))) (setq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-min)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-auto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook)))))
  (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level (org-get-valid-level (funcall outline-level) 1)) (goto-char (if reversed (or ... ...) (or ... ... ...)))) (setq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-min)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-auto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook)))))
  (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level (org-get-valid-level ... 1)) (goto-char (if reversed ... ...))) (setq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-min)) (or (outline-next-heading) (goto-char ...)))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-auto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file))
  (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos (point)) (< pos (save-excursion (org-end-of-subtree t t)))))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level ...) (goto-char ...)) (setq level 1) (if (not reversed) (goto-char ...) (goto-char ...) (or ... ...))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile ...) (save-excursion ...))) (and org-auto-align-tags (let (...) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file)))
  (if (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name (marker-buffer org-clock-hd-marker)) "" (marker-position org-clock-hd-marker))) (setq goto nil))) (setq it (or rfloc (let (heading-text) (save-excursion (unless goto (org-back-to-heading t) (setq heading-text ...)) (org-refile-get-location (cond ... ... ...) default-buffer (and ... org-refile-allow-creating-parent-nodes) goto)))))) (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos (point)) (< pos (save-excursion ...))))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn ... ... ... ...) (setq level 1) (if ... ... ... ...)) (if (not ...) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup ... nil nil ... org-log-refile) (unless ... ...)) (and org-auto-align-tags (let ... ...)) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker ...)) (if (fboundp ...) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file))))
  (when (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name (marker-buffer org-clock-hd-marker)) "" (marker-position org-clock-hd-marker))) (setq goto nil))) (setq it (or rfloc (let (heading-text) (save-excursion (unless goto (org-back-to-heading t) (setq heading-text ...)) (org-refile-get-location (cond ... ... ...) default-buffer (and ... org-refile-allow-creating-parent-nodes) goto)))))) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos (point)) (< pos (save-excursion (org-end-of-subtree t t)))))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (setq level ...) (goto-char ...)) (setq level 1) (if (not reversed) (goto-char ...) (goto-char ...) (or ... ...))) (if (not (bolp)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-log-refile ...) (save-excursion ...))) (and org-auto-align-tags (let (...) (org-set-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file)))
  (if (equal goto (quote (16))) (org-refile-goto-last-stored) (when (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name ...) "" (marker-position org-clock-hd-marker))) (setq goto nil))) (setq it (or rfloc (let (heading-text) (save-excursion (unless goto ... ...) (org-refile-get-location ... default-buffer ... goto)))))) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos (point)) (< pos (save-excursion ...))))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn ... ... ... ...) (setq level 1) (if ... ... ... ...)) (if (not ...) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-setup ... nil nil ... org-log-refile) (unless ... ...)) (and org-auto-align-tags (let ... ...)) (bookmark-set "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker ...)) (if (fboundp ...) (deactivate-mark)) (run-hooks (quote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file))))
  (let* ((cbuf (current-buffer)) (regionp (org-region-active-p)) (region-start (and regionp (region-beginning))) (region-end (and regionp (region-end))) (region-length (and regionp (- region-end region-start))) (filename (buffer-file-name (buffer-base-buffer cbuf))) pos it nbuf file re level reversed) (setq last-command nil) (when regionp (goto-char region-start) (or (bolp) (goto-char (point-at-bol))) (setq region-start (point)) (unless (or (org-kill-is-subtree-p (buffer-substring region-start region-end)) (prog1 org-refile-active-region-within-subtree (org-toggle-heading))) (error "The region is not a (sequence of) subtree(s)"))) (if (equal goto (quote (16))) (org-refile-goto-last-stored) (when (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list ... ... "" ...)) (setq goto nil))) (setq it (or rfloc (let (heading-text) (save-excursion ... ...))))) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos ...) (< pos ...)))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos ... ... ...) (if ... ...) (org-paste-subtree level) (when org-log-refile ... ...) (and org-auto-align-tags ...) (bookmark-set "org-refile-last-stored") (when ... ... ...) (if ... ...) (run-hooks ...)))) (if regionp (delete-region (point) (+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file)))))
  (if (member goto (quote (0 (64)))) (org-refile-cache-clear) (let* ((cbuf (current-buffer)) (regionp (org-region-active-p)) (region-start (and regionp (region-beginning))) (region-end (and regionp (region-end))) (region-length (and regionp (- region-end region-start))) (filename (buffer-file-name (buffer-base-buffer cbuf))) pos it nbuf file re level reversed) (setq last-command nil) (when regionp (goto-char region-start) (or (bolp) (goto-char (point-at-bol))) (setq region-start (point)) (unless (or (org-kill-is-subtree-p (buffer-substring region-start region-end)) (prog1 org-refile-active-region-within-subtree (org-toggle-heading))) (error "The region is not a (sequence of) subtree(s)"))) (if (equal goto (quote (16))) (org-refile-goto-last-stored) (when (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it ...) (setq goto nil))) (setq it (or rfloc (let ... ...)))) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-file-name) file) (if regionp (and ... ...) (and ... ...))) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new ...) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buffer (setq nbuf (or ... ...)) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction ... ... ... ... ... ... ... ... ... ...))) (if regionp (delete-region (point) (+ ... region-length)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" (car it) file))))))
  org-refile(nil)
  call-interactively(org-refile nil nil)
--8<---------------cut here---------------end--------------->8---

If I open my bookmarks file, I have:

--8<---------------cut here---------------start------------->8---
;;;; Emacs Bookmark Format Version 1 ;;;;
;;; This format is meant to be slightly human-readable;
;;; nevertheless, you probably don't want to edit it.
;;; -*- End Of Bookmark File Format Version Stamp -*-
((#("lit fait mvmt 92" 0 16
   (bmkp-full-record #0))
 (filename . "~/Projects/trt_fct_entr.awk")
...
--8<---------------cut here---------------end--------------->8---

So, there I see # characters, but I did not put them there!

I must admit having tried to use bookmark+ from Drew Adams (instead of bm),
but is it related anyhow?

Best regards,
  Seb

PS- Because of holidays (and work pressure), I did not update Org for weeks
before a couple of days ago.

PS2- GNU Emacs 24.1.1 (i386-mingw-nt5.1.2600) of 2012-06-02 on MARVIN
Org-mode version 7.9.1 (release_7.9.1-118-g5681a0 @ d:/home/sva/src/org-mode/lisp/)

-- 
Sebastien Vauban