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
