Appease byte-compiler-sama

This commit is contained in:
Henrik Lissner 2018-02-14 20:54:53 -05:00
parent ae52b2ff60
commit 4321f20b3e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 4 additions and 7 deletions

View file

@ -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."

View file

@ -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)))

View file

@ -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

View file

@ -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)