Update smartparens package

elpa/smartparens-20161014.323/smartparens-autoloads.el

@@ -3,8 +3,8 @@
 ;;; Code:
 (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
 
-;;;### (autoloads nil "smartparens" "smartparens.el" (22523 34125
+;;;### (autoloads nil "smartparens" "smartparens.el" (22528 49222
-;;;;;;  532790 226000))
+;;;;;;  858279 896000))
 ;;; Generated autoloads from smartparens.el
 
 (autoload 'sp-cheat-sheet "smartparens" "\
@@ -185,8 +185,8 @@ Turn off `show-smartparens-mode'.
 ;;;;;;  "smartparens-ess.el" "smartparens-haskell.el" "smartparens-html.el"
 ;;;;;;  "smartparens-latex.el" "smartparens-lua.el" "smartparens-pkg.el"
 ;;;;;;  "smartparens-python.el" "smartparens-racket.el" "smartparens-ruby.el"
-;;;;;;  "smartparens-rust.el" "smartparens-scala.el") (22523 34125
+;;;;;;  "smartparens-rust.el" "smartparens-scala.el") (22528 49222
-;;;;;;  564790 380000))
+;;;;;;  894279 852000))
 
 ;;;***
 

elpa/smartparens-20161014.323/smartparens-pkg.el

@@ -1,4 +1,4 @@
-(define-package "smartparens" "20161009.858" "Automatic insertion, wrapping and paredit-like navigation with user defined pairs."
+(define-package "smartparens" "20161014.323" "Automatic insertion, wrapping and paredit-like navigation with user defined pairs."
   '((dash "2.12.1")
     (cl-lib "0.3")))
 ;; Local Variables:

elpa/smartparens-20161014.323/smartparens.el

@@ -1335,10 +1335,6 @@ than once should wrap them all in sp--with-case-sensitive."
   "Checks to see if the current `evil-state' is in visual mode."
   (and (fboundp 'evil-visual-state-p) (evil-visual-state-p)))
 
-(defun sp--reverse-string (str)
-  "Reverse the string STR."
-  (concat (reverse (append str nil))))
-
 (defun sp-point-in-blank-line (&optional p)
   "Return non-nil if line at point is blank (whitespace only).
 
@@ -1440,13 +1436,6 @@ TODO: fix this!"
      ((string-match-p "SPC" original) " ")
      (t original))))
 
-(defun sp--split-string (string by)
-  "Split STRING on BY.  This simply calls `split-string' and if it
-returns a list of length one, empty string is inserted to the
-beginning."
-  (let ((sp (split-string string by)))
-    (if (not (cdr sp)) (cons "" sp) sp)))
-
 ;; see https://github.com/Fuco1/smartparens/issues/125#issuecomment-20356176
 (defun sp--current-indentation ()
   "Get the indentation offset of the current line."
@@ -2973,9 +2962,6 @@ delimiter for any pair allowed in current context."
 (cl-defun sp--get-stringlike-regexp (&optional (pair-list (sp--get-allowed-stringlike-list)))
   (regexp-opt (--map (car it) pair-list)))
 
-(defun sp-pair-is-stringlike-p (delim)
-  (--first (equal delim (car it)) (sp--get-allowed-stringlike-list)))
-
 (defun sp--get-last-wraped-region (beg end open close)
   "Return `sp-get-sexp' style plist about the last wrapped region.
 
@@ -3250,11 +3236,6 @@ include separate pair node."
             (append (list nil second-action nil first-action)
                     previous-undo-actions)))))
 
-(defun sp--string-empty-p (delimeter)
-  "Return t if point is inside an empty string."
-  (and (equal (char-after (1+ (point))) delimeter)
-       (equal (char-after (- (point) 2)) delimeter)))
-
 ;; TODO: remove ACTION argument and make the selection process more
 ;; unified (see also sp--pair-to-wrap which depends on buffer state
 ;; among other things)
@@ -7895,7 +7876,7 @@ delimiter enclosing this sexp."
      ((sp-point-in-empty-string pos)))))
 
 (defun sp-point-in-empty-string (&optional pos)
-  "Return non-nil if point is in empty sexp or string.
+  "Return non-nil if point is in empty string.
 
 The return value is actually cons pair of opening and closing
 string delimiter enclosing this string."
@@ -7908,16 +7889,6 @@ string delimiter enclosing this string."
              (c (char-to-string (if (eq syntax t) (following-char) syntax))))
         (cons c c)))))
 
-(defun sp-zap-syntax (syntax &optional back)
-  "Delete characters forward until they match syntax class SYNTAX.
-
-If BACK is non-nil, delete backward."
-  (let ((p (point)))
-    (if back
-        (skip-syntax-backward syntax)
-      (skip-syntax-forward syntax))
-    (delete-region p (point))))
-
 (defun sp--use-subword ()
   "Return non-nil if word killing commands should kill subwords.
 This is the case if `subword-mode' is enabled and