From 83b0fc4429e4743a14dc914a09217923d35591bf Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 22 Sep 2020 00:35:05 +0200 Subject: [PATCH] Fix thinko in dired-change-marks * lisp/dired.el (dired-change-marks): Fix my previous broken attempt to declare advertised-calling-convention. --- lisp/dired.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 7839ace8030..1ed949d5db8 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -4062,10 +4062,10 @@ only in the active region if `dired-mark-region' is non-nil." (if fn (backup-file-name-p fn)))) "backup file"))) -(defun dired-change-marks (old new) +(defun dired-change-marks (&optional old new) "Change all OLD marks to NEW marks. OLD and NEW are both characters used to mark files." - (declare (advertised-calling-convention '(old new) "28.1")) + (declare (advertised-calling-convention (old new) "28.1")) (interactive (let* ((cursor-in-echo-area t) (old (progn (message "Change (old mark): ") (read-char))) -- 2.39.5