awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-24 16:30:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

Bytecompiler bytecompiler, won't you shut up

Browse Source
This commit is contained in:
Henrik Lissner
2019-11-23 00:52:36 -05:00
parent 803da8b3b9
commit 26c8f5c6ef
21 changed files with 31 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/lang/org/autoload/org-capture.el
View File

@@ -134,7 +134,7 @@ project."
(+org--capture-ensure-heading (cdr headings) (1+ initial-level)))))
(defun +org--capture-central-file (file project)
(let ((file (expand-file-name +org-capture-projects-file org-directory)))
(let ((file (expand-file-name file org-directory)))
(set-buffer (org-capture-target-buffer file))
(org-capture-put-target-region-and-position)
(widen)

2
modules/lang/org/autoload/org-refile.el
View File

@@ -59,6 +59,6 @@
(user-error "No saved location to refile to"))
(let ((org-refile-keep arg)
(completing-read-function
(lambda (_p coll _pred _rm _ii _h default &rest _)
(lambda (_p _coll _pred _rm _ii _h default &rest _)
default)))
(org-refile)))

3
modules/lang/org/autoload/org.el
View File

@@ -68,8 +68,7 @@
1)))
(pcase direction
(`below
(let ((at-eol (>= (point) (1- (line-end-position))))
org-insert-heading-respect-content)
(let (org-insert-heading-respect-content)
(goto-char (line-end-position))
(org-end-of-subtree)
(insert "\n" (make-string level ?*) " ")))