emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactors

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
modules/completion/ivy/autoload/ivy.el
View file

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

2
modules/lang/org/config.el
View file

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