fix(emacs): add default value for grade-start
argument
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
parent
765b4f4295
commit
2b1eb9c90e
1 changed files with 4 additions and 2 deletions
|
@ -323,8 +323,10 @@
|
||||||
(keymap-global-set "C-c f" #'grade-next)
|
(keymap-global-set "C-c f" #'grade-next)
|
||||||
(keymap-global-set "C-c b" #'grade-prev)
|
(keymap-global-set "C-c b" #'grade-prev)
|
||||||
|
|
||||||
(let* ((start (or start
|
(let* ((file-msg "File number to start with (default 0):")
|
||||||
(string-to-number (read-string "File number to start with: "))))
|
(start (or start
|
||||||
|
(string-to-number (read-string file-msg))
|
||||||
|
1))
|
||||||
(dir (if (eq major-mode 'dired-mode)
|
(dir (if (eq major-mode 'dired-mode)
|
||||||
(dired-current-directory)
|
(dired-current-directory)
|
||||||
(error "Must be in Dired directory")))
|
(error "Must be in Dired directory")))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue