From f5240884e6802d39d67dff5cb128fd66d33ac305 Mon Sep 17 00:00:00 2001
From: Andreas Burtzlaff <andreas@burtzlaff.de>
Date: Tue, 23 Jun 2009 10:46:55 +0200
Subject: [PATCH] Added symlink display

---
 org-fstree.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-fstree.el b/org-fstree.el
index 6687ea1..1caaddf 100644
--- a/org-fstree.el
+++ b/org-fstree.el
@@ -138,7 +138,7 @@
 			      (linkCount 0)
 			      (headingString (format "\n%s |%s| [[file:%s][%s]] " 
 						     (make-string level ?*) 
-						     (if (file-directory-p fullFileName) "D" " ") 
+						     (cond ((file-directory-p fullFileName) "D") ((file-symlink-p fullFileName) "L") (t " ")) 
 						     (if (plist-get options :relative-links) (file-relative-name fullFileName) fullFileName) fileName)))
 			 (cond (links-as-properties
 				(setq retString (concat retString headingString (if tagString tagString "")
-- 
2.11.4.GIT