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