comparison lisp/desktop.el @ 38765:7f07f5bca733

(desktop-save): Don't use concat to form a file name, use expand-file-name.

38764:78835d2a314e

(defun desktop-save (dirname)
  "Save the Desktop file.  Parameter DIRNAME specifies where to save desktop."
  (interactive "DDirectory to save desktop file in: ")
  (run-hooks 'desktop-save-hook)
  (save-excursion
    (let ((filename (expand-file-name
		     (concat dirname desktop-basefilename)))
	  (info (nreverse
		 (mapcar
		  (function
		   (lambda (b)
			      (set-buffer b)

38765:7f07f5bca733

(defun desktop-save (dirname)
  "Save the Desktop file.  Parameter DIRNAME specifies where to save desktop."
  (interactive "DDirectory to save desktop file in: ")
  (run-hooks 'desktop-save-hook)
  (save-excursion
    (let ((filename (expand-file-name desktop-basefilename dirname))
	  (info (nreverse
		 (mapcar
		  (function
		   (lambda (b)
			      (set-buffer b)