[bpt/emacs.git] / lisp / desktop.el

;;; desktop.el --- save partial status of Emacs when killed

;; Copyright (C) 1993 Free Software Foundation, Inc.

;; Author: Morten Welinder <terra@diku.dk>
;; Version: 2.02

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; 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.

;;; Commentary:

;; Save the Desktop, i.e.,
;;	- some global variables
;; 	- the list of buffers with associated files.  For each buffer also
;;		- the major mode
;;		- the default directory
;;		- the point
;;		- the mark & mark-active
;;		- buffer-read-only
;;		- truncate-lines
;;		- case-fold-search
;;		- case-replace
;;		- fill-column

;; To use this, first put these three lines in the bottom of your .emacs
;; file (the later the better):
;;
;;	(load "desktop")
;;	(desktop-load-default)
;;	(desktop-read)
;;

;; 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.
;;
;; 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.
;; ---------------------------------------------------------------------------
;; TODO:
;;
;; Save window configuration.
;; Recognize more minor modes.
;; Save mark rings.
;; Start-up with buffer-menu???

;;; Code:

;; 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.")

(defvar desktop-globals-to-save
  (list 'desktop-missing-file-warning
	;; Feature: saving kill-ring implies saving kill-ring-yank-pointer
	;; 'kill-ring			
	'tags-file-name
	'tags-table-list
	;; 'desktop-globals-to-save	; Itself!
	) 
  "List of global variables to save when killing Emacs.")

;; We skip .log files because they are normally temporary.
;;         (ftp) files because they require passwords and whatsnot.
;;         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.")

(defvar desktop-buffer-handlers
  '(desktop-buffer-dired
    desktop-buffer-rmail
    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.")
;; ----------------------------------------------------------------------------
(defvar desktop-dirname nil
  "The directory in which the current desktop file resides.")

(defconst desktop-header
";; --------------------------------------------------------------------------
;; Desktop File for Emacs
;; --------------------------------------------------------------------------
" "*Header to place in Desktop file.")
;; ----------------------------------------------------------------------------
(defconst postv18
  (string-lessp "19" emacs-version)
  "t if Emacs version 19 or later.")

(defun desktop-clear () "Empty the Desktop."
  (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))))))))
;; ----------------------------------------------------------------------------
(defun desktop-kill ()
  (if desktop-dirname
      (progn
	(desktop-save desktop-dirname))))
;; ----------------------------------------------------------------------------
(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-save-buffer-p (filename bufname mode)
  "Return t if 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)))))
;; ----------------------------------------------------------------------------
(defun desktop-save (dirname)
  "Save the Desktop file.  Parameter DIRNAME specifies where to save desktop."
  (interactive "DDirectory to save desktop file in: ")
  (save-excursion
    (let ((filename (expand-file-name
		     (concat dirname desktop-basefilename)))
	  (info (nreverse
		 (mapcar
		  (function (lambda (b)
			      (set-buffer b)
			      (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)))))
			       (point)
			       (if postv18
				   (list 'quote (mark t) mark-active)
				 (mark))
			       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)))
				      ))
			       )))
		  (buffer-list))))
	  (buf (get-buffer-create "*desktop*")))
      (set-buffer buf)
      (erase-buffer)

      (insert desktop-header
	      ";; Created " (current-time-string) "\n"
	      ";; Emacs version " emacs-version "\n\n"
	      ";; Global section:\n")
      (mapcar (function desktop-outvar) desktop-globals-to-save)
      (if (memq 'kill-ring desktop-globals-to-save)
	  (insert "(setq kill-ring-yank-pointer (nthcdr "
		  (int-to-string
		   (- (length kill-ring) (length kill-ring-yank-pointer)))
		  " kill-ring))\n"))

      (insert "\n;; Buffer section:\n")
      (mapcar
       (function (lambda (l)
		   (if (desktop-save-buffer-p
			(car l)
			(nth 1 l)
			(nth 1 (nth 2 l)))
		       (progn
			 (insert "(desktop-buffer")
			 (mapcar
			  (function (lambda (e)
				      (insert "\n  ")
				      (prin1 e (current-buffer))))
			  l)
			 (insert ")\n\n")))))
       info)
      (setq default-directory dirname)
      (if (file-exists-p filename) (delete-file filename))
      (write-region (point-min) (point-max) filename nil 'nomessage)))
  (setq desktop-dirname dirname))
;; ----------------------------------------------------------------------------
(defun desktop-remove ()
  "Delete the Desktop file and inactivate the desktop system."
  (interactive)
  (if desktop-dirname
      (let ((filename (concat desktop-dirname desktop-basefilename)))
	(if (file-exists-p filename) (delete-file filename))
	(setq desktop-dirname nil))))
;; ----------------------------------------------------------------------------
(defun desktop-read ()
  "Read the Desktop file and the files it specifies."
  (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))))
;; ----------------------------------------------------------------------------
(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."
  (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)
      (progn
	(require 'info)
	(Info-find-node (nth 0 misc) (nth 1 misc))
	t)))
;; ----------------------------------------------------------------------------
(defun desktop-buffer-rmail () "Load a RMAIL file."
  (if (equal 'rmail-mode mam)
      (progn (rmail-input fn) t)))
;; ----------------------------------------------------------------------------
(defun desktop-buffer-dired () "Load a directory using dired."
  (if (equal 'dired-mode mam)
      (progn
	(dired (car misc))
	(mapcar (function dired-maybe-insert-subdir) (cdr misc))
	t)))
;; ----------------------------------------------------------------------------
(defun desktop-buffer-file () "Load a file."
  (if fn
      (if (or (file-exists-p fn)
	      (and desktop-missing-file-warning
		   (y-or-n-p (format
			      "File \"%s\" no longer exists. Re-create? "
			      fn))))
	  (progn (find-file fn) t)
	'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)
  (let ((hlist desktop-buffer-handlers)
	(result)
	(handler))
    (while (and (not result) hlist)
      (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)
	      (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)
	  ))))
;; ----------------------------------------------------------------------------
(provide 'desktop)

;; desktop.el ends here.
Commit	Line	Data
6343ed61 RS	1	;;; desktop.el --- save partial status of Emacs when killed
	2
	3	;; Copyright (C) 1993 Free Software Foundation, Inc.
	4
	5	;; Author: Morten Welinder <terra@diku.dk>
0b9bd504	6	;; Version: 2.02
6343ed61 RS	7
	8	;; This file is part of GNU Emacs.
	9
	10	;; GNU Emacs is free software; you can redistribute it and/or modify
	11	;; it under the terms of the GNU General Public License as published by
	12	;; the Free Software Foundation; either version 2, or (at your option)
	13	;; any later version.
	14
	15	;; GNU Emacs is distributed in the hope that it will be useful,
	16	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;; GNU General Public License for more details.
	19
	20	;; You should have received a copy of the GNU General Public License
	21	;; along with GNU Emacs; see the file COPYING. If not, write to
	22	;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
	23
	24	;;; Commentary:
	25
0b9bd504 RS	26	;; Save the Desktop, i.e.,
	27	;; - some global variables
	28	;; - the list of buffers with associated files. For each buffer also
	29	;; - the major mode
	30	;; - the default directory
	31	;; - the point
	32	;; - the mark & mark-active
	33	;; - buffer-read-only
	34	;; - truncate-lines
	35	;; - case-fold-search
	36	;; - case-replace
	37	;; - fill-column
6343ed61	38
0b9bd504 RS	39	;; To use this, first put these three lines in the bottom of your .emacs
	40	;; file (the later the better):
	41	;;
	42	;; (load "desktop")
	43	;; (desktop-load-default)
	44	;; (desktop-read)
	45	;;
6343ed61	46
0b9bd504 RS	47	;; Start Emacs in the root directory of your "project". The desktop saver
	48	;; is inactive by default. You activate it by M-x desktop-save RET. When
	49	;; you exit the next time the above data will be saved. This ensures that
	50	;; all the files you were editing will be reloaded the next time you start
	51	;; Emacs from the same directory and that points will be set where you
	52	;; left them.
	53	;;
	54	;; PLEASE NOTE: The kill ring can be saved as specified by the variable
	55	;; `desktop-globals-to-save' (by default it isn't). This may result in saving
	56	;; things you did not mean to keep. Use M-x desktop-clear RET.
	57	;;
	58	;; Thanks to hetrick@phys.uva.nl (Jim Hetrick) for useful ideas.
	59	;; avk@rtsg.mot.com (Andrew V. Klein) for a dired tip.
	60	;; chris@tecc.co.uk (Chris Boucher) for a mark tip.
	61	;; ---------------------------------------------------------------------------
	62	;; TODO:
	63	;;
	64	;; Save window configuration.
	65	;; Recognize more minor modes.
	66	;; Save mark rings.
	67	;; Start-up with buffer-menu???
6343ed61 RS	68
	69	;;; Code:
	70
0b9bd504 RS	71	;; USER OPTIONS -- settings you might want to play with.
	72	;; ----------------------------------------------------------------------------
	73	(defconst desktop-basefilename
6343ed61 RS	74	(if (equal system-type 'ms-dos)
	75	"emacs.dsk" ; Ms-Dos does not support multiple dots in file name
	76	".emacs.desktop")
	77	"File for Emacs desktop. A directory name will be prepended to this name.")
	78
0b9bd504	79	(defvar desktop-missing-file-warning t
6343ed61 RS	80	"*If non-nil then issue warning if a file no longer exists.
	81	Otherwise simply ignore the file.")
	82
0b9bd504	83	(defvar desktop-globals-to-save
6343ed61	84	(list 'desktop-missing-file-warning
0b9bd504 RS	85	;; Feature: saving kill-ring implies saving kill-ring-yank-pointer
	86	;; 'kill-ring
	87	'tags-file-name
	88	'tags-table-list
	89	;; 'desktop-globals-to-save ; Itself!
	90	)
6343ed61 RS	91	"List of global variables to save when killing Emacs.")
6343ed61 RS	92
0b9bd504 RS	93	;; We skip .log files because they are normally temporary.
	94	;; (ftp) files because they require passwords and whatsnot.
	95	;; TAGS files to save time (tags-file-name is saved instead).
6343ed61	96	(defvar desktop-buffers-not-to-save
0b9bd504	97	"\\(\\.log\\\|(ftp)\\\|^tags\\\|^TAGS\\)$"
6343ed61 RS	98	"Regexp identifying buffers that are to be excluded from saving.")
	99
	100	(defvar desktop-buffer-handlers
0b9bd504	101	'(desktop-buffer-dired
6343ed61 RS	102	desktop-buffer-rmail
	103	desktop-buffer-info
	104	desktop-buffer-file)
0b9bd504 RS	105	"*List of functions to call in order to create a buffer. The functions are
	106	called without explicit parameters but may access the the major mode as `mam',
	107	the file name as `fn', the buffer name as `bn', the default directory as
	108	`dd'. If some function returns non-nil no further functions are called.
6343ed61	109	If the function returns t then the buffer is considered created.")
0b9bd504 RS	110	;; ----------------------------------------------------------------------------
0b9bd504 RS	111	(defvar desktop-dirname nil
6343ed61 RS	112	"The directory in which the current desktop file resides.")
	113
	114	(defconst desktop-header
0b9bd504 RS	115	";; --------------------------------------------------------------------------
	116	;; Desktop File for Emacs
	117	;; --------------------------------------------------------------------------
6343ed61	118	" "*Header to place in Desktop file.")
0b9bd504 RS	119	;; ----------------------------------------------------------------------------
0b9bd504 RS	120	(defconst postv18
6343ed61	121	(string-lessp "19" emacs-version)
0b9bd504	122	"t if Emacs version 19 or later.")
6343ed61 RS	123
	124	(defun desktop-clear () "Empty the Desktop."
	125	(interactive)
	126	(setq kill-ring nil)
	127	(setq kill-ring-yank-pointer nil)
	128	(mapcar (function kill-buffer) (buffer-list)))
0b9bd504 RS	129	;; ----------------------------------------------------------------------------
	130	;; This is a bit dirty for version 18 because that version of Emacs was not
	131	;; toilet-trained considering hooks.
6343ed61 RS	132	(if (not (boundp 'desktop-kill))
	133	(if postv18
	134	(add-hook 'kill-emacs-hook 'desktop-kill)
	135	(setq old-kill-emacs kill-emacs-hook)
0b9bd504 RS	136	(setq kill-emacs-hook
	137	(function (lambda ()
	138	(progn (desktop-kill)
	139	(if (or (null old-kill-emacs)
	140	(symbolp old-kill-emacs))
	141	(run-hooks old-kill-emacs)
	142	(funcall old-kill-emacs))))))))
	143	;; ----------------------------------------------------------------------------
6343ed61	144	(defun desktop-kill ()
0b9bd504	145	(if desktop-dirname
6343ed61 RS	146	(progn
6343ed61 RS	147	(desktop-save desktop-dirname))))
0b9bd504	148	;; ----------------------------------------------------------------------------
6343ed61 RS	149	(defun desktop-outvar (VAR)
	150	"Output a setq statement for VAR to the desktop file."
	151	(if (boundp VAR)
	152	(progn
	153	(insert "(setq ")
	154	(prin1 VAR (current-buffer))
	155	(insert " '")
	156	(prin1 (symbol-value VAR) (current-buffer))
	157	(insert ")\n"))))
0b9bd504	158	;; ----------------------------------------------------------------------------
6343ed61 RS	159	(defun desktop-save-buffer-p (filename bufname mode)
6343ed61 RS	160	"Return t if should record a particular buffer for next startup.
0b9bd504	161	FILENAME is the visited file name, BUFNAME is the buffer name, and
6343ed61	162	MODE is the major mode."
0b9bd504	163
6343ed61 RS	164	(or (and filename
	165	(not (string-match desktop-buffers-not-to-save bufname)))
	166	(and (null filename)
	167	(memq mode '(Info-mode dired-mode rmail-mode)))))
0b9bd504	168	;; ----------------------------------------------------------------------------
6343ed61 RS	169	(defun desktop-save (dirname)
	170	"Save the Desktop file. Parameter DIRNAME specifies where to save desktop."
	171	(interactive "DDirectory to save desktop file in: ")
	172	(save-excursion
0b9bd504	173	(let ((filename (expand-file-name
6343ed61	174	(concat dirname desktop-basefilename)))
0b9bd504 RS	175	(info (nreverse
0b9bd504 RS	176	(mapcar
6343ed61 RS	177	(function (lambda (b)
6343ed61 RS	178	(set-buffer b)
0b9bd504	179	(list
6343ed61 RS	180	(buffer-file-name)
	181	(buffer-name)
	182	(list 'quote major-mode)
	183	(list 'quote
0b9bd504 RS	184	(list overwrite-mode
0b9bd504 RS	185	(not (null
6343ed61 RS	186	(if postv18
	187	auto-fill-function
	188	auto-fill-hook)))))
	189	(point)
	190	(if postv18
0b9bd504	191	(list 'quote (mark t) mark-active)
6343ed61 RS	192	(mark))
	193	buffer-read-only
	194	truncate-lines
	195	fill-column
	196	case-fold-search
	197	case-replace
0b9bd504	198	(list
6343ed61 RS	199	'quote
	200	(cond ((equal major-mode 'Info-mode)
	201	(list Info-current-file
	202	Info-current-node))
	203	((equal major-mode 'dired-mode)
0b9bd504 RS	204	(if postv18
	205	(nreverse
	206	(mapcar
	207	(function car)
	208	dired-subdir-alist))
	209	(list default-directory)))
6343ed61 RS	210	))
	211	)))
	212	(buffer-list))))
	213	(buf (get-buffer-create "desktop")))
	214	(set-buffer buf)
	215	(erase-buffer)
	216
0b9bd504 RS	217	(insert desktop-header
	218	";; Created " (current-time-string) "\n"
	219	";; Emacs version " emacs-version "\n\n"
	220	";; Global section:\n")
6343ed61 RS	221	(mapcar (function desktop-outvar) desktop-globals-to-save)
6343ed61 RS	222	(if (memq 'kill-ring desktop-globals-to-save)
0b9bd504 RS	223	(insert "(setq kill-ring-yank-pointer (nthcdr "
0b9bd504 RS	224	(int-to-string
6343ed61 RS	225	(- (length kill-ring) (length kill-ring-yank-pointer)))
	226	" kill-ring))\n"))
	227
0b9bd504 RS	228	(insert "\n;; Buffer section:\n")
0b9bd504 RS	229	(mapcar
6343ed61	230	(function (lambda (l)
0b9bd504 RS	231	(if (desktop-save-buffer-p
0b9bd504 RS	232	(car l)
6343ed61 RS	233	(nth 1 l)
	234	(nth 1 (nth 2 l)))
	235	(progn
	236	(insert "(desktop-buffer")
0b9bd504	237	(mapcar
6343ed61 RS	238	(function (lambda (e)
	239	(insert "\n ")
	240	(prin1 e (current-buffer))))
	241	l)
	242	(insert ")\n\n")))))
	243	info)
	244	(setq default-directory dirname)
	245	(if (file-exists-p filename) (delete-file filename))
	246	(write-region (point-min) (point-max) filename nil 'nomessage)))
	247	(setq desktop-dirname dirname))
0b9bd504	248	;; ----------------------------------------------------------------------------
6343ed61 RS	249	(defun desktop-remove ()
	250	"Delete the Desktop file and inactivate the desktop system."
	251	(interactive)
	252	(if desktop-dirname
	253	(let ((filename (concat desktop-dirname desktop-basefilename)))
	254	(if (file-exists-p filename) (delete-file filename))
	255	(setq desktop-dirname nil))))
0b9bd504	256	;; ----------------------------------------------------------------------------
6343ed61 RS	257	(defun desktop-read ()
	258	"Read the Desktop file and the files it specifies."
	259	(interactive)
	260	(let ((filename))
	261	(if (file-exists-p (concat "./" desktop-basefilename))
	262	(setq desktop-dirname (expand-file-name "./"))
	263	(if (file-exists-p (concat "~/" desktop-basefilename))
	264	(setq desktop-dirname (expand-file-name "~/"))
	265	(setq desktop-dirname nil)))
	266	(if desktop-dirname
	267	(progn
	268	(load (concat desktop-dirname desktop-basefilename) t t t)
	269	(message "Desktop loaded."))
	270	(desktop-clear))))
0b9bd504	271	;; ----------------------------------------------------------------------------
6343ed61	272	(defun desktop-load-default ()
0b9bd504 RS	273	"Load the `default' start-up library manually. Also inhibit further loading
	274	of it. Call this from your `.emacs' file to provide correct modes for
	275	autoloaded files."
	276	(if (not inhibit-default-init) ; safety check
6343ed61 RS	277	(progn
	278	(load "default" t t)
	279	(setq inhibit-default-init t))))
0b9bd504 RS	280	;; ----------------------------------------------------------------------------
	281	;; Note: the following functions use the dynamic variable binding in Lisp.
	282	;; The byte compiler may therefore complain of undeclared variables.
	283	;;
6343ed61 RS	284	(defun desktop-buffer-info () "Load an info file."
	285	(if (equal 'Info-mode mam)
	286	(progn
	287	(require 'info)
	288	(Info-find-node (nth 0 misc) (nth 1 misc))
	289	t)))
0b9bd504	290	;; ----------------------------------------------------------------------------
6343ed61 RS	291	(defun desktop-buffer-rmail () "Load a RMAIL file."
	292	(if (equal 'rmail-mode mam)
	293	(progn (rmail-input fn) t)))
0b9bd504	294	;; ----------------------------------------------------------------------------
6343ed61 RS	295	(defun desktop-buffer-dired () "Load a directory using dired."
6343ed61 RS	296	(if (equal 'dired-mode mam)
0b9bd504 RS	297	(progn
	298	(dired (car misc))
	299	(mapcar (function dired-maybe-insert-subdir) (cdr misc))
	300	t)))
	301	;; ----------------------------------------------------------------------------
6343ed61 RS	302	(defun desktop-buffer-file () "Load a file."
	303	(if fn
	304	(if (or (file-exists-p fn)
	305	(and desktop-missing-file-warning
0b9bd504 RS	306	(y-or-n-p (format
0b9bd504 RS	307	"File \"%s\" no longer exists. Re-create? "
6343ed61 RS	308	fn))))
	309	(progn (find-file fn) t)
	310	'ignored)))
0b9bd504 RS	311	;; ----------------------------------------------------------------------------
0b9bd504 RS	312	;; Create a buffer, load its file, set is mode, ...; called from Desktop file
6343ed61 RS	313	;; only.
	314	(defun desktop-buffer (fn bn mam mim pt mk ro tl fc cfs cr misc)
	315	(let ((hlist desktop-buffer-handlers)
	316	(result)
	317	(handler))
	318	(while (and (not result) hlist)
	319	(setq handler (car hlist))
	320	(setq result (funcall handler))
	321	(setq hlist (cdr hlist)))
	322	(if (equal result t)
	323	(progn
	324	(if (not (equal (buffer-name) bn))
	325	(rename-buffer bn))
	326	(if (nth 0 mim)
	327	(overwrite-mode 1)
	328	(overwrite-mode 0))
	329	(if (nth 1 mim)
	330	(auto-fill-mode 1)
	331	(overwrite-mode 0))
	332	(goto-char pt)
0b9bd504 RS	333	(if (consp mk)
	334	(progn
	335	(set-mark (car mk))
	336	(setq mark-active (car (cdr mk))))
	337	(set-mark mk))
	338	;; Never override file system if the file really is read-only marked.
	339	(if ro (setq buffer-read-only ro))
6343ed61 RS	340	(setq truncate-lines tl)
	341	(setq fill-column fc)
	342	(setq case-fold-search cfs)
	343	(setq case-replace cr)
	344	))))
0b9bd504	345	;; ----------------------------------------------------------------------------
ab1d55ea	346	(provide 'desktop)
6343ed61 RS	347
6343ed61 RS	348	;; desktop.el ends here.
0b9bd504	349