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

use let instead of setq

This commit is contained in:
amirrezaask 2020-04-10 09:57:54 +04:30
parent fd67f2f76a
commit 58fba5e2f7
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/fpkg.el
View File

@ -95,16 +95,15 @@
(defun old-depends-on-calls-adapter (args)
(if (listp (car args))
(progn (add-to-list 'args (car (cdr (pop args)))) args)
args))
(progn (add-to-list 'args (car (cdr (pop args)))) args))
args)
(defmacro depends-on (&rest args)
"Install given ARGS."
(setq args (old-depends-on-calls-adapter args))
(if (official-extension-p (car args))
`(fg42-install-extension ,@args)
`(use-package ,@args)))
(let ((adapted-args (old-depends-on-calls-adapter args)))
(if (official-extension-p (car args))
`(fg42-install-extension ,@args)
`(use-package ,@args))))
;; depends on now is a wrapper around use-package
;; (macroexpand-1 '(depends-on go-mode :mode "\\.go\\'"))