diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-23 11:59:32 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-23 11:59:32 -0400 |
| commit | 3b548e1b3acf989c1bb866348f6dcff3d9a25d27 (patch) | |
| tree | 773ac13e5db952a5cdec604df7a06c98be7f9403 /lisp | |
| parent | ff5dec5cd103f6a9b030d295b014f0ff81025def (diff) | |
| download | emacs-3b548e1b3acf989c1bb866348f6dcff3d9a25d27.tar.gz emacs-3b548e1b3acf989c1bb866348f6dcff3d9a25d27.tar.bz2 emacs-3b548e1b3acf989c1bb866348f6dcff3d9a25d27.zip | |
* progmodes/compile.el: (compilation-start): Abbreviate default directory.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 20 | ||||
| -rw-r--r-- | 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 <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. + (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 <michael.albinus@gmx.de> 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 |