[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/desktop.el,v [EMACS_22_BASE]
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/desktop.el,v [EMACS_22_BASE] |
Date: |
Thu, 12 Jul 2007 22:43:53 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Juanma Barranquero <lektu> 07/07/12 22:43:53
Index: desktop.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/desktop.el,v
retrieving revision 1.108.2.2
retrieving revision 1.108.2.3
diff -u -b -r1.108.2.2 -r1.108.2.3
--- desktop.el 24 Jun 2007 20:00:02 -0000 1.108.2.2
+++ desktop.el 12 Jul 2007 22:43:53 -0000 1.108.2.3
@@ -652,7 +652,7 @@
(set-buffer buffer)
(list
;; basic information
- (desktop-file-name (buffer-file-name) dirname)
+ (desktop-file-name (buffer-file-name) desktop-dirname)
(buffer-name)
major-mode
;; minor modes
@@ -673,7 +673,7 @@
buffer-read-only
;; auxiliary information
(when (functionp desktop-save-buffer)
- (funcall desktop-save-buffer dirname))
+ (funcall desktop-save-buffer desktop-dirname))
;; local variables
(let ((locals desktop-locals-to-save)
(loclist (buffer-local-variables))
@@ -896,7 +896,7 @@
(insert "\n " (desktop-value-to-string e)))
(insert ")\n\n")))
- (setq default-directory dirname)
+ (setq default-directory desktop-dirname)
(let ((coding-system-for-write 'emacs-mule))
(write-region (point-min) (point-max) (desktop-full-file-name) nil
'nomessage))
;; We remember when it was modified (which is presumably just now).
- [Emacs-diffs] Changes to emacs/lisp/desktop.el,v [EMACS_22_BASE],
Juanma Barranquero <=