From ad5f4654fd3ebae9ee51f94777654ca18a8d0914 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 22 Jul 2007 23:20:31 +0000 Subject: [PATCH] (decode_mode_spec): Add case 'R' for to test for remote default-directory. --- src/xdisp.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/xdisp.c b/src/xdisp.c index a0d5f370678..f53e528d6e8 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -17994,6 +17994,16 @@ decode_mode_spec (w, c, field_width, precision, multibyte) #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); -- 2.39.5