diff options
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 () |