Mercurial > emacs
comparison lisp/dired-aux.el @ 47498:26afa4825cc1
(dired-add-entry): Add missing argument to `dired-mark'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 Sep 2002 06:31:43 +0000 |
| parents | 12d639f1385e |
| children | d19f02bf4d19 |
comparison
equal
deleted
inserted
replaced
| 47497:036e57c15cdc | 47498:26afa4825cc1 |
|---|---|
| 861 (list filename))) | 861 (list filename))) |
| 862 ;; Put in desired marker char. | 862 ;; Put in desired marker char. |
| 863 (when marker-char | 863 (when marker-char |
| 864 (let ((dired-marker-char | 864 (let ((dired-marker-char |
| 865 (if (integerp marker-char) marker-char dired-marker-char))) | 865 (if (integerp marker-char) marker-char dired-marker-char))) |
| 866 (dired-mark))) | 866 (dired-mark nil))) |
| 867 ;; Compensate for a bug in ange-ftp. | 867 ;; Compensate for a bug in ange-ftp. |
| 868 ;; It inserts the file's absolute name, rather than | 868 ;; It inserts the file's absolute name, rather than |
| 869 ;; the relative one. That may be hard to fix since it | 869 ;; the relative one. That may be hard to fix since it |
| 870 ;; is probably controlled by something in ftp. | 870 ;; is probably controlled by something in ftp. |
| 871 (goto-char opoint) | 871 (goto-char opoint) |