diff options
| author | Stefan Kangas | 2020-09-22 00:35:05 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-09-22 00:35:05 +0200 |
| commit | 83b0fc4429e4743a14dc914a09217923d35591bf (patch) | |
| tree | 2e8ddabea161825e6916955495e0e9236b86e86b | |
| parent | fb68645b5a258c98acc11efdc3caae80683cc6b0 (diff) | |
| download | emacs-83b0fc4429e4743a14dc914a09217923d35591bf.tar.gz emacs-83b0fc4429e4743a14dc914a09217923d35591bf.zip | |
Fix thinko in dired-change-marks
* lisp/dired.el (dired-change-marks): Fix my previous broken attempt
to declare advertised-calling-convention.
| -rw-r--r-- | lisp/dired.el | 4 |
1 files 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." | |||
| 4062 | (if fn (backup-file-name-p fn)))) | 4062 | (if fn (backup-file-name-p fn)))) |
| 4063 | "backup file"))) | 4063 | "backup file"))) |
| 4064 | 4064 | ||
| 4065 | (defun dired-change-marks (old new) | 4065 | (defun dired-change-marks (&optional old new) |
| 4066 | "Change all OLD marks to NEW marks. | 4066 | "Change all OLD marks to NEW marks. |
| 4067 | OLD and NEW are both characters used to mark files." | 4067 | OLD and NEW are both characters used to mark files." |
| 4068 | (declare (advertised-calling-convention '(old new) "28.1")) | 4068 | (declare (advertised-calling-convention (old new) "28.1")) |
| 4069 | (interactive | 4069 | (interactive |
| 4070 | (let* ((cursor-in-echo-area t) | 4070 | (let* ((cursor-in-echo-area t) |
| 4071 | (old (progn (message "Change (old mark): ") (read-char))) | 4071 | (old (progn (message "Change (old mark): ") (read-char))) |