From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#17351: Trunk emacs splats .emacs.desktop at startup Date: Tue, 24 Jun 2014 01:57:52 +0300 Organization: JURTA Message-ID: <874mzbz11m.fsf@mail.jurta.org> References: <20140426180427.GA2944@acm.acm> <87eh0jji5s.fsf@mail.jurta.org> <20140427091555.GA3091@acm.acm> <87fvkzf6bi.fsf@mail.jurta.org> <1ud2e177bf.fsf@fencepost.gnu.org> <87y4wo5ynb.fsf@mail.jurta.org> <0rionsjxr3.fsf@fencepost.gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1403566350 972 80.91.229.3 (23 Jun 2014 23:32:30 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 23 Jun 2014 23:32:30 +0000 (UTC) Cc: Alan Mackenzie , 17351@debbugs.gnu.org To: Glenn Morris Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Jun 24 01:32:22 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WzDin-0005rB-Nj for geb-bug-gnu-emacs@m.gmane.org; Tue, 24 Jun 2014 01:32:21 +0200 Original-Received: from localhost ([::1]:56588 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WzDin-0004Ba-9c for geb-bug-gnu-emacs@m.gmane.org; Mon, 23 Jun 2014 19:32:21 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56228) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WzDic-0004A2-ND for bug-gnu-emacs@gnu.org; Mon, 23 Jun 2014 19:32:18 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WzDiV-00008q-89 for bug-gnu-emacs@gnu.org; Mon, 23 Jun 2014 19:32:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:39296) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WzDiU-00008h-U1 for bug-gnu-emacs@gnu.org; Mon, 23 Jun 2014 19:32:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WzDiU-0006wX-CZ for bug-gnu-emacs@gnu.org; Mon, 23 Jun 2014 19:32:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 23 Jun 2014 23:32:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17351 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17351-submit@debbugs.gnu.org id=B17351.140356631426660 (code B ref 17351); Mon, 23 Jun 2014 23:32:02 +0000 Original-Received: (at 17351) by debbugs.gnu.org; 23 Jun 2014 23:31:54 +0000 Original-Received: from localhost ([127.0.0.1]:58676 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WzDiL-0006vu-6b for submit@debbugs.gnu.org; Mon, 23 Jun 2014 19:31:53 -0400 Original-Received: from alc-vshost7.dreamhost.com ([69.163.216.107]:39921 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WzDiJ-0006vg-FD for 17351@debbugs.gnu.org; Mon, 23 Jun 2014 19:31:52 -0400 Original-Received: from localhost.jurta.org (ps18281.dreamhostps.com [69.163.222.226]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 4ADED3714357A6; Mon, 23 Jun 2014 16:31:49 -0700 (PDT) In-Reply-To: <0rionsjxr3.fsf@fencepost.gnu.org> (Glenn Morris's message of "Sun, 22 Jun 2014 20:05:52 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:90711 Archived-At: >> This would keep the desktop file open all the time, >> and users might not like to see it in the buffer list. > > So read it into an invisible buffer, set buffer-file-name, and enable > auto-save-mode. auto-save-mode doesn't seem necessary because the contents of the desktop file buffer has to be generated at the given time interval anyway, so at the end it can be saved as well like in this patch: === modified file 'lisp/desktop.el' --- lisp/desktop.el 2014-06-06 23:38:40 +0000 +++ lisp/desktop.el 2014-06-23 22:45:20 +0000 @@ -1038,8 +1038,15 @@ (defun desktop-save (dirname &optional r (point)))) (checksum (and beg (md5 (current-buffer) beg (point-max) 'emacs-mule)))) (unless (and checksum (equal checksum desktop-file-checksum)) - (let ((coding-system-for-write 'emacs-mule)) - (write-region (point-min) (point-max) (desktop-full-file-name) nil 'nomessage)) + (let ((coding-system-for-write 'emacs-mule) + (buffer-string (buffer-string))) + (with-current-buffer (find-file-noselect (desktop-full-file-name)) + ;; Make the buffer invisible + (unless (eq (aref (buffer-name) 0) ?\s) + (rename-buffer (concat " " (buffer-name)))) + (erase-buffer) + (insert buffer-string) + (save-buffer))) (setq desktop-file-checksum checksum) ;; We remember when it was modified (which is presumably just now). (setq desktop-file-modtime (nth 5 (file-attributes (desktop-full-file-name)))))))))))