TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Declare macro before it's called

This commit is contained in:
justbur 2015-12-16 22:27:22 -05:00 committed by syl20bnr
parent ddf9d3f647
commit 46f36dc74d
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
core/core-dotspacemacs.el
View File

@ -271,6 +271,22 @@ Possible values are: `recents' `bookmarks' `projects'.")
;; only for backward compatibility
(defalias 'dotspacemacs-mode 'emacs-lisp-mode)
(defmacro dotspacemacs|call-func (func &optional msg)
"Call the function from the dotfile only if it is bound.
If MSG is not nil then display a message in `*Messages'. Errors
are caught and signalled to user in spacemacs buffer."
`(progn
(when ,msg (spacemacs-buffer/message ,msg))
(when (fboundp ',func)
(condition-case-unless-debug err
(,func)
(error
(configuration-layer//set-error)
(spacemacs-buffer/append (format "Error in %s: %s\n"
',(symbol-name func)
(error-message-string err))
t))))))
(defun dotspacemacs/sync-configuration-layers (&optional arg)
"Synchronize declared layers in dotfile with spacemacs.
@ -447,22 +463,6 @@ error recovery."
'error-recover-prompt-for-style)
(ad-activate 'dotspacemacs/init))))
(defmacro dotspacemacs|call-func (func &optional msg)
"Call the function from the dotfile only if it is bound.
If MSG is not nil then display a message in `*Messages'. Errors
are caught and signalled to user in spacemacs buffer."
`(progn
(when ,msg (spacemacs-buffer/message ,msg))
(when (fboundp ',func)
(condition-case-unless-debug err
(,func)
(error
(configuration-layer//set-error)
(spacemacs-buffer/append (format "Error in %s: %s\n"
',(symbol-name func)
(error-message-string err))
t))))))
(defun dotspacemacs//test-dotspacemacs/layers ()
"Tests for `dotspacemacs/layers'"
(insert