From e290b1006072cd2ee4578b1c4e2c737c78c1675e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kjartan=20=C3=93li=20=C3=81g=C3=BAstsson?= Date: Wed, 21 Apr 2021 19:42:26 +0000 Subject: [PATCH] Replace function aliases with their real names (#14688) `first` and `list-length` are aliases for `car` and `cl-list-length` respectively. Using these aliases causes emacs to error with a `symbol's function definition is void` error, but using their real names causes no error. Replaced them with `car` and `length`. --- layers/+window-management/exwm/funcs.el | 2 +- layers/+window-management/exwm/packages.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/layers/+window-management/exwm/funcs.el b/layers/+window-management/exwm/funcs.el index 0cfeb9f0f..fde440d04 100644 --- a/layers/+window-management/exwm/funcs.el +++ b/layers/+window-management/exwm/funcs.el @@ -58,4 +58,4 @@ Can show completions at point for COMMAND using helm" ;; Other utilities (defun exwm//flatenum (i ls) - (if ls (cons i (cons (first ls) (exwm//flatenum (1+ i) (cdr ls)))) (list))) + (if ls (cons i (cons (car ls) (exwm//flatenum (1+ i) (cdr ls)))) (list))) diff --git a/layers/+window-management/exwm/packages.el b/layers/+window-management/exwm/packages.el index c7bb3c0ae..397fd3359 100644 --- a/layers/+window-management/exwm/packages.el +++ b/layers/+window-management/exwm/packages.el @@ -71,8 +71,8 @@ ;; At the user's option, begin with even more workspaces (setq exwm-workspace-number (if exwm-workspace-number - (max exwm-workspace-number (list-length exwm--randr-displays)) - (list-length exwm--randr-displays))) + (max exwm-workspace-number (length exwm--randr-displays)) + (length exwm--randr-displays))) ;; The first workspaces will match the order in RandR (setq exwm-randr-workspace-output-plist (exwm//flatenum 0 exwm--randr-displays))