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

refactor(lib): use num-processors

Browse Source 
This C function was introduced in Emacs 28.1.
This commit is contained in:
Henrik Lissner
2022-09-08 13:35:14 +02:00
parent cd269753cf
commit 6e8de0bd89
1 changed files with 25 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/lib/system.el
View File

@ -83,6 +83,8 @@
"Return the max number of processing units on this system. "Return the max number of processing units on this system.
Tries to be portable. Returns 1 if cannot be determined." Tries to be portable. Returns 1 if cannot be determined."
(with-memoization (get 'doom-system-cpus 'cached-value) (with-memoization (get 'doom-system-cpus 'cached-value)
(if (fboundp 'num-processors)
(num-processors) ; added in Emacs 28.1
(let ((cpus (let ((cpus
(cond ((fboundp 'w32-get-nproc) (cond ((fboundp 'w32-get-nproc)
(w32-get-nproc)) (w32-get-nproc))
@ -105,7 +107,7 @@ Tries to be portable. Returns 1 if cannot be determined."
(string-to-number (cdr cpus)) (string-to-number (cdr cpus))
(user-error "Failed to look up number of processors, because:\n\n%s" (user-error "Failed to look up number of processors, because:\n\n%s"
(cdr cpus))))) (cdr cpus)))))
1))))) 1))))))
(provide 'doom-lib '(system)) (provide 'doom-lib '(system))
;;; system.el ends here ;;; system.el ends here