863 |
(when marker-char |
(when marker-char |
864 |
(let ((dired-marker-char |
(let ((dired-marker-char |
865 |
(if (integerp marker-char) marker-char dired-marker-char))) |
(if (integerp marker-char) marker-char dired-marker-char))) |
866 |
(dired-mark))) |
(dired-mark nil))) |
867 |
;; Compensate for a bug in ange-ftp. |
;; Compensate for a bug in ange-ftp. |
868 |
;; It inserts the file's absolute name, rather than |
;; It inserts the file's absolute name, rather than |
869 |
;; the relative one. That may be hard to fix since it |
;; the relative one. That may be hard to fix since it |