occur: Don't insert nil values in regexp-history

1 files changed, 5 insertions, 6 deletions

diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index 19c20db..2dac01d 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -144,12 +144,11 @@ touches."
 (defun km/occur ()
   "Call `occur' with active region or symbol at point."
   (interactive)
-  (push (if (use-region-p)
-            (buffer-substring-no-properties
-             (region-beginning)
-             (region-end))
-          (thing-at-point 'symbol))
-        regexp-history)
+  (--when-let (if (use-region-p)
+                  (buffer-substring-no-properties
+                   (region-beginning) (region-end))
+                (thing-at-point 'symbol))
+    (push it regexp-history))
   (call-interactively 'occur))
 
 (global-set-key (kbd "C-x \\") 'align-regexp)