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-editing.el | |
| parent | bf90c6d7aa1d7b23eb32393d13e601f4ca56d755 (diff) | |
| download | emacs.d-509fb89d06f88364556ad04f6c7b66f395168ded.tar.gz | |
Drop use of dash
Diffstat (limited to 'lisp/km-editing.el')
| -rw-r--r-- | lisp/km-editing.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/km-editing.el b/lisp/km-editing.el index 89935a6..f11c20b 100644 --- a/lisp/km-editing.el +++ b/lisp/km-editing.el @@ -20,7 +20,6 @@ ;;; Code: -(require 'dash) (require 'outline) (require 's) (require 'select) @@ -226,11 +225,11 @@ touches." (defun km/occur () "Call `occur' with active region or symbol at point." (interactive) - (--when-let (if (use-region-p) - (buffer-substring-no-properties - (region-beginning) (region-end)) - (thing-at-point 'symbol)) - (push it regexp-history)) + (when-let ((text (if (use-region-p) + (buffer-substring-no-properties + (region-beginning) (region-end)) + (thing-at-point 'symbol)))) + (push text regexp-history)) (call-interactively 'occur)) |