mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change &keys -> &key in cl-defun

Browse source 
These were latent bugs.
This commit is contained in:
William Carroll 2019-12-23 17:30:37 +00:00
parent 15d889fa0e
commit c078f04526
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
configs/shared/.emacs.d/wpc/chrome.el
View file

@ -47,7 +47,7 @@
chrome/open-urls)) chrome/open-urls))
;; TODO: Support optional kwargs. ;; 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. "Opens `URL' in google-chrome.
Will open without toolbars if APP-MODE? is t." Will open without toolbars if APP-MODE? is t."
(shell-command (s-concat (shell-command (s-concat

2
configs/shared/.emacs.d/wpc/iso.el
View file

@ -79,7 +79,7 @@
(iso/as-to #'symbol-name) (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." "Create a new isomorphism of X mapping to TO."
(let ((from (iso/classify x))) (let ((from (iso/classify x)))
(prelude/assert (iso/exists? to from)) (prelude/assert (iso/exists? to from))