(desktop-relative-file-names): New variable.

(desktop-save): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 781ef98ca959b48398672bef29f229a16b0363fb..b6f333ce89760aea851bc715dfc2f04fe38b9fbe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-04  Robert Fenk  <Robert.Fenk@gmx.de>  (tiny change)
+
+       * desktop.el (desktop-relative-file-names): New variable.
+       (desktop-save): Use it.
+
 2002-11-03  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-dired-mode): Adapt dired-move-to-filename-regexp to
@@ -415,7 +420,7 @@
        (cp866): Delete this alias.
        ("Bulgarian"): Fix the value of `input-method'.
 
-2002-10-16  Luc Teirlinck  <teirllm@mail.auburn.edu>  (tiny change)
+2002-10-16  Luc Teirlinck  <teirllm@mail.auburn.edu>
 
        * dired-aux.el (dired-add-entry): Put point in correct position
        before inserting marker char.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index f0749ef66a1b6537aa5f942ae56f7b61d655e05b..11665272f885a34492767dc58a3d5ca4d338c4d0 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -471,6 +471,11 @@ MODE is the major mode."
             (and (null filename)
                  (memq mode desktop-buffer-modes-to-save))))))
 ;; ----------------------------------------------------------------------------
+(defcustom desktop-relative-file-names nil
+  "*Store relative file names in the desktop file."
+  :type 'boolean
+  :group 'desktop)
+
 (defun desktop-save (dirname)
   "Save the Desktop file.  Parameter DIRNAME specifies where to save desktop."
   (interactive "DDirectory to save desktop file in: ")
@@ -481,42 +486,46 @@ MODE is the major mode."
                 (mapcar
                  (function
                   (lambda (b)
-                             (set-buffer b)
-                             (list
-                              (buffer-file-name)
-                              (buffer-name)
-                              major-mode
-                              ;; minor modes
-                              (let (ret)
-                                (mapcar
-                                 #'(lambda (mim)
-                                     (and (boundp mim)
-                                          (symbol-value mim)
-                                          (setq ret
-                                                (cons (let ((special (assq mim desktop-minor-mode-table)))
-                                                       (if special
-                                                           (cadr special)
-                                                         mim))
-                                                     ret))))
-                                 (mapcar #'car minor-mode-alist))
-                                ret)
-                              (point)
-                              (list (mark t) mark-active)
-                              buffer-read-only
-                               (run-hook-with-args-until-success
-                                'desktop-buffer-misc-functions)
-                              (let ((locals desktop-locals-to-save)
-                                    (loclist (buffer-local-variables))
-                                    (ll))
-                                (while locals
-                                  (let ((here (assq (car locals) loclist)))
-                                    (if here
-                                        (setq ll (cons here ll))
-                                      (if (member (car locals) loclist)
-                                          (setq ll (cons (car locals) ll)))))
-                                  (setq locals (cdr locals)))
-                                ll)
-                              )))
+                    (set-buffer b)
+                    (list
+                     (let ((bn (buffer-file-name)))
+                       (if bn
+                           (if desktop-relative-file-names
+                               (file-relative-name bn dirname)
+                             bn)))
+                     (buffer-name)
+                     major-mode
+                     ;; minor modes
+                     (let (ret)
+                       (mapcar
+                        #'(lambda (mim)
+                            (and (boundp mim)
+                                 (symbol-value mim)
+                                 (setq ret
+                                       (cons (let ((special (assq mim desktop-minor-mode-table)))
+                                               (if special
+                                                   (cadr special)
+                                                 mim))
+                                             ret))))
+                        (mapcar #'car minor-mode-alist))
+                       ret)
+                     (point)
+                     (list (mark t) mark-active)
+                     buffer-read-only
+                     (run-hook-with-args-until-success
+                      'desktop-buffer-misc-functions)
+                     (let ((locals desktop-locals-to-save)
+                           (loclist (buffer-local-variables))
+                           (ll))
+                       (while locals
+                         (let ((here (assq (car locals) loclist)))
+                           (if here
+                               (setq ll (cons here ll))
+                             (if (member (car locals) loclist)
+                                 (setq ll (cons (car locals) ll)))))
+                         (setq locals (cdr locals)))
+                       ll)
+                     )))
                  (buffer-list))))
          (buf (get-buffer-create "*desktop*")))
       (set-buffer buf)
@@ -537,15 +546,15 @@ MODE is the major mode."
       (insert "\n;; Buffer section:\n")
       (mapcar
        (function (lambda (l)
-                  (if (apply 'desktop-save-buffer-p l)
-                      (progn
-                        (insert desktop-create-buffer-form)
-                        (mapcar
-                         (function (lambda (e)
-                                     (insert "\n  "
-                                             (desktop-value-to-string e))))
-                         l)
-                        (insert ")\n\n")))))
+         (if (apply 'desktop-save-buffer-p l)
+             (progn
+               (insert desktop-create-buffer-form)
+               (mapcar
+                (function (lambda (e)
+                  (insert "\n  "
+                          (desktop-value-to-string e))))
+                l)
+               (insert ")\n\n")))))
        info)
       (setq default-directory dirname)
       (if (file-exists-p filename) (delete-file filename))