X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0b9bd5040cff82bde56f1bcc59f60437ffc9a969..85b5a0254674475e1fbd5b51c8ed8b5fa67f3c8e:/lisp/desktop.el

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 405f6a243f..979f12b3b0 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1,9 +1,10 @@
 ;;; desktop.el --- save partial status of Emacs when killed
 
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
 
 ;; Author: Morten Welinder <terra@diku.dk>
-;; Version: 2.02
+;; Keywords: customization
+;; Favourite-brand-of-beer: None, I hate beer.
 
 ;; This file is part of GNU Emacs.
 
@@ -18,8 +19,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -31,33 +33,58 @@
 ;;		- the point
 ;;		- the mark & mark-active
 ;;		- buffer-read-only
-;;		- truncate-lines
-;;		- case-fold-search
-;;		- case-replace
-;;		- fill-column
+;;		- some local variables
 
-;; To use this, first put these three lines in the bottom of your .emacs
+;; To use this, first put these two lines in the bottom of your .emacs
 ;; file (the later the better):
 ;;
-;;	(load "desktop")
 ;;	(desktop-load-default)
 ;;	(desktop-read)
 ;;
+;; Between the second and the third line you may wish to add something that
+;; updates the variables `desktop-globals-to-save' and/or
+;; `desktop-locals-to-save'.  If for instance you want to save the local
+;; variable `foobar' for every buffer in which it is local, you could add
+;; the line
+;;
+;;	(setq desktop-locals-to-save (cons 'foobar desktop-locals-to-save))
+;;
+;; To avoid saving excessive amounts of data you may also wish to add
+;; something like the following
+;;
+;;	(add-hook 'kill-emacs-hook
+;;		  '(lambda ()
+;;		     (desktop-truncate search-ring 3)
+;;		     (desktop-truncate regexp-search-ring 3)))
+;;
+;; which will make sure that no more than three search items are saved.  You
+;; must place this line *after* the (load "desktop") line.  See also the
+;; variable desktop-save-hook.
 
 ;; Start Emacs in the root directory of your "project". The desktop saver
 ;; is inactive by default.  You activate it by M-x desktop-save RET.  When
 ;; you exit the next time the above data will be saved.  This ensures that
 ;; all the files you were editing will be reloaded the next time you start
 ;; Emacs from the same directory and that points will be set where you
-;; left them.
-;;
+;; left them.  If you save a desktop file in your home directory it will
+;; act as a default desktop when you start Emacs from a directory that
+;; doesn't have its own.  I never do this, but you may want to.
+
+;; By the way: don't use desktop.el to customize Emacs -- the file .emacs
+;; in your home directory is used for that.  Saving global default values
+;; for buffers is an example of misuse.
+
 ;; PLEASE NOTE: The kill ring can be saved as specified by the variable
 ;; `desktop-globals-to-save' (by default it isn't).  This may result in saving
 ;; things you did not mean to keep.  Use M-x desktop-clear RET.
-;;
-;; Thanks to  hetrick@phys.uva.nl (Jim Hetrick)   for useful ideas.
-;;            avk@rtsg.mot.com (Andrew V. Klein)  for a dired tip.
-;;            chris@tecc.co.uk (Chris Boucher)    for a mark tip.
+
+;; Thanks to  hetrick@phys.uva.nl (Jim Hetrick)      for useful ideas.
+;;            avk@rtsg.mot.com (Andrew V. Klein)     for a dired tip.
+;;            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 tips.
+;;            pot@cnuce.cnr.it (Francesco Potorti`)  for misc. tips.
 ;; ---------------------------------------------------------------------------
 ;; TODO:
 ;;
@@ -68,45 +95,129 @@
 
 ;;; Code:
 
+;; Make the compilation more silent
+(eval-when-compile
+  ;; We use functions from these modules
+  ;; We can't (require 'mh-e) since that wants to load something.
+  (mapcar 'require '(info dired reporter)))
+;; ----------------------------------------------------------------------------
 ;; USER OPTIONS -- settings you might want to play with.
 ;; ----------------------------------------------------------------------------
-(defconst desktop-basefilename
-  (if (equal system-type 'ms-dos)
-      "emacs.dsk" ; Ms-Dos does not support multiple dots in file name
-    ".emacs.desktop")
-  "File for Emacs desktop.  A directory name will be prepended to this name.")
 
-(defvar desktop-missing-file-warning t
-  "*If non-nil then issue warning if a file no longer exists.
-Otherwise simply ignore the file.")
+(defgroup desktop nil
+  "Save status of Emacs when you exit."
+  :group 'frames)
+
+(defcustom desktop-enable nil
+  "*Non-nil enable Desktop to save the state of Emacs when you exit."
+  :group 'desktop
+  :type 'boolean
+  :require 'desktop
+  :initialize 'custom-initialize-default
+  :version "20.3")
+
+(defcustom desktop-basefilename
+  (convert-standard-filename ".emacs.desktop")
+  "File for Emacs desktop, not including the directory name."
+  :type 'file
+  :group 'desktop)
+
+(defcustom desktop-missing-file-warning nil
+  "*If non-nil then desktop warns when a file no longer exists.
+Otherwise it simply ignores that file."
+  :type 'boolean
+  :group 'desktop)
 
 (defvar desktop-globals-to-save
   (list 'desktop-missing-file-warning
 	;; Feature: saving kill-ring implies saving kill-ring-yank-pointer
-	;; 'kill-ring			
+	;; 'kill-ring
 	'tags-file-name
 	'tags-table-list
+	'search-ring
+	'regexp-search-ring
+	'register-alist
 	;; 'desktop-globals-to-save	; Itself!
-	) 
-  "List of global variables to save when killing Emacs.")
+	)
+  "List of global variables to save when killing Emacs.
+An element may be variable name (a symbol)
+or a cons cell of the form  (VAR . MAX-SIZE),
+which means to truncate VAR's value to at most MAX-SIZE elements
+\(if the value is a list) before saving the value.")
+
+(defvar desktop-locals-to-save
+  (list 'desktop-locals-to-save		; Itself!  Think it over.
+        'truncate-lines
+	'case-fold-search
+	'case-replace
+	'fill-column
+	'overwrite-mode
+	'change-log-default-name
+	'line-number-mode
+	)
+  "List of local variables to save for each buffer.
+The variables are saved only when they really are local.")
+(make-variable-buffer-local 'desktop-locals-to-save)
 
 ;; We skip .log files because they are normally temporary.
-;;         (ftp) files because they require passwords and whatsnot.
+;;         (ftp) files because they require passwords and whatnot.
 ;;         TAGS files to save time (tags-file-name is saved instead).
-(defvar desktop-buffers-not-to-save
- "\\(\\.log\\|(ftp)\\|^tags\\|^TAGS\\)$"
- "Regexp identifying buffers that are to be excluded from saving.")
+(defcustom desktop-buffers-not-to-save
+ "\\(^nn\\.a[0-9]+\\|\\.log\\|(ftp)\\|^tags\\|^TAGS\\)$"
+ "Regexp identifying buffers that are to be excluded from saving."
+ :type 'regexp
+ :group 'desktop)
+
+;; Skip ange-ftp files
+(defcustom desktop-files-not-to-save
+  "^/[^/:]*:"
+  "Regexp identifying files whose buffers are to be excluded from saving."
+  :type 'regexp
+  :group 'desktop)
+
+(defcustom desktop-buffer-major-mode nil
+  "When desktop creates a buffer, this holds the desired Major mode."
+  :type 'symbol
+  :group 'desktop)
+
+(defcustom desktop-buffer-file-name nil
+  "When desktop creates a buffer, this holds the file name to visit."
+  :type '(choice file (const nil))
+  :group 'desktop)
 
-(defvar desktop-buffer-handlers
+(defcustom desktop-buffer-name nil
+  "When desktop creates a buffer, this holds the desired buffer name."
+  :type '(choice string (const nil))
+  :group 'desktop)
+
+(defvar desktop-buffer-misc nil
+  "When desktop creates a buffer, this holds a list of misc info.
+It is used by the `desktop-buffer-handlers' functions.")
+
+(defcustom desktop-buffer-handlers
   '(desktop-buffer-dired
     desktop-buffer-rmail
+    desktop-buffer-mh
     desktop-buffer-info
     desktop-buffer-file)
-  "*List of functions to call in order to create a buffer.  The functions are
-called without explicit parameters but may access the the major mode as `mam',
-the file name as `fn', the buffer name as `bn', the default directory as
-`dd'.  If some function returns non-nil no further functions are called.
-If the function returns t then the buffer is considered created.")
+  "*List of functions to call in order to create a buffer.
+The functions are called without explicit parameters but can use the
+variables `desktop-buffer-major-mode', `desktop-buffer-file-name',
+`desktop-buffer-name'.
+If one function returns non-nil, no further functions are called.
+If the function returns t then the buffer is considered created."
+  :type '(repeat function)
+  :group 'desktop)
+
+(defvar desktop-create-buffer-form "(desktop-create-buffer 205"
+  "Opening of form for creation of new buffers.")
+
+(defcustom desktop-save-hook nil
+  "Hook run before desktop saves the state of Emacs.
+This is useful for truncating history lists, for example."
+  :type 'hook
+  :group 'desktop)
+
 ;; ----------------------------------------------------------------------------
 (defvar desktop-dirname nil
   "The directory in which the current desktop file resides.")
@@ -116,59 +227,200 @@ If the function returns t then the buffer is considered created.")
 ;; Desktop File for Emacs
 ;; --------------------------------------------------------------------------
 " "*Header to place in Desktop file.")
+
+(defvar desktop-delay-hook nil
+  "Hooks run after all buffers are loaded; intended for internal use.")
+
+;; ----------------------------------------------------------------------------
+(defun desktop-truncate (l n)
+  "Truncate LIST to at most N elements destructively."
+  (let ((here (nthcdr (1- n) l)))
+    (if (consp here)
+	(setcdr here nil))))
 ;; ----------------------------------------------------------------------------
-(defconst postv18
-  (string-lessp "19" emacs-version)
-  "t if Emacs version 19 or later.")
+(defcustom desktop-clear-preserve-buffers
+  '("*scratch*" "*Messages*")
+  "*Buffer names that `desktop-clear' should not delete."
+  :type '(repeat string)
+  :group 'desktop)
 
-(defun desktop-clear () "Empty the Desktop."
+(defun desktop-clear ()
+  "Empty the Desktop.
+This kills all buffers except for internal ones
+and those listed in `desktop-clear-preserve-buffers'."
   (interactive)
-  (setq kill-ring nil)
-  (setq kill-ring-yank-pointer nil)
-  (mapcar (function kill-buffer) (buffer-list)))
-;; ----------------------------------------------------------------------------
-;; This is a bit dirty for version 18 because that version of Emacs was not
-;; toilet-trained considering hooks.
-(if (not (boundp 'desktop-kill))
-    (if postv18
-	(add-hook 'kill-emacs-hook 'desktop-kill)
-      (setq old-kill-emacs kill-emacs-hook)
-      (setq kill-emacs-hook
-	    (function (lambda ()
-			(progn (desktop-kill)
-			       (if (or (null old-kill-emacs)
-				       (symbolp old-kill-emacs))
-				   (run-hooks old-kill-emacs)
-				 (funcall old-kill-emacs))))))))
+  (setq kill-ring nil
+	kill-ring-yank-pointer nil
+	search-ring nil
+	search-ring-yank-pointer nil
+	regexp-search-ring nil
+	regexp-search-ring-yank-pointer nil)
+  (let ((buffers (buffer-list)))
+    (while buffers
+      (or (member (buffer-name (car buffers)) desktop-clear-preserve-buffers)
+	  (null (buffer-name (car buffers)))
+	  ;; Don't kill buffers made for internal purposes.
+	  (and (not (equal (buffer-name (car buffers)) ""))
+	       (eq (aref (buffer-name (car buffers)) 0) ?\ ))
+	  (kill-buffer (car buffers)))
+      (setq buffers (cdr buffers))))
+  (delete-other-windows))
 ;; ----------------------------------------------------------------------------
+(add-hook 'kill-emacs-hook 'desktop-kill)
+
 (defun desktop-kill ()
   (if desktop-dirname
-      (progn
-	(desktop-save desktop-dirname))))
+      (condition-case err
+	  (desktop-save desktop-dirname)
+	(file-error
+	 (if (yes-or-no-p "Error while saving the desktop.  Quit anyway? ")
+	     nil
+	   (signal (car err) (cdr err)))))))
 ;; ----------------------------------------------------------------------------
-(defun desktop-outvar (VAR)
-  "Output a setq statement for VAR to the desktop file."
-  (if (boundp VAR)
-      (progn
-	(insert "(setq ")
-	(prin1 VAR (current-buffer))
-	(insert " '")
-	(prin1 (symbol-value VAR) (current-buffer))
-	(insert ")\n"))))
+(defun desktop-list* (&rest args)
+  (if (null (cdr args))
+      (car args)
+    (setq args (nreverse args))
+    (let ((value (cons (nth 1 args) (car args))))
+      (setq args (cdr (cdr args)))
+      (while args
+	(setq value (cons (car args) value))
+	(setq args (cdr args)))
+      value)))
+
+(defun desktop-internal-v2s (val)
+  "Convert VALUE to a pair (QUOTE . TXT); (eval (read TXT)) gives VALUE.
+TXT is a string that when read and evaluated yields value.
+QUOTE may be `may' (value may be quoted),
+`must' (values must be quoted), or nil (value may not be quoted)."
+  (cond
+   ((or (numberp val) (null val) (eq t val))
+    (cons 'may (prin1-to-string val)))
+   ((stringp val)
+    (let ((copy (copy-sequence val)))
+      (set-text-properties 0 (length copy) nil copy)
+      ;; Get rid of text properties because we cannot read them
+      (cons 'may (prin1-to-string copy))))
+   ((symbolp val)
+    (cons 'must (prin1-to-string val)))
+   ((vectorp val)
+    (let* ((special nil)
+	   (pass1 (mapcar
+		   (lambda (el)
+		     (let ((res (desktop-internal-v2s el)))
+		       (if (null (car res))
+			   (setq special t))
+		       res))
+		   val)))
+      (if special
+	  (cons nil (concat "(vector "
+			    (mapconcat (lambda (el)
+					 (if (eq (car el) 'must)
+					     (concat "'" (cdr el))
+					   (cdr el)))
+				       pass1
+				       " ")
+			    ")"))
+	(cons 'may (concat "[" (mapconcat 'cdr pass1 " ") "]")))))
+   ((consp val)
+    (let ((p val)
+	  newlist
+	  use-list*
+	  anynil)
+      (while (consp p)
+	(let ((q.txt (desktop-internal-v2s (car p))))
+	  (or anynil (setq anynil (null (car q.txt))))
+	  (setq newlist (cons q.txt newlist)))
+	(setq p (cdr p)))
+      (if p
+	  (let ((last (desktop-internal-v2s p))
+		(el (car newlist)))
+	    (or anynil (setq anynil (null (car last))))
+	    (or anynil
+		(setq newlist (cons '(must . ".") newlist)))
+	    (setq use-list* t)
+	    (setq newlist (cons last newlist))))
+      (setq newlist (nreverse newlist))
+      (if anynil
+	  (cons nil
+		(concat (if use-list* "(desktop-list* "  "(list ")
+			(mapconcat (lambda (el)
+				     (if (eq (car el) 'must)
+					 (concat "'" (cdr el))
+				       (cdr el)))
+				   newlist
+				   " ")
+			")"))
+	(cons 'must
+	      (concat "(" (mapconcat 'cdr newlist " ") ")")))))
+   ((subrp val)
+    (cons nil (concat "(symbol-function '"
+		      (substring (prin1-to-string val) 7 -1)
+		      ")")))
+   ((markerp val)
+    (let ((pos (prin1-to-string (marker-position val)))
+	  (buf (prin1-to-string (buffer-name (marker-buffer val)))))
+      (cons nil (concat "(let ((mk (make-marker)))"
+			" (add-hook 'desktop-delay-hook"
+			" (list 'lambda '() (list 'set-marker mk "
+			pos " (get-buffer " buf ")))) mk)"))))
+   (t					; save as text
+    (cons 'may "\"Unprintable entity\""))))
+
+(defun desktop-value-to-string (val)
+  "Convert VALUE to a string that when read evaluates to the same value.
+Not all types of values are supported."
+  (let* ((print-escape-newlines t)
+	 (float-output-format nil)
+	 (quote.txt (desktop-internal-v2s val))
+	 (quote (car quote.txt))
+	 (txt (cdr quote.txt)))
+    (if (eq quote 'must)
+	(concat "'" txt)
+      txt)))
+;; ----------------------------------------------------------------------------
+(defun desktop-outvar (varspec)
+  "Output a setq statement for variable VAR to the desktop file.
+The argument VARSPEC may be the variable name VAR (a symbol),
+or a cons cell of the form  (VAR . MAX-SIZE),
+which means to truncate VAR's value to at most MAX-SIZE elements
+\(if the value is a list) before saving the value."
+  (let (var size)
+    (if (consp varspec)
+	(setq var (car varspec) size (cdr varspec))
+      (setq var varspec))
+    (if (boundp var)
+	(progn
+	  (if (and (integerp size)
+		   (> size 0)
+		   (listp (eval var)))
+	      (desktop-truncate (eval var) size)) 
+	  (insert "(setq "
+		  (symbol-name var)
+		  " "
+		  (desktop-value-to-string (symbol-value var))
+		  ")\n")))))
 ;; ----------------------------------------------------------------------------
-(defun desktop-save-buffer-p (filename bufname mode)
-  "Return t if should record a particular buffer for next startup.
+(defun desktop-save-buffer-p (filename bufname mode &rest dummy)
+  "Return t if the desktop should record a particular buffer for next startup.
 FILENAME is the visited file name, BUFNAME is the buffer name, and
 MODE is the major mode."
-
-  (or (and filename
-	   (not (string-match desktop-buffers-not-to-save bufname)))
-      (and (null filename)
-	   (memq mode '(Info-mode dired-mode rmail-mode)))))
+  (let ((case-fold-search nil))
+    (or (and filename
+	     (not (string-match desktop-buffers-not-to-save bufname))
+	     (not (string-match desktop-files-not-to-save filename)))
+	(and (eq mode 'dired-mode)
+	     (save-excursion
+	       (set-buffer (get-buffer bufname))
+	       (not (string-match desktop-files-not-to-save
+				  default-directory))))
+	(and (null filename)
+	     (memq mode '(Info-mode rmail-mode))))))
 ;; ----------------------------------------------------------------------------
 (defun desktop-save (dirname)
   "Save the Desktop file.  Parameter DIRNAME specifies where to save desktop."
   (interactive "DDirectory to save desktop file in: ")
+  (run-hooks 'desktop-save-hook)
   (save-excursion
     (let ((filename (expand-file-name
 		     (concat dirname desktop-basefilename)))
@@ -179,35 +431,34 @@ MODE is the major mode."
 			      (list
 			       (buffer-file-name)
 			       (buffer-name)
-			       (list 'quote major-mode)
-			       (list 'quote
-				     (list overwrite-mode
-					   (not (null
-						 (if postv18
-						     auto-fill-function
-						   auto-fill-hook)))))
+			       major-mode
+			       (list	; list explaining minor modes
+				(not (null auto-fill-function)))
 			       (point)
-			       (if postv18
-				   (list 'quote (mark t) mark-active)
-				 (mark))
+			       (list (mark t) mark-active)
 			       buffer-read-only
-			       truncate-lines
-			       fill-column
-			       case-fold-search
-			       case-replace
-			       (list
-				'quote
-				(cond ((equal major-mode 'Info-mode)
-				       (list Info-current-file
-					     Info-current-node))
-				      ((equal major-mode 'dired-mode)
-				       (if postv18
-					   (nreverse
-					    (mapcar
-					     (function car)
-					     dired-subdir-alist))
-					 (list default-directory)))
-				      ))
+			       (cond ((eq major-mode 'Info-mode)
+				      (list Info-current-file
+					    Info-current-node))
+				     ((eq major-mode 'dired-mode)
+				      (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))
+				 (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*")))
@@ -228,16 +479,13 @@ MODE is the major mode."
       (insert "\n;; Buffer section:\n")
       (mapcar
        (function (lambda (l)
-		   (if (desktop-save-buffer-p
-			(car l)
-			(nth 1 l)
-			(nth 1 (nth 2 l)))
+		   (if (apply 'desktop-save-buffer-p l)
 		       (progn
-			 (insert "(desktop-buffer")
+			 (insert desktop-create-buffer-form)
 			 (mapcar
 			  (function (lambda (e)
-				      (insert "\n  ")
-				      (prin1 e (current-buffer))))
+				      (insert "\n  "
+					      (desktop-value-to-string e))))
 			  l)
 			 (insert ")\n\n")))))
        info)
@@ -251,67 +499,97 @@ MODE is the major mode."
   (interactive)
   (if desktop-dirname
       (let ((filename (concat desktop-dirname desktop-basefilename)))
-	(if (file-exists-p filename) (delete-file filename))
-	(setq desktop-dirname nil))))
+	(setq desktop-dirname nil)
+	(if (file-exists-p filename)
+	    (delete-file filename)))))
 ;; ----------------------------------------------------------------------------
+;;;###autoload
 (defun desktop-read ()
-  "Read the Desktop file and the files it specifies."
+  "Read the Desktop file and the files it specifies.
+This is a no-op when Emacs is running in batch mode."
   (interactive)
-  (let ((filename))
-    (if (file-exists-p (concat "./" desktop-basefilename))
-	(setq desktop-dirname (expand-file-name "./"))
-      (if (file-exists-p (concat "~/" desktop-basefilename))
-	  (setq desktop-dirname (expand-file-name "~/"))
-	(setq desktop-dirname nil)))
-    (if desktop-dirname
-	(progn
-	  (load (concat desktop-dirname desktop-basefilename) t t t)
-	  (message "Desktop loaded."))
-      (desktop-clear))))
+  (if noninteractive
+      nil
+    (let ((dirs '("./" "~/")))
+      (while (and dirs
+		  (not (file-exists-p (expand-file-name
+				       desktop-basefilename
+				       (car dirs)))))
+	(setq dirs (cdr dirs)))
+      (setq desktop-dirname (and dirs (expand-file-name (car dirs))))
+      (if desktop-dirname
+	  (progn
+	    (load (expand-file-name desktop-basefilename desktop-dirname)
+		  t t t)
+	    (run-hooks 'desktop-delay-hook)
+	    (setq desktop-delay-hook nil)
+	    (message "Desktop loaded."))
+	(desktop-clear)))))
 ;; ----------------------------------------------------------------------------
+;;;###autoload
 (defun desktop-load-default ()
-  "Load the `default' start-up library manually.  Also inhibit further loading
-of it.  Call this from your `.emacs' file to provide correct modes for 
-autoloaded files."
+  "Load the `default' start-up library manually.
+Also inhibit further loading of it.  Call this from your `.emacs' file
+to provide correct modes for autoloaded files."
   (if (not inhibit-default-init)	; safety check
       (progn
 	(load "default" t t)
 	(setq inhibit-default-init t))))
 ;; ----------------------------------------------------------------------------
 ;; Note: the following functions use the dynamic variable binding in Lisp.
-;;       The byte compiler may therefore complain of undeclared variables.
 ;;
 (defun desktop-buffer-info () "Load an info file."
-  (if (equal 'Info-mode mam)
+  (if (eq 'Info-mode desktop-buffer-major-mode)
       (progn
 	(require 'info)
-	(Info-find-node (nth 0 misc) (nth 1 misc))
-	t)))
+	(Info-find-node (nth 0 desktop-buffer-misc) (nth 1 desktop-buffer-misc))
+	(current-buffer))))
 ;; ----------------------------------------------------------------------------
-(defun desktop-buffer-rmail () "Load a RMAIL file."
-  (if (equal 'rmail-mode mam)
-      (progn (rmail-input fn) t)))
+(defun desktop-buffer-rmail () "Load an RMAIL file."
+  (if (eq 'rmail-mode desktop-buffer-major-mode)
+      (condition-case error
+	  (progn (rmail-input desktop-buffer-file-name)
+                         (if (eq major-mode 'rmail-mode)
+                             (current-buffer)
+                           rmail-buffer))
+	(file-locked
+	 (kill-buffer (current-buffer))
+	 'ignored))))
 ;; ----------------------------------------------------------------------------
-(defun desktop-buffer-dired () "Load a directory using dired."
-  (if (equal 'dired-mode mam)
+(defun desktop-buffer-mh () "Load a folder in the mh system."
+  (if (eq 'mh-folder-mode desktop-buffer-major-mode)
       (progn
-	(dired (car misc))
-	(mapcar (function dired-maybe-insert-subdir) (cdr misc))
-	t)))
+	(require 'mh-e)
+	(mh-find-path)
+        (mh-visit-folder desktop-buffer-name)
+	(current-buffer))))
+;; ----------------------------------------------------------------------------
+(defun desktop-buffer-dired () "Load a directory using dired."
+  (if (eq 'dired-mode desktop-buffer-major-mode)
+      (if (file-directory-p (file-name-directory (car desktop-buffer-misc)))
+	  (progn
+            (dired (car desktop-buffer-misc))
+	    (mapcar 'dired-insert-subdir (cdr desktop-buffer-misc))
+	    (current-buffer))
+	(message "Directory %s no longer exists." (car desktop-buffer-misc))
+	(sit-for 1)
+	'ignored)))
 ;; ----------------------------------------------------------------------------
 (defun desktop-buffer-file () "Load a file."
-  (if fn
-      (if (or (file-exists-p fn)
+  (if desktop-buffer-file-name
+      (if (or (file-exists-p desktop-buffer-file-name)
 	      (and desktop-missing-file-warning
 		   (y-or-n-p (format
 			      "File \"%s\" no longer exists. Re-create? "
-			      fn))))
-	  (progn (find-file fn) t)
+			      desktop-buffer-file-name))))
+	  (progn (find-file desktop-buffer-file-name) (current-buffer))
 	'ignored)))
 ;; ----------------------------------------------------------------------------
 ;; Create a buffer, load its file, set is mode, ...;  called from Desktop file
 ;; only.
-(defun desktop-buffer (fn bn mam mim pt mk ro tl fc cfs cr misc)
+(defun desktop-create-buffer (ver desktop-buffer-file-name desktop-buffer-name
+				  desktop-buffer-major-mode
+				  mim pt mk ro desktop-buffer-misc &optional locals)
   (let ((hlist desktop-buffer-handlers)
 	(result)
 	(handler))
@@ -319,31 +597,54 @@ autoloaded files."
       (setq handler (car hlist))
       (setq result (funcall handler))
       (setq hlist (cdr hlist)))
-    (if (equal result t)
-	(progn
-	  (if (not (equal (buffer-name) bn))
-	      (rename-buffer bn))
-	  (if (nth 0 mim)
-	      (overwrite-mode 1)
-	    (overwrite-mode 0))
-	  (if (nth 1 mim)
-	      (auto-fill-mode 1)
-	    (overwrite-mode 0))
-	  (goto-char pt)
-	  (if (consp mk)
+    (when (bufferp result)
+      (set-buffer result)
+      (if (not (equal (buffer-name) desktop-buffer-name))
+	  (rename-buffer desktop-buffer-name))
+      (auto-fill-mode (if (nth 0 mim) 1 0))
+      (goto-char pt)
+      (if (consp mk)
+	  (progn
+	    (set-mark (car mk))
+	    (setq mark-active (car (cdr mk))))
+	(set-mark mk))
+      ;; Never override file system if the file really is read-only marked.
+      (if ro (setq buffer-read-only ro))
+      (while locals
+	(let ((this (car locals)))
+	  (if (consp this)
+	      ;; an entry of this form `(symbol . value)'
 	      (progn
-		(set-mark (car mk))
-		(setq mark-active (car (cdr mk))))
-	    (set-mark mk))
-	  ;; Never override file system if the file really is read-only marked.
-	  (if ro (setq buffer-read-only ro))
-	  (setq truncate-lines tl)
-	  (setq fill-column fc)
-	  (setq case-fold-search cfs)
-	  (setq case-replace cr)
-	  ))))
+		(make-local-variable (car this))
+		(set (car this) (cdr this)))
+	    ;; an entry of the form `symbol'
+	    (make-local-variable this)
+	    (makunbound this)))
+	(setq locals (cdr locals))))))
+
+;; Backward compatibility -- update parameters to 205 standards.
+(defun desktop-buffer (desktop-buffer-file-name desktop-buffer-name
+		       desktop-buffer-major-mode
+		       mim pt mk ro tl fc cfs cr desktop-buffer-misc)
+  (desktop-create-buffer 205 desktop-buffer-file-name desktop-buffer-name
+			 desktop-buffer-major-mode (cdr mim) pt mk ro
+			 desktop-buffer-misc
+			 (list (cons 'truncate-lines tl)
+			       (cons 'fill-column fc)
+			       (cons 'case-fold-search cfs)
+			       (cons 'case-replace cr)
+			       (cons 'overwrite-mode (car mim)))))
 ;; ----------------------------------------------------------------------------
+
+;; If the user set desktop-enable to t with Custom,
+;; do the rest of what it takes to use desktop,
+;; but do it after finishing loading the init file.
+(add-hook 'after-init-hook
+	  '(lambda ()
+	     (when desktop-enable
+	       (desktop-load-default)
+	       (desktop-read))))
+
 (provide 'desktop)
 
 ;; desktop.el ends here.
-