pouya-abbassi
/
FG42
forked from FG42/FG42
1
0
Fork 0
Code Pull Requests 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) (defun old-depends-on-calls-adapter (args)
(if (listp (car args)) (if (listp (car args))
(progn (add-to-list 'args (car (cdr (pop args)))) args) (progn (add-to-list 'args (car (cdr (pop args)))) args))
args)) args)
(defmacro depends-on (&rest args) (defmacro depends-on (&rest args)
"Install given ARGS." "Install given ARGS."
(setq args (old-depends-on-calls-adapter args)) (let ((adapted-args (old-depends-on-calls-adapter args)))
(if (official-extension-p (car args)) (if (official-extension-p (car args))
`(fg42-install-extension ,@args) `(fg42-install-extension ,@args)
`(use-package ,@args))) `(use-package ,@args))))
;; depends on now is a wrapper around use-package ;; depends on now is a wrapper around use-package
;; (macroexpand-1 '(depends-on go-mode :mode "\\.go\\'")) ;; (macroexpand-1 '(depends-on go-mode :mode "\\.go\\'"))