[elpa] externals/setup 15b8e39: Readd and obsolete setup-ensure-kbd and -function

[ELPA Syncer]

branch: externals/setup
commit 15b8e3934b11a360b70813ea1a5a4b7c1f9fe08b
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Readd and obsolete setup-ensure-kbd and -function
    
    To avoid issues with backwards incompatibility, these functions will
    still be distributed but their usage is not advised.
---
 setup.el | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/setup.el b/setup.el
index 5b83b6b..9f310d4 100644
--- a/setup.el
+++ b/setup.el
@@ -48,7 +48,7 @@
 ;; - Revert the indentation spec change for `setup-define'
 ;; - Add :bind-into macro
 ;; - Add :ensure key to `setup-define' to replace
-;;   setup-ensure-... functions
+;;   the deprecated setup-ensure-... functions
 ;;
 ;;;; Version 1.1.0:
 ;;
@@ -615,6 +615,27 @@ yourself."
   :after-loaded t
   :indent 0)
 
+
+;;; Obsoleted code
+
+(defun setup-ensure-kbd (sexp)
+  "Attempt to return SEXP as a key binding expression."
+  (cond ((stringp sexp) (kbd sexp))
+        ((symbolp sexp) `(kbd ,sexp))
+        (sexp)))
+(make-obsolete 'setup-ensure-kbd "Use :ensure keyword instead" "1.2.0")
+
+(defun setup-ensure-function (sexp)
+  "Attempt to return SEXP as a quoted function name."
+  (cond ((eq (car-safe sexp) 'function)
+         sexp)
+        ((eq (car-safe sexp) 'quote)
+         `#',(cadr sexp))
+        ((symbolp sexp)
+         `#',sexp)
+        (sexp)))
+(make-obsolete 'setup-ensure-function "Use :ensure keyword instead" "1.2.0")
+
 (provide 'setup)
 
 ;;; setup.el ends here