From 3b548e1b3acf989c1bb866348f6dcff3d9a25d27 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 23 Apr 2010 11:59:32 -0400 Subject: [PATCH] * progmodes/compile.el: (compilation-start): Abbreviate default directory. --- lisp/ChangeLog | 20 ++++++++++++-------- lisp/progmodes/compile.el | 3 ++- 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c68163fa00..5b1396a9198 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,16 +1,20 @@ +2010-04-23 Stefan Monnier + + * progmodes/compile.el (compilation-start): Abbreviate default directory. + 2010-04-23 Michael Albinus 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 diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 13cf862ee18..f5fd9fd6608 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1265,7 +1265,8 @@ Returns the compilation buffer created." (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 -- 2.11.4.GIT