From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
Subject: Debugger entered--Lisp error: (invalid-read-syntax "#")
Date: Wed, 05 Sep 2012 23:04:04 +0200
Message-ID: <80r4qg18sb.fsf@somewhere.org>
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@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 (poin=
t-min)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bol=
p)) (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-=
setup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq or=
g-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-a=
uto-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-s=
et-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-a=
nd-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-ma=
rker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (=
quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refi=
le-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 o=
utline-level) 1)) (goto-char (if reversed (or (outline-next-heading) (point=
-max)) (or (save-excursion ...) (org-end-of-subtree t t) (point-max))))) (s=
etq level 1) (if (not reversed) (goto-char (point-max)) (goto-char (point-m=
in)) (or (outline-next-heading) (goto-char (point-max))))) (if (not (bolp))=
 (newline)) (org-paste-subtree level) (when org-log-refile (org-add-log-set=
up (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org-l=
og-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-marke=
r") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (quo=
te deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refile-=
insert-hook))))
  (save-current-buffer (set-buffer (setq nbuf (or (find-buffer-visiting fil=
e) (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 o=
utline-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-s=
etup (quote refile) nil nil (quote findpos) org-log-refile) (unless (eq org=
-log-refile (quote note)) (save-excursion (org-add-log-note)))) (and org-au=
to-align-tags (let ((org-loop-over-headlines-in-active-region nil)) (org-se=
t-tags nil t))) (bookmark-set "org-refile-last-stored") (when (org-bound-an=
d-true-p org-refile-for-capture) (bookmark-set "org-capture-last-stored-mar=
ker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp (q=
uote deactivate-mark)) (deactivate-mark)) (run-hooks (quote org-after-refil=
e-insert-hook)))))
  (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find-fil=
e-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-excur=
sion (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at o=
rg-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 (o=
utline-next-heading) (goto-char (point-max))))) (if (not (bolp)) (newline))=
 (org-paste-subtree level) (when org-log-refile (org-add-log-setup (quote r=
efile) 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-m=
arker org-capture-last-stored-marker (point))) (if (fboundp (quote deactiva=
te-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-s=
ubstring 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 (out=
line-next-heading) (goto-char ...)))) (if (not (bolp)) (newline)) (org-past=
e-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 ((or=
g-loop-over-headlines-in-active-region nil)) (org-set-tags nil t))) (bookma=
rk-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" (c=
ar 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 (>=3D pos region=
-start) (<=3D pos region-end)) (and (>=3D pos (point)) (< pos (save-excursi=
on (org-end-of-subtree t t)))))) (error "Cannot refile to position inside t=
he 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-kil=
l-new (buffer-substring region-start region-end)) (org-save-markers-in-regi=
on region-start region-end)) (org-copy-subtree 1 nil t)) (with-current-buff=
er (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (=
setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restricti=
on (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp) (=
setq level ...) (goto-char ...)) (setq level 1) (if (not reversed) (goto-ch=
ar ...) (goto-char ...) (or ... ...))) (if (not (bolp)) (newline)) (org-pas=
te-subtree level) (when org-log-refile (org-add-log-setup (quote refile) ni=
l 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-r=
efile-for-capture) (bookmark-set "org-capture-last-stored-marker") (move-ma=
rker org-capture-last-stored-marker (point))) (if (fboundp (quote deactivat=
e-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-E=
ND-maybe)) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in fi=
le %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") (bu=
ffer-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 ... or=
g-refile-allow-creating-parent-nodes) goto)))))) (progn (setq file (nth 1 i=
t) re (nth 2 it) pos (nth 3 it)) (if (and (not goto) pos (equal (buffer-fil=
e-name) file) (if regionp (and (>=3D pos region-start) (<=3D pos region-end=
)) (and (>=3D pos (point)) (< pos (save-excursion ...))))) (error "Cannot r=
efile to position inside the tree or region")) (setq nbuf (or (find-buffer-=
visiting file) (find-file-noselect file))) (if goto (progn (org-pop-to-buff=
er-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) (fi=
nd-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-refi=
le) (unless ... ...)) (and org-auto-align-tags (let ... ...)) (bookmark-set=
 "org-refile-last-stored") (when (org-bound-and-true-p org-refile-for-captu=
re) (bookmark-set "org-capture-last-stored-marker") (move-marker org-captur=
e-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-i=
nlinetask)) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move ni=
l) (message "Refiled to \"%s\" in file %s" (car it) file))))
  (when (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-cloc=
k-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (=
buffer-file-name (marker-buffer org-clock-hd-marker)) "" (marker-position o=
rg-clock-hd-marker))) (setq goto nil))) (setq it (or rfloc (let (heading-te=
xt) (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-nam=
e) file) (if regionp (and (>=3D pos region-start) (<=3D pos region-end)) (a=
nd (>=3D 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 (quo=
te org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-st=
art 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-vi=
siting file) (find-file-noselect file))) (setq reversed (org-notes-order-re=
versed-p)) (save-excursion (save-restriction (widen) (if pos (progn (goto-c=
har 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-r=
efile (org-add-log-setup (quote refile) nil nil (quote findpos) org-log-ref=
ile) (unless (eq org-log-refile ...) (save-excursion ...))) (and org-auto-a=
lign-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-mark=
er (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-m=
ove nil) (message "Refiled to \"%s\" in file %s" (car it) file)))
  (if (equal goto (quote (16))) (org-refile-goto-last-stored) (when (or (an=
d (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (p=
rog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-nam=
e ...) "" (marker-position org-clock-hd-marker))) (setq goto nil))) (setq i=
t (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 (>=3D pos region-start) (<=3D pos region-end))=
 (and (>=3D pos (point)) (< pos (save-excursion ...))))) (error "Cannot ref=
ile to position inside the tree or region")) (setq nbuf (or (find-buffer-vi=
siting 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 ni=
l t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting file) (find=
-file-noselect file))) (setq reversed (org-notes-order-reversed-p)) (save-e=
xcursion (save-restriction (widen) (if pos (progn ... ... ... ...) (setq le=
vel 1) (if ... ... ... ...)) (if (not ...) (newline)) (org-paste-subtree le=
vel) (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 (q=
uote org-after-refile-insert-hook))))) (if regionp (delete-region (point) (=
+ (point) region-length)) (org-cut-subtree)) (when (featurep (quote org-inl=
inetask)) (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-st=
art (and regionp (region-beginning))) (region-end (and regionp (region-end)=
)) (region-length (and regionp (- region-end region-start))) (filename (buf=
fer-file-name (buffer-base-buffer cbuf))) pos it nbuf file re level reverse=
d) (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-re=
file-active-region-within-subtree (org-toggle-heading))) (error "The region=
 is not a (sequence of) subtree(s)"))) (if (equal goto (quote (16))) (org-r=
efile-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 (>=3D pos regio=
n-start) (<=3D pos region-end)) (and (>=3D 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-g=
oto))) (if regionp (progn (org-kill-new (buffer-substring region-start regi=
on-end)) (org-save-markers-in-region region-start region-end)) (org-copy-su=
btree 1 nil t)) (with-current-buffer (setq nbuf (or (find-buffer-visiting f=
ile) (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-a=
lign-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) (messag=
e "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 region=
p (region-beginning))) (region-end (and regionp (region-end))) (region-leng=
th (and regionp (- region-end region-start))) (filename (buffer-file-name (=
buffer-base-buffer cbuf))) pos it nbuf file re level reversed) (setq last-c=
ommand nil) (when regionp (goto-char region-start) (or (bolp) (goto-char (p=
oint-at-bol))) (setq region-start (point)) (unless (or (org-kill-is-subtree=
-p (buffer-substring region-start region-end)) (prog1 org-refile-active-reg=
ion-within-subtree (org-toggle-heading))) (error "The region is not a (sequ=
ence 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 o=
rg-clock-hd-marker) (prog1 (setq it ...) (setq goto nil))) (setq it (or rfl=
oc (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 re=
gion")) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file=
))) (if goto (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (o=
rg-show-context (quote org-goto))) (if regionp (progn (org-kill-new ...) (o=
rg-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil=
 t)) (with-current-buffer (setq nbuf (or ... ...)) (setq reversed (org-note=
s-order-reversed-p)) (save-excursion (save-restriction ... ... ... ... ... =
... ... ... ... ...))) (if regionp (delete-region (point) (+ ... region-len=
gth)) (org-cut-subtree)) (when (featurep (quote org-inlinetask)) (org-inlin=
etask-remove-END-maybe)) (setq org-markers-to-move nil) (message "Refiled t=
o \"%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-mod=
e/lisp/)

--=20
Sebastien Vauban