Mercurial > emacs
changeset 82046:83bb644ccd17
(decode_mode_spec): Add case 'R' for to test for
remote default-directory.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 22 Jul 2007 23:20:31 +0000 |
| parents | 8b2047314d4c |
| children | 7df018ac279e |
| files | src/xdisp.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Sun Jul 22 23:19:00 2007 +0000 +++ b/src/xdisp.c Sun Jul 22 23:20:31 2007 +0000 @@ -17994,6 +17994,16 @@ #endif break; + case 'R': + { + Lisp_Object val; + val = call1 (intern ("file-remote-p"), current_buffer->directory); + if (NILP (val)) + return "-"; + else + return "@"; + } + case 't': /* indicate TEXT or BINARY */ #ifdef MODE_LINE_BINARY_TEXT return MODE_LINE_BINARY_TEXT (b);