# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1272038372 14400
# Node ID 6f2d16153b19b86b4ac50c8bb6fbbf6a9121993c
# Parent  38a6893c8b9ecd71d70d791f9e35f23d28eb369f
* progmodes/compile.el: (compilation-start): Abbreviate default directory.

diff -r 38a6893c8b9e -r 6f2d16153b19 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 23 11:50:48 2010 -0400
+++ b/lisp/ChangeLog	Fri Apr 23 11:59:32 2010 -0400
@@ -1,16 +1,20 @@
+2010-04-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/compile.el (compilation-start): Abbreviate default directory.
+
 2010-04-23  Michael Albinus  <michael.albinus@gmx.de>
 
 	Implement SELINUX backends.
 
-	* net/tramp.el (tramp-file-name-handler-alist): Add
-	`file-selinux-context' and `set-file-selinux-context'.
+	* net/tramp.el (tramp-file-name-handler-alist):
+	Add `file-selinux-context' and `set-file-selinux-context'.
 	(tramp-handle-file-selinux-context)
 	(tramp-handle-set-file-selinux-context): New defuns.
-	(tramp-handle-copy-file, tramp-do-copy-or-rename-file): Handle
-	PRESERVE-SELINUX-CONTEXT.
-
-	* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist): Add
-	`file-selinux-context' and `set-file-selinux-context'.
+	(tramp-handle-copy-file, tramp-do-copy-or-rename-file):
+	Handle PRESERVE-SELINUX-CONTEXT.
+
+	* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+	Add `file-selinux-context' and `set-file-selinux-context'.
 	(tramp-gvfs-handle-file-selinux-context)
 	(tramp-gvfs-handle-set-file-selinux-context): New defuns.
 	(tramp-gvfs-handle-copy-file): Handle PRESERVE-SELINUX-CONTEXT.
@@ -18,8 +22,8 @@
 	* net/ange-ftp.el (ange-ftp-copy-file):
 	* net/tramp-fish.el (tramp-fish-handle-copy-file):
 	* net/tramp-imap.el (tramp-imap-handle-copy-file):
-	* net/tramp-smb.el (tramp-smb-handle-copy-file): Add
-	PRESERVE-SELINUX-CONTEXT.
+	* net/tramp-smb.el (tramp-smb-handle-copy-file):
+	Add PRESERVE-SELINUX-CONTEXT.
 
 2010-04-22  Michael Albinus  <michael.albinus@gmx.de>
 
diff -r 38a6893c8b9e -r 6f2d16153b19 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Apr 23 11:50:48 2010 -0400
+++ b/lisp/progmodes/compile.el	Fri Apr 23 11:59:32 2010 -0400
@@ -1265,7 +1265,8 @@
             (set (make-local-variable 'compilation-auto-jump-to-next) t))
 	;; Output a mode setter, for saving and later reloading this buffer.
 	(insert "-*- mode: " name-of-mode
-		"; default-directory: " (prin1-to-string default-directory)
+		"; default-directory: "
+                (prin1-to-string (abbreviate-file-name default-directory))
 		" -*-\n"
 		(format "%s started at %s\n\n"
 			mode-name