Appease byte-compiler-sama
This commit is contained in:
parent
ae52b2ff60
commit
4321f20b3e
4 changed files with 4 additions and 7 deletions
|
@ -247,7 +247,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
|
|||
;;
|
||||
|
||||
;;;###autoload
|
||||
(defun doom*newline-and-indent (orig-fn)
|
||||
(defun doom*newline-and-indent (_orig-fn)
|
||||
"Inserts a newline and possibly indents it. Also continues comments if
|
||||
executed from a commented line; handling special cases for certain languages
|
||||
with weak native support."
|
||||
|
|
|
@ -63,17 +63,16 @@ you're done. This can be called from an external shell script."
|
|||
(setq string nil))
|
||||
(when (and key (string-empty-p key))
|
||||
(setq key nil))
|
||||
(require 'org-capture)
|
||||
(let ((frame (if (+org-capture-frame-p)
|
||||
(selected-frame)
|
||||
(make-frame +org-capture-window-params))))
|
||||
(with-selected-frame frame
|
||||
(require 'org-capture)
|
||||
(condition-case ex
|
||||
(cl-letf (((symbol-function #'pop-to-buffer)
|
||||
(symbol-function #'switch-to-buffer)))
|
||||
(switch-to-buffer (doom-fallback-buffer))
|
||||
(let ((org-capture-initial string)
|
||||
(org-capture-mode-hook org-capture-mode-hook)
|
||||
org-capture-entry)
|
||||
(when (and key (not (string-empty-p key)))
|
||||
(setq org-capture-entry (org-capture-select-template key)))
|
||||
|
|
|
@ -139,8 +139,7 @@ wrong places)."
|
|||
(let ((marker (org-element-property :bullet context))
|
||||
(pad (save-excursion
|
||||
(back-to-indentation)
|
||||
(- (point) (line-beginning-position))))
|
||||
afterp)
|
||||
(- (point) (line-beginning-position)))))
|
||||
(save-match-data
|
||||
(pcase direction
|
||||
('below
|
||||
|
|
|
@ -8,8 +8,7 @@
|
|||
(defun +neotree/open ()
|
||||
"Open the neotree window in the current project."
|
||||
(interactive)
|
||||
(let ((path buffer-file-name)
|
||||
(project-root (doom-project-root 'nocache)))
|
||||
(let ((project-root (doom-project-root 'nocache)))
|
||||
(require 'neotree)
|
||||
(if (neo-global--window-exists-p)
|
||||
(neotree-hide)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue