From c078f0452666e4d7a03d234393ccec7210a86642 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 23 Dec 2019 17:30:37 +0000 Subject: Change &keys -> &key in cl-defun These were latent bugs. --- configs/shared/.emacs.d/wpc/chrome.el | 2 +- configs/shared/.emacs.d/wpc/iso.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'configs/shared/.emacs.d/wpc') diff --git a/configs/shared/.emacs.d/wpc/chrome.el b/configs/shared/.emacs.d/wpc/chrome.el index a27c9dd3967f..4f535ebbad5a 100644 --- a/configs/shared/.emacs.d/wpc/chrome.el +++ b/configs/shared/.emacs.d/wpc/chrome.el @@ -47,7 +47,7 @@ chrome/open-urls)) ;; TODO: Support optional kwargs. -(cl-defun chrome/open-url (url &keys new-window?) +(cl-defun chrome/open-url (url &key new-window?) "Opens `URL' in google-chrome. Will open without toolbars if APP-MODE? is t." (shell-command (s-concat diff --git a/configs/shared/.emacs.d/wpc/iso.el b/configs/shared/.emacs.d/wpc/iso.el index 1691a0daaad6..c9ce4a48fc71 100644 --- a/configs/shared/.emacs.d/wpc/iso.el +++ b/configs/shared/.emacs.d/wpc/iso.el @@ -79,7 +79,7 @@ (iso/as-to #'symbol-name) ) -(cl-defun iso/new (x &keys to) +(cl-defun iso/new (x &key to) "Create a new isomorphism of X mapping to TO." (let ((from (iso/classify x))) (prelude/assert (iso/exists? to from)) -- cgit 1.4.1