Fix thinko in dired-change-marks

* lisp/dired.el (dired-change-marks): Fix my previous broken attempt
to declare advertised-calling-convention.

diff --git a/lisp/dired.el b/lisp/dired.el
index 7839ace80304c76ac807decb8a559f942ae58741..1ed949d5db893ad6a9b7f33cb294938e3bd74bdb 100644 (file)
--- 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)))