# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997372209 0
# Node ID 7f07f5bca73303957a680b3d5c0ef585f686b350
# Parent  78835d2a314eaf67a3d3798acafd8ac51bf0be1d
(desktop-save): Don't use concat to form a file
name, use expand-file-name.

diff -r 78835d2a314e -r 7f07f5bca733 lisp/desktop.el
--- a/lisp/desktop.el	Thu Aug 09 14:57:30 2001 +0000
+++ b/lisp/desktop.el	Thu Aug 09 15:50:09 2001 +0000
@@ -475,8 +475,7 @@
   (interactive "DDirectory to save desktop file in: ")
   (run-hooks 'desktop-save-hook)
   (save-excursion
-    (let ((filename (expand-file-name
-		     (concat dirname desktop-basefilename)))
+    (let ((filename (expand-file-name desktop-basefilename dirname))
 	  (info (nreverse
 		 (mapcar
 		  (function