From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 9 Dec 2006 16:15:26 +0000 (+0000)
Subject: (wdired-preprocess-symlinks): Make the spaces after symlink arrows
X-Git-Tag: emacs-pretest-22.0.92~207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b884c800209965f0660c1dbc0074e9e2462c2fe;p=emacs.git

(wdired-preprocess-symlinks): Make the spaces after symlink arrows
read-only and non-rear-sticky.
---

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 025fac8c035..5a925e5d031 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -517,7 +517,10 @@ says how many lines to move; default is one line."
 				 (1- (match-beginning 1)) 'old-link
 				 (match-string-no-properties 1))
               (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t)
-	      (put-text-property (1- (match-beginning 1))
+              (put-text-property (1- (match-beginning 1))
+				 (match-beginning 1)
+				 'rear-nonsticky '(read-only))
+	      (put-text-property (match-beginning 1)
 				 (match-end 1) 'read-only nil)))
         (forward-line)
 	(beginning-of-line)))))