Re: [PATCH] Desktop mode saves mark-ring too verbosely

[Stefan Monnier <monnier@iro.umontreal.ca>]

> You can (add-to-list 'desktop-locals-to-save 'mark-ring) and it works, so
> long as you have the fix for bug 13951 applied. But it's very verbose; for
> each element of mark-ring for each buffer, it writes an entry like
> (let ((mk (make-marker))) (add-hook 'desktop-delay-hook (list 'lambda '()
> (list 'set-marker mk 123 '(get-buffer "init.el")))) mk)

> @@ -694,7 +694,8 @@
>  	   (when (member (car locals) loclist)
>  	     (setq ll (cons (car locals) ll)))))
>         (setq locals (cdr locals)))
> -     ll)))
> +     ll)
> +   (mapcar 'marker-position mark-ring)))

Having special-case code to print&read some variables is not in itself
a bad idea, but I think we should do it via a table mapping variables to
ad-hoc massaging functions.


        Stefan