From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 21 Sep 2020 22:35:05 +0000 (+0200)
Subject: Fix thinko in dired-change-marks
X-Git-Tag: emacs-28.0.90~5944
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83b0fc4429e4743a14dc914a09217923d35591bf;p=emacs.git

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