diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-12-23 19:30:46 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-12-24 00:25:22 -0500 |
| commit | 509fb89d06f88364556ad04f6c7b66f395168ded (patch) | |
| tree | 2ac98fc824a86c7d43570eb26aaec39cc462f421 /lisp/km-dired.el | |
| parent | bf90c6d7aa1d7b23eb32393d13e601f4ca56d755 (diff) | |
| download | emacs.d-509fb89d06f88364556ad04f6c7b66f395168ded.tar.gz | |
Drop use of dash
Diffstat (limited to 'lisp/km-dired.el')
| -rw-r--r-- | lisp/km-dired.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/km-dired.el b/lisp/km-dired.el index 706a543..2041efc 100644 --- a/lisp/km-dired.el +++ b/lisp/km-dired.el @@ -20,7 +20,6 @@ ;;; Code: -(require 'dash) (require 'dired) (require 'org) (require 'km-util) @@ -81,17 +80,17 @@ "Run 'touch -h' on makred files (or next ARG)." (interactive "p") (setq arg (and current-prefix-arg arg)) - (--when-let (dired-get-marked-files nil arg) - (apply #'call-process "touch" nil nil nil "-h" it))) + (when-let ((fname (dired-get-marked-files nil arg))) + (apply #'call-process "touch" nil nil nil "-h" fname))) ;;;###autoload (defun km/dired-copy-last-mtime-as-kill () "Copy last modification time for file at point." (interactive) - (--when-let (dired-get-filename nil 'noerror) + (when-let ((fname (dired-get-filename nil 'noerror))) (kill-new (message "%s" (format-time-string "%Y%m%d%H%M.%S" - (nth 5 (file-attributes it))))))) + (nth 5 (file-attributes fname))))))) ;;;###autoload (defun km/dired-beginning-of-buffer () |