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) |