New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Error (use-package): smartparens :config: Symbol’s function definition is void: wrap #8500

Closed
TheBaronHimself opened this Issue Mar 11, 2017 · 16 comments

Comments

Projects
None yet
10 participants
@TheBaronHimself

TheBaronHimself commented Mar 11, 2017

Hello folks,

I'm not sure whether this is a bug or something I'm doing wrong, but all of a sudden I'm getting the following error message on startup.

Error (use-package): smartparens :config: Symbol’s function definition is void: wrap

I'm running Emacs 25.1 + latest Spacemacs on macOS/OS X 10.11.6.

I already reinstalled emacs and spacemacs entirely without any of my old configuration, but the error persists.

Any ideas?

@sbko

This comment has been minimized.

Show comment
Hide comment
@sbko

sbko Mar 11, 2017

Same issue Emacs 25.1.1, latest Spacemacs on Arch Linux

sbko commented Mar 11, 2017

Same issue Emacs 25.1.1, latest Spacemacs on Arch Linux

@simonpp

This comment has been minimized.

Show comment
Hide comment
@simonpp

simonpp Mar 11, 2017

Same here. Issue seems to be specific to spacemacs, since it does not happen with standard emacs. Downgrading to smartparens-20170303.346 fixes the problem for the moment.

simonpp commented Mar 11, 2017

Same here. Issue seems to be specific to spacemacs, since it does not happen with standard emacs. Downgrading to smartparens-20170303.346 fixes the problem for the moment.

@bmag

This comment has been minimized.

Show comment
Hide comment
@bmag

bmag Mar 11, 2017

Collaborator

Backtrace? From what I'm seeing the latest Smartparens is failing its own tests, btw.

Collaborator

bmag commented Mar 11, 2017

Backtrace? From what I'm seeing the latest Smartparens is failing its own tests, btw.

@simonpp

This comment has been minimized.

Show comment
Hide comment
@simonpp

simonpp Mar 12, 2017

Thank you for the link. But it seems to work with (plain) emacs 25.1.1.

Backtrace is the following:

Debugger entered--Lisp error: (void-function wrap)
  (wrap insert autoskip navigate)
  eval((wrap insert autoskip navigate))
  (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg)))
  (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg)))))
  (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t))
  (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ((list (cdr global-list)) (it-index 0)) (while list (let (...) (if ... ...)) (setq it-index (1+ it-index)) (setq list (cdr list)))) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval ...) (sp-get-pair-definition open t ...)) (progn (plist-put pair ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote (&optional arg)) (quote (interactive "P")) (list (quote sp-wrap-with-pair) open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote (interactive)) (list (quote sp-insert-pair) open))))))
  (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ((list ...) (it-index 0)) (while list (let ... ...) (setq it-index ...) (setq list ...))) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons ... actions) (cons ... when) (cons ... unless) (cons ... pre-handlers) (cons ... post-handlers)))) (while --dolist-tail-- (let ((arg ...)) (if (or ... ...) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote (&optional arg)) (quote (interactive "P")) (list (quote sp-wrap-with-pair) open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote (interactive)) (list (quote sp-insert-pair) open)))))) (sp--update-local-pairs-everywhere) sp-pairs)
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert)" (car --cl-keys--)))))) (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let (... ...) (while list ... ... ...)) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list ... ... ... ... ...))) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote ...) (quote ...) (list ... open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote ...) (list ... open)))))) (sp--update-local-pairs-everywhere) sp-pairs))
  (let* ((trigger (car (cdr (plist-member --cl-rest-- (quote :trigger))))) (actions (car (cdr (or (plist-member --cl-rest-- (quote :actions)) (quote (nil ...)))))) (when (car (cdr (plist-member --cl-rest-- (quote :when))))) (unless (car (cdr (plist-member --cl-rest-- (quote :unless))))) (pre-handlers (car (cdr (plist-member --cl-rest-- (quote :pre-handlers))))) (post-handlers (car (cdr (plist-member --cl-rest-- (quote :post-handlers))))) (wrap (car (cdr (plist-member --cl-rest-- (quote :wrap))))) (bind (car (cdr (plist-member --cl-rest-- (quote :bind))))) (insert (car (cdr (plist-member --cl-rest-- (quote :insert)))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert)" (car --cl-keys--)))))) (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ... ...) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro ...) (list ... ... ... ...)))) (if insert (progn (global-set-key (kbd insert) (list ... nil ... ...))))) (sp--update-local-pairs-everywhere) sp-pairs)))
  sp-pair("{" nil :post-handlers (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))
  (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis)))))
  (condition-case err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error))))
  (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error))))
  (progn (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote ...) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error)))))
  (if (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (progn (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq ... spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote ...)) (setq spacemacs--diminished-minor-modes (cons ... spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error))))))
  (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote ...) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error)))))
  (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq ... spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote ...)) (setq spacemacs--diminished-minor-modes (cons ... spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error))))) t)
  (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" ...) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell ...)) (if cell (setcdr cell ...) (setq spacemacs--diminished-minor-modes ...))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add ...))) (sp-pair "[" nil :post-handlers (quote (:add ...))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" ...)))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" ...) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" ...) :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))
  (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let (...) (if cell ... ...)) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote ...)) (sp-pair "[" nil :post-handlers (quote ...)) (if dotspacemacs-smart-closing-parenthesis (progn ...))) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning ... ... :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens")))))
  (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore ...))) (condition-case-unless-debug err (progn (require ...) (let ... ...) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook ... ...) (show-smartparens-global-mode 1) (sp-local-pair ... "'" nil :actions nil) (sp-pair "{" nil :post-handlers ...) (sp-pair "[" nil :post-handlers ...) (if dotspacemacs-smart-closing-parenthesis ...)) (error (ignore ...))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore ...)))) t) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))()
  eval-after-load(smartparens (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let (...) (if cell ... ...)) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote ...)) (sp-pair "[" nil :post-handlers (quote ...)) (if dotspacemacs-smart-closing-parenthesis (progn ...))) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning ... ... :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))
  (progn (unless (fboundp (quote sp-split-sexp)) (autoload (function sp-split-sexp) "smartparens" nil t)) (unless (fboundp (quote sp-newline)) (autoload (function sp-newline) "smartparens" nil t)) (unless (fboundp (quote sp-up-sexp)) (autoload (function sp-up-sexp) "smartparens" nil t)) (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-init-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:init hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (setq sp-show-pair-delay 0.2 sp-show-pair-from-inside t sp-cancel-autoskip-on-backward-movement nil sp-highlight-pair-overlay nil sp-highlight-wrap-overlay nil sp-highlight-wrap-tag-overlay nil) (spacemacs/add-to-hooks (if dotspacemacs-smartparens-strict-mode (quote smartparens-strict-mode) (quote smartparens-mode)) (quote (prog-mode-hook comint-mode-hook))) (add-hook (quote minibuffer-setup-hook) (quote spacemacs//conditionally-enable-smartparens-mode)) (progn (setq spacemacs-toggles (cons (append ... ... ...) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens) (function (lambda nil "Toggle smartparens on and off." ... ...))) (defalias (quote spacemacs/toggle-smartparens-p) (function (lambda nil "Check if smartparens is on." ...))) (defalias (quote spacemacs/toggle-smartparens-on) (function (lambda nil "Toggle smartparens on." ... ...))) (defalias (quote spacemacs/toggle-smartparens-off) (function (lambda nil "Toggle smartparens off." ... ...))) (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (spacemacs/set-leader-keys key ...) (setq --dolist-tail-- ...)))) (progn (setq spacemacs-toggles (cons (append ... ... ...) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens-globally) (function (lambda nil "Toggle smartparens-globally on and off." ... ...))) (defalias (quote spacemacs/toggle-smartparens-globally-p) (function (lambda nil "Check if smartparens-globally is on." ...))) (defalias (quote spacemacs/toggle-smartparens-globally-on) (function (lambda nil "Toggle smartparens-globally on." ... ...))) (defalias (quote spacemacs/toggle-smartparens-globally-off) (function (lambda nil "Toggle smartparens-globally off." ... ...))) (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (spacemacs/set-leader-keys key ...) (setq --dolist-tail-- ...)))) (spacemacs/set-leader-keys "js" (quote sp-split-sexp) "jn" (quote sp-newline))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":init" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-init-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:init hook" (error-message-string err)) :error))))) (eval-after-load (quote smartparens) (quote (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err ... ...) (condition-case-unless-debug err ... ...) (condition-case-unless-debug err ... ...)) t) (let ((elapsed ...)) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))))
  (use-package smartparens :defer t :commands (sp-split-sexp sp-newline sp-up-sexp) :init (progn (setq sp-show-pair-delay 0.2 sp-show-pair-from-inside t sp-cancel-autoskip-on-backward-movement nil sp-highlight-pair-overlay nil sp-highlight-wrap-overlay nil sp-highlight-wrap-tag-overlay nil) (spacemacs/add-to-hooks (if dotspacemacs-smartparens-strict-mode (quote smartparens-strict-mode) (quote smartparens-mode)) (quote (prog-mode-hook comint-mode-hook))) (add-hook (quote minibuffer-setup-hook) (quote spacemacs//conditionally-enable-smartparens-mode)) (progn (setq spacemacs-toggles (cons (append (quote (smartparens)) (quote (:function spacemacs/toggle-smartparens :predicate spacemacs/toggle-smartparens-p)) (quote (:mode smartparens-mode :documentation "Enable smartparens." :evil-leader "tp"))) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens) (function (lambda nil "Toggle smartparens on and off." (interactive) (if (or ... ...) (if ... ... ... ...) (message "This toggle is not supported."))))) (defalias (quote spacemacs/toggle-smartparens-p) (function (lambda nil "Check if smartparens is on." (and (or ... ...) smartparens-mode)))) (defalias (quote spacemacs/toggle-smartparens-on) (function (lambda nil "Toggle smartparens on." (interactive) (if (spacemacs/toggle-smartparens-p) nil (spacemacs/toggle-smartparens))))) (defalias (quote spacemacs/toggle-smartparens-off) (function (lambda nil "Toggle smartparens off." (interactive) (if (spacemacs/toggle-smartparens-p) (progn ...))))) (let ((--dolist-tail-- (quote ("tp"))) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (spacemacs/set-leader-keys key (quote spacemacs/toggle-smartparens)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (progn (setq spacemacs-toggles (cons (append (quote (smartparens-globally)) (quote (:function spacemacs/toggle-smartparens-globally :predicate spacemacs/toggle-smartparens-globally-p)) (quote (:mode smartparens-mode :documentation "Enable smartparens globally." :evil-leader "t C-p"))) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens-globally) (function (lambda nil "Toggle smartparens-globally on and off." (interactive) (if (or ... ...) (if ... ... ... ...) (message "This toggle is not supported."))))) (defalias (quote spacemacs/toggle-smartparens-globally-p) (function (lambda nil "Check if smartparens-globally is on." (and (or ... ...) smartparens-mode)))) (defalias (quote spacemacs/toggle-smartparens-globally-on) (function (lambda nil "Toggle smartparens-globally on." (interactive) (if (spacemacs/toggle-smartparens-globally-p) nil (spacemacs/toggle-smartparens-globally))))) (defalias (quote spacemacs/toggle-smartparens-globally-off) (function (lambda nil "Toggle smartparens-globally off." (interactive) (if (spacemacs/toggle-smartparens-globally-p) (progn ...))))) (let ((--dolist-tail-- (quote ("t C-p"))) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (spacemacs/set-leader-keys key (quote spacemacs/toggle-smartparens-globally)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (spacemacs/set-leader-keys "js" (quote sp-split-sexp) "jn" (quote sp-newline))) :config (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))))
  spacemacs-editing/init-smartparens()
  funcall(spacemacs-editing/init-smartparens)
  (let* ((pkg-name (eieio-oref pkg (quote :name))) (owner (car (eieio-oref pkg (quote :owners))))) (spacemacs-buffer/message (format "Configuring %S..." pkg-name)) (mapc (function (lambda (layer) (if (configuration-layer/layer-usedp layer) (progn (if (not ...) (spacemacs-buffer/message ...) (spacemacs-buffer/message ...) (condition-case err ... ...)))))) (eieio-oref pkg (quote :pre-layers))) (spacemacs-buffer/message (format "  -> init (%S)..." owner)) (funcall (intern (format "%S/init-%S" owner pkg-name))) (mapc (function (lambda (layer) (if (configuration-layer/layer-usedp layer) (progn (if (not ...) (spacemacs-buffer/message ...) (spacemacs-buffer/message ...) (condition-case err ... ...)))))) (eieio-oref pkg (quote :post-layers))))
  configuration-layer//configure-package([eieio-class-tag--cfgl-package smartparens nil (spacemacs-editing) nil (python emacs-lisp auto-completion) elpa t nil nil nil nil])
  (cond ((eq (quote dotfile) (car (eieio-oref pkg (quote :owners)))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))
  (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg (quote :location)))) (cond ((stringp location) (if (file-directory-p location) (setq load-path (cons ... load-path)) (configuration-layer//warning "Location path for package %S does not exists (value: %s)." pkg location))) ((and (eq (quote local) location) (eq (quote dotfile) (car ...))) (setq load-path (cons (file-name-as-directory ...) load-path))) ((eq (quote local) location) (let* ((owner ...) (dir ...)) (setq load-path (cons ... load-path)))))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car (eieio-oref pkg (quote :owners)))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))))
  (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg (quote :location)))) (cond ((stringp location) (if (file-directory-p location) (setq load-path ...) (configuration-layer//warning "Location path for package %S does not exists (value: %s)." pkg location))) ((and (eq ... location) (eq ... ...)) (setq load-path (cons ... load-path))) ((eq (quote local) location) (let* (... ...) (setq load-path ...))))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car (eieio-oref pkg ...))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg))))))
  (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (spacemacs-buffer/loading-animation) (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg ...))) (cond ((stringp location) (if ... ... ...)) ((and ... ...) (setq load-path ...)) ((eq ... location) (let* ... ...)))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car ...)) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- packages) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (spacemacs-buffer/loading-animation) (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg ...))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location ...)) (cond (... ...) (... ...) (... ...))) (if (memq (eieio-oref pkg ...) (quote ...)) nil (configuration-layer//activate-package pkg-name)) (cond ((eq ... ...) (spacemacs-buffer/message ...)) (t (configuration-layer//configure-package pkg)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  configuration-layer//configure-packages-2((abbrev ac-ispell ace-jump-helm-line ace-link ace-window adaptive-wrap aggressive-indent anaconda-mode ansi-colors archive-mode auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bookmark bracketed-paste centered-buffer-mode centered-cursor clean-aindent-mode column-enforce-mode company company-anaconda company-quickhelp company-statistics conf-mode cython-mode default-helm-config default-ivy-config default-org-config define-word desktop diff-hl diff-mode dired dired-x doc-view dumb-jump ediff eldoc electric-indent-mode elisp-slime-nav emacs-lisp eval-sexp-fu evil-anzu evil-args evil-ediff evil-escape evil-exchange evil-iedit-state ...))
  configuration-layer//configure-packages((abbrev ac-ispell ace-jump-helm-line ace-link ace-window adaptive-wrap aggressive-indent anaconda-mode ansi-colors archive-mode async auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bind-key bind-map bookmark bracketed-paste centered-buffer-mode centered-cursor clean-aindent-mode column-enforce-mode company company-anaconda company-quickhelp company-statistics conf-mode cython-mode default-helm-config default-ivy-config default-org-config define-word desktop diff-hl diff-mode diminish dired dired-x doc-view dumb-jump ediff eldoc electric-indent-mode elisp-slime-nav emacs-lisp eval-sexp-fu evil evil-anzu ...))
  configuration-layer/sync()
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (message (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (load-file (concat (file-name-directory load-file-name) "core/core-load-paths.el")) (require (quote core-spacemacs)) (spacemacs/init) (spacemacs/maybe-install-dotfile) (configuration-layer/sync) (spacemacs-buffer/display-info-box) (spacemacs/setup-startup-hook) (require (quote server)) (if (server-running-p) nil (server-start)))
  eval-buffer(#<buffer  *load*> nil "/u/simon/.emacs.d/init.el" nil t)  ; Reading at buffer position 1302
  load-with-code-conversion("/u/simon/.emacs.d/init.el" "/u/simon/.emacs.d/init.el" t t)
  load("/u/simon/.emacs.d/init" t t)
  #[0 "�\205\266�	\306=\203��\307�\310Q\202?�	\311=\204��\307�\312Q\202?�\313\307\314\315#\203*�\316\202?�\313\307\314\317#\203>�\320\321\322!D\nB�\323\202?�\316\324�\325�\324\211#\210�\324=\203e�\326\327\330\307�\331Q!\"\325�\324\211#\210�\324=\203d���\210�\203\247�\332�!\333\232\203\247�\334�!\211\335P\336�!\203\201�\211\202\214�\336�!\203\213��\202\214�\314\262��\203\245�\337��\"\203\243�\340\341��#\210\342\343!\210��\266�\f?\205\264�\314�\325\344\324\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" initialization format-message "`_emacs' init file is deprecated, please use `.emacs'" "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7]()
  command-line()
  normal-top-level()

simonpp commented Mar 12, 2017

Thank you for the link. But it seems to work with (plain) emacs 25.1.1.

Backtrace is the following:

Debugger entered--Lisp error: (void-function wrap)
  (wrap insert autoskip navigate)
  eval((wrap insert autoskip navigate))
  (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg)))
  (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg)))))
  (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval (cdr arg))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval (cdr arg)) (sp-get-pair-definition open t (car arg))) (progn (plist-put pair (car arg) (eval ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t))
  (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ((list (cdr global-list)) (it-index 0)) (while list (let (...) (if ... ...)) (setq it-index (1+ it-index)) (setq list (cdr list)))) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons (quote :actions) actions) (cons (quote :when) when) (cons (quote :unless) unless) (cons (quote :pre-handlers) pre-handlers) (cons (quote :post-handlers) post-handlers)))) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (or (eval ...) (sp-get-pair-definition open t ...)) (progn (plist-put pair ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote (&optional arg)) (quote (interactive "P")) (list (quote sp-wrap-with-pair) open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote (interactive)) (list (quote sp-insert-pair) open))))))
  (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ((list ...) (it-index 0)) (while list (let ... ...) (setq it-index ...) (setq list ...))) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list (cons ... actions) (cons ... when) (cons ... unless) (cons ... pre-handlers) (cons ... post-handlers)))) (while --dolist-tail-- (let ((arg ...)) (if (or ... ...) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote (&optional arg)) (quote (interactive "P")) (list (quote sp-wrap-with-pair) open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote (interactive)) (list (quote sp-insert-pair) open)))))) (sp--update-local-pairs-everywhere) sp-pairs)
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert)" (car --cl-keys--)))))) (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let (... ...) (while list ... ... ...)) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- (list ... ... ... ... ...))) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro (or wrap bind)) (list (quote lambda) (quote ...) (quote ...) (list ... open))))) (if insert (progn (global-set-key (kbd insert) (list (quote lambda) nil (quote ...) (list ... open)))))) (sp--update-local-pairs-everywhere) sp-pairs))
  (let* ((trigger (car (cdr (plist-member --cl-rest-- (quote :trigger))))) (actions (car (cdr (or (plist-member --cl-rest-- (quote :actions)) (quote (nil ...)))))) (when (car (cdr (plist-member --cl-rest-- (quote :when))))) (unless (car (cdr (plist-member --cl-rest-- (quote :unless))))) (pre-handlers (car (cdr (plist-member --cl-rest-- (quote :pre-handlers))))) (post-handlers (car (cdr (plist-member --cl-rest-- (quote :post-handlers))))) (wrap (car (cdr (plist-member --cl-rest-- (quote :wrap))))) (bind (car (cdr (plist-member --cl-rest-- (quote :bind))))) (insert (car (cdr (plist-member --cl-rest-- (quote :insert)))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote ...)) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:trigger :actions :when :unless :pre-handlers :post-handlers :wrap :bind :insert)" (car --cl-keys--)))))) (progn (if (eq actions :rem) (let ((global-list (assq t sp-pairs))) (setcdr global-list (let (result) (let ... ...) (nreverse result)))) (let ((pair nil)) (setq pair (plist-put pair :open open)) (if close (progn (plist-put pair :close close))) (if trigger (progn (plist-put pair :trigger trigger))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (sp--update-pair-list pair t)) (if (or wrap bind) (progn (global-set-key (read-kbd-macro ...) (list ... ... ... ...)))) (if insert (progn (global-set-key (kbd insert) (list ... nil ... ...))))) (sp--update-local-pairs-everywhere) sp-pairs)))
  sp-pair("{" nil :post-handlers (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))
  (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis)))))
  (condition-case err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error))))
  (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error))))
  (progn (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote ...) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error)))))
  (if (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (progn (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq ... spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote ...)) (setq spacemacs--diminished-minor-modes (cons ... spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error))))))
  (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote ...) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error)))))
  (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell (assq ... spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote ...)) (setq spacemacs--diminished-minor-modes (cons ... spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" (error-message-string err)) :error))))) t)
  (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:config hook" ...) :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let ((cell ...)) (if cell (setcdr cell ...) (setq spacemacs--diminished-minor-modes ...))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add ...))) (sp-pair "[" nil :post-handlers (quote (:add ...))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" ...)))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":config" ...) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:config hook" ...) :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))
  (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let (...) (if cell ... ...)) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote ...)) (sp-pair "[" nil :post-handlers (quote ...)) (if dotspacemacs-smart-closing-parenthesis (progn ...))) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning ... ... :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens")))))
  (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore ...))) (condition-case-unless-debug err (progn (require ...) (let ... ...) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook ... ...) (show-smartparens-global-mode 1) (sp-local-pair ... "'" nil :actions nil) (sp-pair "{" nil :post-handlers ...) (sp-pair "[" nil :post-handlers ...) (if dotspacemacs-smart-closing-parenthesis ...)) (error (ignore ...))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore ...)))) t) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))()
  eval-after-load(smartparens (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-config-hook)) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (progn (require (quote smartparens-config)) (let (...) (if cell ... ...)) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote ...)) (sp-pair "[" nil :post-handlers (quote ...)) (if dotspacemacs-smart-closing-parenthesis (progn ...))) (error (ignore (display-warning ... ... :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-config-hook)) (error (ignore (display-warning ... ... :error))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))
  (progn (unless (fboundp (quote sp-split-sexp)) (autoload (function sp-split-sexp) "smartparens" nil t)) (unless (fboundp (quote sp-newline)) (autoload (function sp-newline) "smartparens" nil t)) (unless (fboundp (quote sp-up-sexp)) (autoload (function sp-up-sexp) "smartparens" nil t)) (when (condition-case-unless-debug err (run-hook-with-args-until-failure (quote use-package--smartparens--pre-init-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "pre-:init hook" (error-message-string err)) :error)))) (condition-case-unless-debug err (progn (setq sp-show-pair-delay 0.2 sp-show-pair-from-inside t sp-cancel-autoskip-on-backward-movement nil sp-highlight-pair-overlay nil sp-highlight-wrap-overlay nil sp-highlight-wrap-tag-overlay nil) (spacemacs/add-to-hooks (if dotspacemacs-smartparens-strict-mode (quote smartparens-strict-mode) (quote smartparens-mode)) (quote (prog-mode-hook comint-mode-hook))) (add-hook (quote minibuffer-setup-hook) (quote spacemacs//conditionally-enable-smartparens-mode)) (progn (setq spacemacs-toggles (cons (append ... ... ...) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens) (function (lambda nil "Toggle smartparens on and off." ... ...))) (defalias (quote spacemacs/toggle-smartparens-p) (function (lambda nil "Check if smartparens is on." ...))) (defalias (quote spacemacs/toggle-smartparens-on) (function (lambda nil "Toggle smartparens on." ... ...))) (defalias (quote spacemacs/toggle-smartparens-off) (function (lambda nil "Toggle smartparens off." ... ...))) (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (spacemacs/set-leader-keys key ...) (setq --dolist-tail-- ...)))) (progn (setq spacemacs-toggles (cons (append ... ... ...) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens-globally) (function (lambda nil "Toggle smartparens-globally on and off." ... ...))) (defalias (quote spacemacs/toggle-smartparens-globally-p) (function (lambda nil "Check if smartparens-globally is on." ...))) (defalias (quote spacemacs/toggle-smartparens-globally-on) (function (lambda nil "Toggle smartparens-globally on." ... ...))) (defalias (quote spacemacs/toggle-smartparens-globally-off) (function (lambda nil "Toggle smartparens-globally off." ... ...))) (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (spacemacs/set-leader-keys key ...) (setq --dolist-tail-- ...)))) (spacemacs/set-leader-keys "js" (quote sp-split-sexp) "jn" (quote sp-newline))) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" ":init" (error-message-string err)) :error)))) (condition-case-unless-debug err (run-hooks (quote use-package--smartparens--post-init-hook)) (error (ignore (display-warning (quote use-package) (format "%s %s: %s" "smartparens" "post-:init hook" (error-message-string err)) :error))))) (eval-after-load (quote smartparens) (quote (let ((now (current-time))) (message "%s..." "Configuring package smartparens") (prog1 (progn (when (condition-case-unless-debug err ... ...) (condition-case-unless-debug err ... ...) (condition-case-unless-debug err ... ...)) t) (let ((elapsed ...)) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package smartparens" elapsed) (message "%s...done" "Configuring package smartparens"))))))))
  (use-package smartparens :defer t :commands (sp-split-sexp sp-newline sp-up-sexp) :init (progn (setq sp-show-pair-delay 0.2 sp-show-pair-from-inside t sp-cancel-autoskip-on-backward-movement nil sp-highlight-pair-overlay nil sp-highlight-wrap-overlay nil sp-highlight-wrap-tag-overlay nil) (spacemacs/add-to-hooks (if dotspacemacs-smartparens-strict-mode (quote smartparens-strict-mode) (quote smartparens-mode)) (quote (prog-mode-hook comint-mode-hook))) (add-hook (quote minibuffer-setup-hook) (quote spacemacs//conditionally-enable-smartparens-mode)) (progn (setq spacemacs-toggles (cons (append (quote (smartparens)) (quote (:function spacemacs/toggle-smartparens :predicate spacemacs/toggle-smartparens-p)) (quote (:mode smartparens-mode :documentation "Enable smartparens." :evil-leader "tp"))) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens) (function (lambda nil "Toggle smartparens on and off." (interactive) (if (or ... ...) (if ... ... ... ...) (message "This toggle is not supported."))))) (defalias (quote spacemacs/toggle-smartparens-p) (function (lambda nil "Check if smartparens is on." (and (or ... ...) smartparens-mode)))) (defalias (quote spacemacs/toggle-smartparens-on) (function (lambda nil "Toggle smartparens on." (interactive) (if (spacemacs/toggle-smartparens-p) nil (spacemacs/toggle-smartparens))))) (defalias (quote spacemacs/toggle-smartparens-off) (function (lambda nil "Toggle smartparens off." (interactive) (if (spacemacs/toggle-smartparens-p) (progn ...))))) (let ((--dolist-tail-- (quote ("tp"))) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (spacemacs/set-leader-keys key (quote spacemacs/toggle-smartparens)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (progn (setq spacemacs-toggles (cons (append (quote (smartparens-globally)) (quote (:function spacemacs/toggle-smartparens-globally :predicate spacemacs/toggle-smartparens-globally-p)) (quote (:mode smartparens-mode :documentation "Enable smartparens globally." :evil-leader "t C-p"))) spacemacs-toggles)) (defalias (quote spacemacs/toggle-smartparens-globally) (function (lambda nil "Toggle smartparens-globally on and off." (interactive) (if (or ... ...) (if ... ... ... ...) (message "This toggle is not supported."))))) (defalias (quote spacemacs/toggle-smartparens-globally-p) (function (lambda nil "Check if smartparens-globally is on." (and (or ... ...) smartparens-mode)))) (defalias (quote spacemacs/toggle-smartparens-globally-on) (function (lambda nil "Toggle smartparens-globally on." (interactive) (if (spacemacs/toggle-smartparens-globally-p) nil (spacemacs/toggle-smartparens-globally))))) (defalias (quote spacemacs/toggle-smartparens-globally-off) (function (lambda nil "Toggle smartparens-globally off." (interactive) (if (spacemacs/toggle-smartparens-globally-p) (progn ...))))) (let ((--dolist-tail-- (quote ("t C-p"))) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (spacemacs/set-leader-keys key (quote spacemacs/toggle-smartparens-globally)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (spacemacs/set-leader-keys "js" (quote sp-split-sexp) "jn" (quote sp-newline))) :config (progn (require (quote smartparens-config)) (let ((cell (assq (quote smartparens-mode) spacemacs--diminished-minor-modes))) (if cell (setcdr cell (quote (" ⓟ" " p"))) (setq spacemacs--diminished-minor-modes (cons (quote (smartparens-mode " ⓟ" " p")) spacemacs--diminished-minor-modes)))) (spacemacs//adaptive-smartparent-pair-overlay-face) (add-hook (quote spacemacs-post-theme-change-hook) (quote spacemacs//adaptive-smartparent-pair-overlay-face)) (show-smartparens-global-mode 1) (sp-local-pair (quote minibuffer-inactive-mode) "'" nil :actions nil) (sp-pair "{" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (sp-pair "[" nil :post-handlers (quote (:add (spacemacs/smartparens-pair-newline-and-indent "RET")))) (if dotspacemacs-smart-closing-parenthesis (progn (define-key evil-insert-state-map ")" (quote spacemacs/smart-closing-parenthesis))))))
  spacemacs-editing/init-smartparens()
  funcall(spacemacs-editing/init-smartparens)
  (let* ((pkg-name (eieio-oref pkg (quote :name))) (owner (car (eieio-oref pkg (quote :owners))))) (spacemacs-buffer/message (format "Configuring %S..." pkg-name)) (mapc (function (lambda (layer) (if (configuration-layer/layer-usedp layer) (progn (if (not ...) (spacemacs-buffer/message ...) (spacemacs-buffer/message ...) (condition-case err ... ...)))))) (eieio-oref pkg (quote :pre-layers))) (spacemacs-buffer/message (format "  -> init (%S)..." owner)) (funcall (intern (format "%S/init-%S" owner pkg-name))) (mapc (function (lambda (layer) (if (configuration-layer/layer-usedp layer) (progn (if (not ...) (spacemacs-buffer/message ...) (spacemacs-buffer/message ...) (condition-case err ... ...)))))) (eieio-oref pkg (quote :post-layers))))
  configuration-layer//configure-package([eieio-class-tag--cfgl-package smartparens nil (spacemacs-editing) nil (python emacs-lisp auto-completion) elpa t nil nil nil nil])
  (cond ((eq (quote dotfile) (car (eieio-oref pkg (quote :owners)))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))
  (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg (quote :location)))) (cond ((stringp location) (if (file-directory-p location) (setq load-path (cons ... load-path)) (configuration-layer//warning "Location path for package %S does not exists (value: %s)." pkg location))) ((and (eq (quote local) location) (eq (quote dotfile) (car ...))) (setq load-path (cons (file-name-as-directory ...) load-path))) ((eq (quote local) location) (let* ((owner ...) (dir ...)) (setq load-path (cons ... load-path)))))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car (eieio-oref pkg (quote :owners)))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))))
  (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg (quote :location)))) (cond ((stringp location) (if (file-directory-p location) (setq load-path ...) (configuration-layer//warning "Location path for package %S does not exists (value: %s)." pkg location))) ((and (eq ... location) (eq ... ...)) (setq load-path (cons ... load-path))) ((eq (quote local) location) (let* (... ...) (setq load-path ...))))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car (eieio-oref pkg ...))) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg))))))
  (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (spacemacs-buffer/loading-animation) (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg (quote :protected)))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location (eieio-oref pkg ...))) (cond ((stringp location) (if ... ... ...)) ((and ... ...) (setq load-path ...)) ((eq ... location) (let* ... ...)))) (if (memq (eieio-oref pkg (quote :location)) (quote (local site built-in))) nil (configuration-layer//activate-package pkg-name)) (cond ((eq (quote dotfile) (car ...)) (spacemacs-buffer/message (format "%S is configured in the dotfile." pkg-name))) (t (configuration-layer//configure-package pkg)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- packages) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail--)) (spacemacs-buffer/loading-animation) (let ((pkg (configuration-layer/get-package pkg-name))) (cond ((eieio-oref pkg (quote :lazy-install)) (spacemacs-buffer/message (format "%S ignored since it can be lazily installed." pkg-name))) ((and (eieio-oref pkg (quote :excluded)) (not (eieio-oref pkg ...))) (spacemacs-buffer/message (format "%S ignored since it has been excluded." pkg-name))) ((null (eieio-oref pkg (quote :owners))) (spacemacs-buffer/message (format "%S ignored since it has no owner layer." pkg-name))) ((not (cfgl-package-enabledp pkg t)) (spacemacs-buffer/message (format "%S is toggled off." pkg-name))) (t (let ((location ...)) (cond (... ...) (... ...) (... ...))) (if (memq (eieio-oref pkg ...) (quote ...)) nil (configuration-layer//activate-package pkg-name)) (cond ((eq ... ...) (spacemacs-buffer/message ...)) (t (configuration-layer//configure-package pkg)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  configuration-layer//configure-packages-2((abbrev ac-ispell ace-jump-helm-line ace-link ace-window adaptive-wrap aggressive-indent anaconda-mode ansi-colors archive-mode auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bookmark bracketed-paste centered-buffer-mode centered-cursor clean-aindent-mode column-enforce-mode company company-anaconda company-quickhelp company-statistics conf-mode cython-mode default-helm-config default-ivy-config default-org-config define-word desktop diff-hl diff-mode dired dired-x doc-view dumb-jump ediff eldoc electric-indent-mode elisp-slime-nav emacs-lisp eval-sexp-fu evil-anzu evil-args evil-ediff evil-escape evil-exchange evil-iedit-state ...))
  configuration-layer//configure-packages((abbrev ac-ispell ace-jump-helm-line ace-link ace-window adaptive-wrap aggressive-indent anaconda-mode ansi-colors archive-mode async auto-compile auto-complete auto-highlight-symbol auto-yasnippet avy bind-key bind-map bookmark bracketed-paste centered-buffer-mode centered-cursor clean-aindent-mode column-enforce-mode company company-anaconda company-quickhelp company-statistics conf-mode cython-mode default-helm-config default-ivy-config default-org-config define-word desktop diff-hl diff-mode diminish dired dired-x doc-view dumb-jump ediff eldoc electric-indent-mode elisp-slime-nav emacs-lisp eval-sexp-fu evil evil-anzu ...))
  configuration-layer/sync()
  (if (not (version<= spacemacs-emacs-min-version emacs-version)) (message (concat "Your version of Emacs (%s) is too old. " "Spacemacs requires Emacs version %s or above.") emacs-version spacemacs-emacs-min-version) (load-file (concat (file-name-directory load-file-name) "core/core-load-paths.el")) (require (quote core-spacemacs)) (spacemacs/init) (spacemacs/maybe-install-dotfile) (configuration-layer/sync) (spacemacs-buffer/display-info-box) (spacemacs/setup-startup-hook) (require (quote server)) (if (server-running-p) nil (server-start)))
  eval-buffer(#<buffer  *load*> nil "/u/simon/.emacs.d/init.el" nil t)  ; Reading at buffer position 1302
  load-with-code-conversion("/u/simon/.emacs.d/init.el" "/u/simon/.emacs.d/init.el" t t)
  load("/u/simon/.emacs.d/init" t t)
  #[0 "�\205\266�	\306=\203��\307�\310Q\202?�	\311=\204��\307�\312Q\202?�\313\307\314\315#\203*�\316\202?�\313\307\314\317#\203>�\320\321\322!D\nB�\323\202?�\316\324�\325�\324\211#\210�\324=\203e�\326\327\330\307�\331Q!\"\325�\324\211#\210�\324=\203d���\210�\203\247�\332�!\333\232\203\247�\334�!\211\335P\336�!\203\201�\211\202\214�\336�!\203\213��\202\214�\314\262��\203\245�\337��\"\203\243�\340\341��#\210\342\343!\210��\266�\f?\205\264�\314�\325\344\324\211#)\262�\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" initialization format-message "`_emacs' init file is deprecated, please use `.emacs'" "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7]()
  command-line()
  normal-top-level()

@wiredmind

This comment has been minimized.

Show comment
Hide comment
@wiredmind

wiredmind Mar 12, 2017

Same here. Blew everything away and started from scratch with same effect.

Same here. Blew everything away and started from scratch with same effect.

@andrewbanchich

This comment has been minimized.

Show comment
Hide comment
@andrewbanchich

andrewbanchich Mar 12, 2017

Same here. I removed everything and then reinstalled everything, even uninstalled and reinstalled emacs itself, and it's still giving this error. I did all of this about three times and I can't get it to go away.

Same here. I removed everything and then reinstalled everything, even uninstalled and reinstalled emacs itself, and it's still giving this error. I did all of this about three times and I can't get it to go away.

@chengyi818

This comment has been minimized.

Show comment
Hide comment
@chengyi818

chengyi818 Mar 12, 2017

Same here.I just add smartparens to dotspacemacs-excluded-packages,then errer temporarily disappear.
I know It's a trick method.waiting for root cause and true solution.

Same here.I just add smartparens to dotspacemacs-excluded-packages,then errer temporarily disappear.
I know It's a trick method.waiting for root cause and true solution.

@liuzhoou

This comment has been minimized.

Show comment
Hide comment
@liuzhoou

liuzhoou Mar 12, 2017

0.200.7@25.1.1 (spacemacs) (Kernel: x86_64 Linux 4.10.1-1-ARCH)

   dotspacemacs-excluded-packages '(smartparens)

0.200.7@25.1.1 (spacemacs) (Kernel: x86_64 Linux 4.10.1-1-ARCH)

   dotspacemacs-excluded-packages '(smartparens)
@bmag

This comment has been minimized.

Show comment
Hide comment
@bmag

bmag Mar 12, 2017

Collaborator

This is an issue in Smartparens upstream, caused by their recent move to lexical-bindings, see Fuco1/smartparens#719. To quote Fuco1: (source)

Nope, this is a different issue and I know exactly where it is :) I turned on lexical-binding today so there is going to be quite a lot of issues I haven't catched I'm sure.

Better stay away from master if you can't afford broken setup. But of course having these reports is awesome, so thanks for taking the hit for me :) Expect this to be fixed soon.

I don't think we're going to move away from Smartparens master (at least not on develop branch), but here is what you need to do to avoid this and any other bugs that Smartparens might have in the near future:

  • if you updated to a bugged smartparens version, perform a package rollback.
  • to avoid updating smartparens, add it to dotspacemacs-frozen-packages. You need to restart Spacemacs for the change to take effect, but afterwards you can update the rest of your packages without updating smartparens.
  • alternatively, if you can't rollback, you can tell Spacemacs to install a working version of smartparens by adding it to spacemacs-additional-packages with a recipe, for example:
(smartparens :location (recipe :fetcher github :repo "Fuco1/smartparens" :commit "73b9dd0c70f381aee2da8c8b27f79019aa80dcae"))
Collaborator

bmag commented Mar 12, 2017

This is an issue in Smartparens upstream, caused by their recent move to lexical-bindings, see Fuco1/smartparens#719. To quote Fuco1: (source)

Nope, this is a different issue and I know exactly where it is :) I turned on lexical-binding today so there is going to be quite a lot of issues I haven't catched I'm sure.

Better stay away from master if you can't afford broken setup. But of course having these reports is awesome, so thanks for taking the hit for me :) Expect this to be fixed soon.

I don't think we're going to move away from Smartparens master (at least not on develop branch), but here is what you need to do to avoid this and any other bugs that Smartparens might have in the near future:

  • if you updated to a bugged smartparens version, perform a package rollback.
  • to avoid updating smartparens, add it to dotspacemacs-frozen-packages. You need to restart Spacemacs for the change to take effect, but afterwards you can update the rest of your packages without updating smartparens.
  • alternatively, if you can't rollback, you can tell Spacemacs to install a working version of smartparens by adding it to spacemacs-additional-packages with a recipe, for example:
(smartparens :location (recipe :fetcher github :repo "Fuco1/smartparens" :commit "73b9dd0c70f381aee2da8c8b27f79019aa80dcae"))
@Fuco1

This comment has been minimized.

Show comment
Hide comment
@Fuco1

Fuco1 Mar 12, 2017

Should be fixed now, sorry for the troubles. Melpa will probably build this some time in the next three hours.

Fuco1 commented Mar 12, 2017

Should be fixed now, sorry for the troubles. Melpa will probably build this some time in the next three hours.

@socketwiz

This comment has been minimized.

Show comment
Hide comment
@socketwiz

socketwiz Mar 12, 2017

@Fuco1 thanks, it seems to be available now and has fixed the issue for me :)

@Fuco1 thanks, it seems to be available now and has fixed the issue for me :)

@TheBaronHimself

This comment has been minimized.

Show comment
Hide comment
@TheBaronHimself

TheBaronHimself Mar 12, 2017

Fixed for me, as well. Thanks, @Fuco1.

Fixed for me, as well. Thanks, @Fuco1.

@andrewbanchich

This comment has been minimized.

Show comment
Hide comment
@andrewbanchich

andrewbanchich Mar 12, 2017

Just removed .emacs.d and .spacemacs and reinstalled. Now it is giving me a ton of new errors on installation, but when I restart emacs it doesn't show any errors.

Just removed .emacs.d and .spacemacs and reinstalled. Now it is giving me a ton of new errors on installation, but when I restart emacs it doesn't show any errors.

@TheBaronHimself

This comment has been minimized.

Show comment
Hide comment
@TheBaronHimself

TheBaronHimself Mar 12, 2017

@andrewbanchich: Could you post the error log?

@andrewbanchich: Could you post the error log?

@bmag

This comment has been minimized.

Show comment
Hide comment
@bmag

bmag Mar 12, 2017

Collaborator

@andrewbanchich that sounds like compilation warnings, which are normal when installing packages. As long as these are warning (line starts with "Warning:") and not errors (line starts with "Error:"), it's usually ok. (Most packages have at least some warnings about variables/functions that aren't defined at compile-time, so the compiler complains, but usually it's ok)

Collaborator

bmag commented Mar 12, 2017

@andrewbanchich that sounds like compilation warnings, which are normal when installing packages. As long as these are warning (line starts with "Warning:") and not errors (line starts with "Error:"), it's usually ok. (Most packages have at least some warnings about variables/functions that aren't defined at compile-time, so the compiler complains, but usually it's ok)

@andrewbanchich

This comment has been minimized.

Show comment
Hide comment
@andrewbanchich

andrewbanchich Mar 13, 2017

@TheBaronHimself I don't get the errors anymore, so it sounds like @bmag is correct. I remember they started with "warning." Thanks!

@TheBaronHimself I don't get the errors anymore, so it sounds like @bmag is correct. I remember they started with "warning." Thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment