Commit f4c73d07 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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
parent a4888c88
;;; 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 <>
;; 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 Boucher) for a mark tip.
;; (Klas Mellbourn) for a mh-e tip.
;; (M. Kifer) for a bug hunt.
;; (Win Treese) for ange-ftp ftps.
;; (Win Treese) for ange-ftp tips.
;; ---------------------------------------------------------------------------
;; TODO:
......@@ -358,11 +358,13 @@ MODE is the major mode."
(list Info-current-file
((eq major-mode 'dired-mode)
(function car)
(expand-file-name dired-directory)
(function car)
(let ((locals desktop-locals-to-save)
(loclist (buffer-local-variables))
......@@ -470,10 +472,10 @@ to provide correct modes for autoloaded files."
;; ----------------------------------------------------------------------------
(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)))
(dired (car misc))
(mapcar (function dired-maybe-insert-subdir) (cdr misc))
(mapcar 'dired-insert-subdir (cdr misc))
(message "Directory %s no longer exists." (car misc))
(sit-for 1)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment