diff options
-rw-r--r-- | stack-core.el | 12 |
1 files changed, 2 insertions, 10 deletions
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) |