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

[Sebastien Vauban]

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