diff options
| author | Vasilij Schneidermann <mail@vasilij.de> | 2020-09-17 22:03:50 +0200 |
|---|---|---|
| committer | Vasilij Schneidermann <mail@vasilij.de> | 2020-09-17 22:03:50 +0200 |
| commit | 3277bf66fff1fac7ff58a046de3d42c31375fdb2 (patch) | |
| tree | 39c78cf59837b407a7ead170b9cb746bf1d46bd2 | |
| parent | 1e7aa5bfbd86feff0ed5982e487070352d326b90 (diff) | |
Make code more idiomatic
| -rw-r--r-- | evil-jumps.el | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/evil-jumps.el b/evil-jumps.el index 8eb7d41..a448ee8 100644 --- a/evil-jumps.el +++ b/evil-jumps.el @@ -125,19 +125,17 @@ (defun evil--jumps-savehist-sync () "Updates the printable value of window jumps for `savehist'." (setq evil-jumps-history - (cl-remove-if-not #'identity - (mapcar #'(lambda (jump) - (let* ((mark (car jump)) - (pos (if (markerp mark) - (marker-position mark) - mark)) - (file-name (cadr jump))) - (if (and (not (file-remote-p file-name)) - (file-exists-p file-name) - pos) - (list pos file-name) - nil))) - (ring-elements (evil--jumps-get-window-jump-list)))))) + (delq nil (mapcar #'(lambda (jump) + (let* ((mark (car jump)) + (pos (if (markerp mark) + (marker-position mark) + mark)) + (file-name (cadr jump))) + (when (and (not (file-remote-p file-name)) + (file-exists-p file-name) + pos) + (list pos file-name)))) + (ring-elements (evil--jumps-get-window-jump-list)))))) (defun evil--jumps-jump (idx shift) (let ((target-list (evil--jumps-get-window-jump-list))) |