From 4954a18753bc7a9a30097bfc2cb36aca495935a1 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Fri, 31 Oct 2014 00:03:17 -0400 Subject: *Vastly* simplify default arguments function --- stack-core.el | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'stack-core.el') diff --git a/stack-core.el b/stack-core.el index 93eafda..3dd1fb5 100644 --- a/stack-core.el +++ b/stack-core.el @@ -96,16 +96,8 @@ a string, just return it." (defun stack-core-get-default-keyword-arguments (method) "Gets the correct keyword arguments for METHOD." - (let ((entry - (car - (delq - nil - (mapcar (lambda (pair) - (if (equal method (car pair)) - (cdr pair))) - stack-core-default-keyword-arguments-alist))))) - (if entry entry - (cdr (assoc t stack-core-default-keyword-arguments-alist))))) + (let ((entry (assoc method stack-core-default-keyword-arguments-alist))) + (cdr (or entry (assoc t stack-core-default-keyword-arguments-alist))))) ;;; @todo stack-core-change-default-keyword-arguments ;;; (method new-keyword-arguments) -- cgit v1.2.3