Minor refactors

This commit is contained in:
Henrik Lissner 2019-12-14 20:36:14 -05:00
parent e623fde85a
commit 7fa4e67e39
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 3 additions and 3 deletions

View file

@ -166,10 +166,10 @@ If ARG (universal argument), open selection in other-window."
(user-error "No completion session is active"))
(require 'wgrep)
(let ((caller (ivy-state-caller ivy-last)))
(if-let* ((occur-fn (plist-get +ivy-edit-functions caller)))
(if-let (occur-fn (plist-get +ivy-edit-functions caller))
(ivy-exit-with-action
(lambda (_) (funcall occur-fn)))
(if-let* ((occur-fn (plist-get ivy--occurs-list caller)))
(if-let (occur-fn (plist-get ivy--occurs-list caller))
(let ((buffer (generate-new-buffer
(format "*ivy-occur%s \"%s\"*"
(if caller (concat " " (prin1-to-string caller)) "")

View file

@ -674,7 +674,7 @@ between the two."
"v" #'+org/goto-visible
"x" #'org-capture-goto-last-stored)
(:prefix ("l" . "links")
"c" 'org-cliplink
"c" #'org-cliplink
"l" #'org-insert-link
"L" #'org-insert-all-links
"s" #'org-store-link