awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-30 17:01:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor macros

Browse Source
This commit is contained in:
Henrik Lissner
2016-05-12 02:53:31 -04:00
parent f2df8192ff
commit d751be7898
8 changed files with 53 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
core/defuns/macros-company.el
View File

@@ -6,7 +6,7 @@
"Register a company backend for a mode."
(let* ((hooks (if (listp hooks) hooks (list hooks)))
(def-name (intern (format "narf--init-company-%s"
(s-join "-" (mapcar 'symbol-name hooks)))))
(mapconcat 'identity (mapcar 'symbol-name hooks) "-"))))
(quoted (eq (car-safe backends) 'quote)))
`(progn
(defun ,def-name ()