From 0b884c800209965f0660c1dbc0074e9e2462c2fe Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 9 Dec 2006 16:15:26 +0000 Subject: [PATCH] (wdired-preprocess-symlinks): Make the spaces after symlink arrows read-only and non-rear-sticky. --- lisp/wdired.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))))) -- 2.39.5