From 509fb89d06f88364556ad04f6c7b66f395168ded Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 23 Dec 2020 19:30:46 -0500 Subject: Drop use of dash --- lisp/km-dired.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'lisp/km-dired.el') 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 () -- cgit v1.2.3