awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix doom/info in noninteractive sessions

Browse Source
This commit is contained in:
Henrik Lissner
2018-08-16 01:26:28 +02:00
parent 6a582d4f5f
commit 480378d30c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/autoload/debug.el
View File

@ -11,7 +11,8 @@
"Returns diagnostic information about the current Emacs session in markdown, "Returns diagnostic information about the current Emacs session in markdown,
ready to be pasted in a bug report on github." ready to be pasted in a bug report on github."
(require 'vc-git) (require 'vc-git)
(let ((default-directory doom-emacs-dir)) (let ((default-directory doom-emacs-dir)
(doom-modules (doom-modules)))
(format (format
(concat "- OS: %s (%s)\n" (concat "- OS: %s (%s)\n"
"- Emacs: %s (%s)\n" "- Emacs: %s (%s)\n"
@ -47,7 +48,7 @@ ready to be pasted in a bug report on github."
(insert (format "%s" system-type))) (insert (format "%s" system-type)))
(string-trim (buffer-string)))) (string-trim (buffer-string))))
(or (cl-loop with cat = nil (or (cl-loop with cat = nil
for key being the hash-keys of (doom-modules) for key being the hash-keys of doom-modules
if (or (not cat) (not (eq cat (car key)))) if (or (not cat) (not (eq cat (car key))))
do (setq cat (car key)) and collect cat do (setq cat (car key)) and collect cat
else collect else collect