(decode_mode_spec): Add case 'R' for to test for

remote default-directory.

1 files changed, 10 insertions, 0 deletions

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);