Update smartparens package

This commit is contained in:
Gergely Polonkai 2016-10-14 13:38:15 +02:00
parent 45c515dab9
commit 68ede30310
15 changed files with 6 additions and 35 deletions

View File

@ -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
;;;;;; 532790 226000))
;;;### (autoloads nil "smartparens" "smartparens.el" (22528 49222
;;;;;; 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
;;;;;; 564790 380000))
;;;;;; "smartparens-rust.el" "smartparens-scala.el") (22528 49222
;;;;;; 894279 852000))
;;;***

View File

@ -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:

View File

@ -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