- (let* ((line (buffer-substring (line-beginning-position)
- (line-end-position)))
- (fields (split-string line "/"))
- text)
- (if (eq (aref line 0) ?/)
- (setq fields (cons "" fields)))
- (setq text (nth 1 fields))
+ ;; Normal file: /NAME -> "" "NAME"
+ ;; Directory : D/NAME -> "D" "NAME"
+ (let* ((fields (split-string (buffer-substring
+ (line-beginning-position)
+ (line-end-position))
+ "/"))
+ (text (nth 1 fields)))