# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797198739 0
# Node ID f7f101a90cd48fd1d6d1a0486edc6da7205b9cce
# Parent  cf940edd7667bece4068f0c13a801efd6093031c
(desktop-save): Use dired-directory as name
of top-level in order to capture wildcards used.
(desktop-buffer-dired): Skip possible wildcard when checking
for directory existance.  Use dired-insert-subdir, not
dired-maybe-insert-subdir.

diff -r cf940edd7667 -r f7f101a90cd4 lisp/desktop.el
--- a/lisp/desktop.el	Thu Apr 06 19:51:16 1995 +0000
+++ b/lisp/desktop.el	Thu Apr 06 20:05:39 1995 +0000
@@ -1,9 +1,9 @@
 ;;; desktop.el --- save partial status of Emacs when killed
 
-;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
 
 ;; Author: Morten Welinder <terra@diku.dk>
-;; Version: 2.09
+;; Version: 2.10
 ;; Keywords: customization
 ;; Favourite-brand-of-beer: None, I hate beer.
 
@@ -50,7 +50,7 @@
 ;;
 ;;	(setq desktop-locals-to-save (cons 'foobar desktop-locals-to-save))
 ;;
-;; To avoid saving excessive amounts of data you may also with to add
+;; To avoid saving excessive amounts of data you may also wish to add
 ;; something like the following
 ;;
 ;;	(add-hook 'kill-emacs-hook
@@ -84,7 +84,7 @@
 ;;            chris@tecc.co.uk (Chris Boucher)       for a mark tip.
 ;;            f89-kam@nada.kth.se (Klas Mellbourn)   for a mh-e tip.
 ;;            kifer@sbkifer.cs.sunysb.edu (M. Kifer) for a bug hunt.
-;;            treese@lcs.mit.edu (Win Treese)        for ange-ftp ftps.
+;;            treese@lcs.mit.edu (Win Treese)        for ange-ftp tips.
 ;; ---------------------------------------------------------------------------
 ;; TODO:
 ;;
@@ -358,11 +358,13 @@
 				      (list Info-current-file
 					    Info-current-node))
 				     ((eq major-mode 'dired-mode)
-				      (nreverse
-				       (mapcar
-					(function car)
-					dired-subdir-alist)))
-				     )
+				      (cons
+				       (expand-file-name dired-directory)
+				       (cdr
+					(nreverse
+					 (mapcar
+					  (function car)
+					  dired-subdir-alist))))))
 			       (let ((locals desktop-locals-to-save)
 				     (loclist (buffer-local-variables))
 				     (ll))
@@ -470,10 +472,10 @@
 ;; ----------------------------------------------------------------------------
 (defun desktop-buffer-dired () "Load a directory using dired."
   (if (eq 'dired-mode mam)
-      (if (file-directory-p (directory-file-name (car misc)))
+      (if (file-directory-p (file-name-directory (car misc)))
 	  (progn
 	    (dired (car misc))
-	    (mapcar (function dired-maybe-insert-subdir) (cdr misc))
+	    (mapcar 'dired-insert-subdir (cdr misc))
 	    t)
 	(message "Directory %s no longer exists." (car misc))
 	(sit-for 1)