((eq desktop-file-name-format 'local) (file-relative-name filename dirname))
(t (expand-file-name filename))))
+
;; ----------------------------------------------------------------------------
;;;###autoload
(defun desktop-save (dirname &optional release)