[Emacs-diffs] /srv/bzr/emacs/trunk r100008: * progmodes/compile.el: (compilation-start): Abbreviate default directory.

[Stefan Monnier]

------------------------------------------------------------
revno: 100008
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2010-04-23 11:59:32 -0400
message:
  * progmodes/compile.el: (compilation-start): Abbreviate default directory.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-23 14:12:05 +0000
+++ b/lisp/ChangeLog    2010-04-23 15:59:32 +0000
@@ -1,16 +1,20 @@
+2010-04-23  Stefan Monnier  <address@hidden>
+
+       * progmodes/compile.el (compilation-start): Abbreviate default 
directory.
+
 2010-04-23  Michael Albinus  <address@hidden>
 
        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.
+       (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'.
+       * 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  <address@hidden>
 

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2010-04-10 02:18:09 +0000
+++ b/lisp/progmodes/compile.el 2010-04-23 15:59:32 +0000
@@ -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