From e76f0800d2ceef239e8db3c2f81c6b71d4c70302 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 21 Jun 2012 15:15:42 +0800 Subject: [PATCH] Fixes to desktop reading logic. * desktop.el (desktop-read): Don't prompt if daemon. (desktop-path): Remove . from the default value. --- etc/NEWS | 5 +++++ lisp/ChangeLog | 5 +++++ lisp/desktop.el | 9 ++++----- 3 files changed, 14 insertions(+), 5 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index a2f3b95fe41..3cd4d217a46 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -153,6 +153,11 @@ which have not been renamed to `cl-foo*' but just `cl-foo'. The old `cl' is now deprecated and is nothing more than a bunch of aliases that provide the old non-prefixed names. +** Desktop + +*** `desktop-path' no longer includes the "." directory. Desktop +files are now located in ~/.emacs.d by default. + ** A new mode for Python. This provides several new features, including: per-buffer shells, better indentation, Python 3 support, and improved diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d7716f5fa1a..4d130250dcf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-06-21 Chong Yidong + + * desktop.el (desktop-read): Don't prompt if daemon (Bug#11674). + (desktop-path): Remove . from the default value (Bug#10977). + 2012-06-20 Chong Yidong * term.el (term-send-raw-meta): Make C-M- keys work (Bug#8172). diff --git a/lisp/desktop.el b/lisp/desktop.el index 5d9982940bf..2fd9d7f10ad 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -220,7 +220,7 @@ the normal hook `desktop-not-loaded-hook' is run." :group 'desktop :version "22.2") -(defcustom desktop-path (list "." user-emacs-directory "~") +(defcustom desktop-path (list user-emacs-directory "~") "List of directories to search for the desktop file. The base name of the file is specified in `desktop-base-file-name'." :type '(repeat directory) @@ -410,8 +410,7 @@ is passed as the argument DESKTOP-BUFFER-MISC to functions in 'desktop-save-buffer "22.1") ;;;###autoload -(defvar desktop-buffer-mode-handlers - nil +(defvar desktop-buffer-mode-handlers nil "Alist of major mode specific functions to restore a desktop buffer. Functions listed are called by `desktop-create-buffer' when `desktop-read' evaluates the desktop file. List elements must have the form @@ -471,8 +470,7 @@ this table. See also `desktop-minor-mode-handlers'." :group 'desktop) ;;;###autoload -(defvar desktop-minor-mode-handlers - nil +(defvar desktop-minor-mode-handlers nil "Alist of functions to restore non-standard minor modes. Functions are called by `desktop-create-buffer' to restore minor modes. List elements must have the form @@ -981,6 +979,7 @@ It returns t if a desktop file was loaded, nil otherwise." (if (and owner (memq desktop-load-locked-desktop '(nil ask)) (or (null desktop-load-locked-desktop) + (daemonp) (not (y-or-n-p (format "Warning: desktop file appears to be in use by PID %s.\n\ Using it may cause conflicts. Use it anyway? " owner))))) (let ((default-directory desktop-dirname)) -- 2.11.4.GIT