From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 22 Jul 2007 23:20:31 +0000 (+0000)
Subject: (decode_mode_spec): Add case 'R' for to test for
X-Git-Tag: emacs-pretest-23.0.90~11780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad5f4654fd3ebae9ee51f94777654ca18a8d0914;p=emacs.git

(decode_mode_spec): Add case 'R' for to test for
remote default-directory.
---

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