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

Appease byte-compiler-sama

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

2
core/autoload/editor.el
View file

@ -247,7 +247,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
;; ;;
;;;###autoload ;;;###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 "Inserts a newline and possibly indents it. Also continues comments if
executed from a commented line; handling special cases for certain languages executed from a commented line; handling special cases for certain languages
with weak native support." with weak native support."

3
modules/lang/org/autoload/org-capture.el
View file

@ -63,17 +63,16 @@ you're done. This can be called from an external shell script."
(setq string nil)) (setq string nil))
(when (and key (string-empty-p key)) (when (and key (string-empty-p key))
(setq key nil)) (setq key nil))
(require 'org-capture)
(let ((frame (if (+org-capture-frame-p) (let ((frame (if (+org-capture-frame-p)
(selected-frame) (selected-frame)
(make-frame +org-capture-window-params)))) (make-frame +org-capture-window-params))))
(with-selected-frame frame (with-selected-frame frame
(require 'org-capture)
(condition-case ex (condition-case ex
(cl-letf (((symbol-function #'pop-to-buffer) (cl-letf (((symbol-function #'pop-to-buffer)
(symbol-function #'switch-to-buffer))) (symbol-function #'switch-to-buffer)))
(switch-to-buffer (doom-fallback-buffer)) (switch-to-buffer (doom-fallback-buffer))
(let ((org-capture-initial string) (let ((org-capture-initial string)
(org-capture-mode-hook org-capture-mode-hook)
org-capture-entry) org-capture-entry)
(when (and key (not (string-empty-p key))) (when (and key (not (string-empty-p key)))
(setq org-capture-entry (org-capture-select-template key))) (setq org-capture-entry (org-capture-select-template key)))

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

@ -139,8 +139,7 @@ wrong places)."
(let ((marker (org-element-property :bullet context)) (let ((marker (org-element-property :bullet context))
(pad (save-excursion (pad (save-excursion
(back-to-indentation) (back-to-indentation)
(- (point) (line-beginning-position)))) (- (point) (line-beginning-position)))))
afterp)
(save-match-data (save-match-data
(pcase direction (pcase direction
('below ('below

3
modules/tools/neotree/autoload.el
View file

@ -8,8 +8,7 @@
(defun +neotree/open () (defun +neotree/open ()
"Open the neotree window in the current project." "Open the neotree window in the current project."
(interactive) (interactive)
(let ((path buffer-file-name) (let ((project-root (doom-project-root 'nocache)))
(project-root (doom-project-root 'nocache)))
(require 'neotree) (require 'neotree)
(if (neo-global--window-exists-p) (if (neo-global--window-exists-p)
(neotree-hide) (neotree-hide)