[BUG]bookmarks make spacemacs startup very slow

Debugger entered--Lisp error: (quit)
  call-process("ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist")
  (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result (concat result " -o ControlPath='tramp.%%r@%%h:%%p'")) (setq result (concat result " -o ControlPath='tramp.%%C'"))))
  (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result (concat result " -o ControlPath='tramp.%%r@%%h:%%p'")) (setq result (concat result " -o ControlPath='tramp.%%C'")))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result (concat result " -o ControlPath='tramp.%%r@%%h:%%p'")) (setq result (concat result " -o ControlPath='tramp.%%C'")))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result (concat result " -o ControlPath='tramp.%%r@%%h:%%p'")) (setq result (concat result " -o ControlPath='tramp.%%C'")))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (if (zerop (length result)) nil (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result (concat result " -o ControlPath='tramp.%%r@%%h:%%p'")) (setq result (concat result " -o ControlPath='tramp.%%C'")))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPersist") (goto-char (point-min)) (if (search-forward-regexp "missing.+argument" nil t) (progn (setq result ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlMaster") (goto-char (point-min)) (if (search-forward-regexp "missing.+argument" nil t) (progn (setq result "-o ControlMaster=auto")))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (zerop (length result)) nil (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char (point-min)) (if (search-forward-regexp "unknown.+key" nil t) (setq result ...) (setq result ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPersist") (goto-char (point-min)) (if (search-forward-regexp "missing.+argument" nil t) (progn ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
  (if (executable-find "ssh") (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlMaster") (goto-char (point-min)) (if (search-forward-regexp "missing.+argument" nil t) (progn ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (zerop (length result)) nil (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPath=%C" "host.does.not.exist") (goto-char ...) (if ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlPersist") (goto-char ...) (if ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))))
  (progn (if (executable-find "ssh") (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (call-process "ssh" nil t nil "-o" "ControlMaster") (goto-char ...) (if ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (zerop (length result)) nil (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...))))))))
  (condition-case nil (progn (if (executable-find "ssh") (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (if (zerop (length result)) nil (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))))) (error nil))
  (let ((result "") (case-fold-search t)) (condition-case nil (progn (if (executable-find "ssh") (progn (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (if (zerop (length result)) nil (let (...) (save-current-buffer ... ...)) (let (...) (save-current-buffer ... ...)))))) (error nil)) result)
  (defvar tramp-ssh-controlmaster-options (let ((result "") (case-fold-search t)) (condition-case nil (progn (if (executable-find "ssh") (progn (let (...) (save-current-buffer ... ...)) (if (zerop ...) nil (let ... ...) (let ... ...))))) (error nil)) result) "Call ssh to detect whether it supports the Control* arguments.\nReturn a string to be used in `tramp-methods'.")
  eval-buffer(#<buffer  *load*> nil "/usr/local/share/emacs/24.5/lisp/net/tramp-loaddefs.el" nil t)  ; Reading at buffer position 7082
  load-with-code-conversion("/usr/local/share/emacs/24.5/lisp/net/tramp-loaddefs.el" "/usr/local/share/emacs/24.5/lisp/net/tramp-loaddefs.el" nil t)
  require(tramp-loaddefs)
  byte-code("\300\301!\207" [require tramp-loaddefs] 2)
  byte-code("\300\301\302\303#\210\300\304\305\306#\210\300\304\307\306#\210\300\304\310\306#\210\300\304\311\306#\210\300\304\312\306#\210\300\304\313\306#\210\300\314\315\316#\210\300\317\320\316#\210\300\304\321\306#\210\300\322\323\306#\210\300\324\325\306#\210\300\322\326\306#\210\300\327\330\316#\210\300\331\332\303#\210\300\331\333\303#\210\300\331\334\303#\210\300\331\335\303#\210\300\331\336\303#\210\300\337\340\341#\210\342\343!\203\206\344\345\343\"\210\202\215\344\345\346\347B\"\210\342\350!\203\233\344\351\350\"\210\202\256\344\351\346\352B\"\210\353\351\354\355#\210\353\351\356\306#\210\300\207" [byte-code "\300\301!?\205\302\303\304\"\210\302\305\304\"\207" [fboundp ignore-errors load "cl" noerror "cl-macs"] 3 "\300\301!\207" [require advice] 2 [require custom] [require format-spec] [require shell] [require trampver] [require tramp-loaddefs] "\300\301\302\303#\206
\300\304\302\303#\207" [require password-cache nil noerror password] 4 "\300\301\302\303#\207" [require auth-source nil noerror] [require timer] "\300\301!?\205\n\302\303!\207" [boundp last-coding-system-used (lambda (def-tmp-var) (defvar last-coding-system-used def-tmp-var)) nil] "\302\303!\205\304\305!\210\303\306\305!\210\307\211\207" [byte-compile-not-obsolete-var byte-compile-not-obsolete-vars boundp directory-sep-char (lambda (def-tmp-var) (defvar byte-compile-not-obsolete-var def-tmp-var)) nil (lambda (def-tmp-var) (defvar byte-compile-not-obsolete-vars def-tmp-var)) (directory-sep-char)] [boundp remote-file-name-inhibit-cache (lambda (def-tmp-var) (defvar remote-file-name-inhibit-cache def-tmp-var)) nil] "\300\301\302\303B\"\207" [defalias tramp-compat-funcall macro #[(function &rest arguments) "\302\303\304D\305DE\306\307 BBDE\207" [function arguments when or subrp functionp with-no-warnings funcall] 6]] "\300\301!?\205\302\301\303\"\207" [fboundp set-buffer-multibyte defalias ignore] [fboundp file-remote-p defalias #[(file &optional identification connected) "\303!\205\304\305!\204\306\305!\205\305\307    \n$\207" [file identification connected tramp-tramp-file-p subrp tramp-file-name-handler functionp file-remote-p] 5]] [fboundp process-file defalias #[(program &optional infile buffer display &rest args) "\306!\205\307\310\311   \n\f
&\207" [default-directory program infile buffer display args tramp-tramp-file-p apply tramp-file-name-handler process-file] 8]] [fboundp start-file-process defalias #[(name buffer program &rest program-args) "\305!\205\306\307\310  \n\f&\207" [default-directory name buffer program program-args tramp-tramp-file-p apply tramp-file-name-handler start-file-process] 7]] [fboundp set-file-times defalias #[(filename &optional time) "\302!\205\303\304!\204\305\304!\205\304\306 #\207" [filename time tramp-tramp-file-p subrp tramp-file-name-handler functionp set-file-times] 4]] "\300\301\302\"?\205\303\304\305\306\307$\210\310\304\307\"\210\311\312\313\"\207" [featurep files remote-wildcards ad-add-advice file-expand-wildcards (tramp-advice-file-expand-wildcards nil t (advice lambda nil (let ((name (ad-get-arg 0))) (if (and (tramp-tramp-file-p name) (not ...)) (setq ad-return-value (list name)) ad-do-it)))) around nil ad-activate add-hook tramp-unload-hook #[nil "\300\301\302\303#\210\304\301!\207" [ad-remove-advice file-expand-wildcards around tramp-advice-file-expand-wildcards ad-activate] 4]] 5 fboundp with-temp-message defalias tramp-compat-with-temp-message macro #[(_message &rest body) "\301B\207" [body progn] 2 "Display MESSAGE temporarily if non-nil while BODY is evaluated."] condition-case-unless-debug tramp-compat-condition-case-unless-debug #[(var bodyform &rest handlers) "\304\305!\306\307\310   EDC\311\312\313D\314\n\313DBBBFE)\207" [bodysym bodyform var handlers make-symbol "body" let lambda nil if debug-on-error funcall condition-case] 9 "Like `condition-case' except that it does not catch anything when debugging."] put edebug-form-spec condition-case lisp-indent-function] 4)
  require(tramp-compat)
  byte-code("\300\301!\210\302\303\304\305\306\307\306\310\311\312& \210\313\314\315\316\306\303\317\320&\210\313\321\322\323\306\303\317\324&\210\325\326\327\330#\210\313\331\304\332\306\303\317\333&\210\313\334\335\336\306\303\317\337&\210\313\340\341\342\306\303\317\343&\210\313\344\345\346\311\347\306\303\317\350&    \207" [require tramp-compat custom-declare-group tramp nil "Edit remote files with a combination of ssh, scp, etc." :group files comm :version "22.1" custom-declare-variable tramp-mode t "Whether Tramp is enabled.\nIf it is set to nil, all remote file names are used literally." :type boolean tramp-verbose 3 "Verbosity level for Tramp messages.\nAny level x includes messages for all levels 1 .. x-1.  The levels are\n\n 0  silent (no tramp messages at all)\n 1  errors\n 2  warnings\n 3  connection to remote hosts (default level)\n 4  activities\n 5  internal\n 6  sent and received strings\n 7  file caching\n 8  connection properties\n 9  test commands\n10  traces (huge)." integer byte-code "\300\301!\205\302\303\304\305\306\307\310\311&\207" [boundp backup-directory-alist custom-declare-variable tramp-backup-directory-alist nil "Alist of filename patterns and backup directory names.\nEach element looks like (REGEXP . DIRECTORY), with the same meaning like\nin `backup-directory-alist'.  If a Tramp file is backed up, and DIRECTORY\nis a local file name, the backup directory is prepended with Tramp file\nname prefix (method, user, host) of file.\n\n(setq tramp-backup-directory-alist backup-directory-alist)\n\ngives the same backup policy for Tramp files on their hosts like the\npolicy for local files." :group tramp :type (repeat (cons (regexp :tag "Regexp matching filename") (directory :tag "Backup directory name")))] 8 tramp-auto-save-directory "Put auto-save files in this directory, if set.\nThe idea is to use a local directory so that auto-saving is faster." (choice (const nil) string) tramp-encoding-shell (if (memq system-type (quote (windows-nt))) (getenv "COMSPEC") "/bin/sh") "Use this program for encoding and decoding commands on the local host.\nThis shell is used to execute the encoding and decoding command on the\nlocal host, so if you want to use `~' in those commands, you should\nchoose a shell here which groks tilde expansion.  `/bin/sh' normally\ndoes not understand tilde expansion.\n\nFor encoding and decoding, commands like the following are executed:\n\n    /bin/sh -c COMMAND < INPUT > OUTPUT\n\nThis variable can be used to change the \"/bin/sh\" part.  See the\nvariable `tramp-encoding-command-switch' for the \"-c\" part.\n\nIf the shell must be forced to be interactive, see\n`tramp-encoding-command-interactive'.\n\nNote that this variable is not used for remote commands.  There are\nmechanisms in tramp.el which automatically determine the right shell to\nuse for the remote host." (file :must-match t) tramp-encoding-command-switch (if (string-match "cmd\\.exe" tramp-encoding-shell) "/c" "-c") "Use this switch together with `tramp-encoding-shell' for local commands.\nSee the variable `tramp-encoding-shell' for more information." string tramp-encoding-command-interactive (unless (string-match "cmd\\.exe" tramp-encoding-shell) "-i") "Use this switch together with `tramp-encoding-shell' for interactive shells.\nSee the variable `tramp-encoding-shell' for more information." "24.1" (choice (const nil) string)] 10)
  require(tramp)
  byte-code("\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\210\300\317!\210\300\320!\210\300\321!\210\322\323\324 \325#\210\326\327\330\331\332\302%\210\333\334\335\336\337DD\340\332\327\341\342&\210\333\343\335\336\344DD\345\341\346\332\327&\210\333\347\335\336\350DD\351\341\352\332\327&\210\333\353\335\336\354DD\355\332\327\341\356&\210\333\357\335\336\360DD\361\332\327\341\356&\210\333\362\335\336\363DD\364\332\327\341\352&\210\333\365\335\336\366DD\367\332\327\341\356&\210\333\370\335\336\371DD\372\332\327\341\356&\210\333\373\335\336\374DD\375\332\327\341\376&\210\333\377\335\336\201@DD\201A\332\327\341\376&\210\333\201B\335\336\201CDD\201D\341\356\332\327&\210\333\201E\335\336\201FDD\201G\341\376\332\327&\210\333\201H\335\336\201IDD\201J\341\201K\332\327&\210\333\201L\335\336\201MDD\201N\341\201O\332\327&\210\333\201P\335\336\201QDD\201R\341\356\332\327&\210\333\201S\335\336\201TDD\201U\332\327\341\356&\210\333\201V\335\336\201WDD\201X\332\327\341\356&\210\333\201Y\335\336\201ZDD\201[\332\327\341\352&\210\333\201\\\335\336\201]DD\201^\332\327\341\356&\210\333\201_\335\336\201`DD\201a\332\327\341\356&\210\333\201b\335\336\201cDD\201d\332\327\341\356&\210\333\201e\335\336\201fDD\201g\332\327\341\356&\210\333\201h\335\336\201iDD\201j\332\327\341\201k&\210\333\201l\335\336\201mDD\201n\332\327\341\201o&\210\333\201p\335\336\201qDD\201r\332\327\341\201o&\210\333\201s\335\336\201tDD\201u\332\327\341\376&\210\333\201v\335\336\201wDD\201x\332\327\341\376&\210\326\201y\330\201z\201{\201|\332\327\332\201}&   \210\201~\201\201\200\201\201\332\201y%\210\201~\201\202\201\203\201\204\332\201y%\210\201~\201\205\201\206\201\207\332\201y%\210\201~\201\210\201\211\201\212\332\201y%\210\201~\201\213\201\214\201\215\332\201y%\210\201~\201\216\201\217\201\220\332\201y%\210\201~\201\221\201\222\201\223\332\201y%\210\201~\201\224\201\225\201\226\332\201y%\210\201~\201\227\201\230\201\231\332\201y%\207" [require cl-lib helm helm-utils helm-external helm-grep helm-match-plugin helm-help helm-locate helm-bookmark helm-tags helm-buffers thingatpt ffap dired-aux dired-x tramp image-dired define-helm-type-attribute file helm-build-type-file "File name." custom-declare-group helm-files nil "Files applications and libraries for Helm." :group custom-declare-variable helm-boring-file-regexp-list funcall function #[0 "\301\302\"\207" [completion-ignored-extensions mapcar #[257 "\300\301\302\303#\304\"\305P\207" [rx-to-string replace-regexp-in-string "/$" "" t "$"] 6 "\n\n(fn F)"]] 3 "\n\n(fn)"] "The regexp list matching boring files." :type (repeat (choice regexp)) helm-for-files-preferred-list #[0 "\300\207" [(helm-source-buffers-list helm-source-recentf helm-source-bookmarks helm-source-file-cache helm-source-files-in-current-dir helm-source-locate)] 1 "\n\n(fn)"] "Your preferred sources to find files." (repeat (choice symbol)) helm-tramp-verbose #[0 "\300\207" [0] 1 "\n\n(fn)"] "Just like `tramp-verbose' but specific to helm.\nWhen set to 0 don't show tramp messages in helm.\nIf you want to have the default tramp messages set it to 3." integer helm-ff-auto-update-initial-value #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Auto update when only one candidate directory is matched.\nDefault value when starting `helm-find-files' is nil because\nit prevent using <backspace> to delete char backward and by the way\nconfuse beginners.\nFor a better experience with `helm-find-files' set this to non--nil\nand use C-<backspace> to toggle it." boolean helm-ff-lynx-style-map #[0 "\300\207" [t] 1 "\n\n(fn)"] "Use arrow keys to navigate with `helm-find-files'.\nYou will have to restart Emacs or reeval `helm-find-files-map'\nand `helm-read-file-map' for this take effect." ...] 10)
  require(helm-files)
  byte-code("\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\310\305\317\320&\210\311\321\313\314\322DD\323\310\305\317\324&\210\311\325\313\314\326DD\327\310\305\317\330&\210\311\331\313\314\332DD\333\310\305\317\330&\210\311\334\313\314\335DD\336\310\305\317\330&\210\311\337\313\314\340DD\341\310\305\317\330&\207" [require cl-lib helm helm-files custom-declare-group helm-mode nil "Enable helm completion." :group custom-declare-variable helm-completing-read-handlers-alist funcall function #[0 "\300\207" [((describe-function . helm-completing-read-symbols) (describe-variable . helm-completing-read-symbols) (debug-on-entry . helm-completing-read-symbols) (find-function . helm-completing-read-symbols) (trace-function . helm-completing-read-symbols) (trace-function-foreground . helm-completing-read-symbols) (trace-function-background . helm-completing-read-symbols) (find-tag . helm-completing-read-with-cands-in-buffer) (ffap-alternate-file) (tmm-menubar))] 1 "\n\n(fn)"] "Alist of handlers to replace `completing-read', `read-file-name' in `helm-mode'.\nEach entry is a cons cell like (emacs_command . completing-read_handler)\nwhere key and value are symbols.\n\nEach key is an Emacs command that use originaly `completing-read'.\n\nEach value maybe an helm function that take same arguments as\n`completing-read' plus NAME and BUFFER, where NAME is the name of the new\nhelm source and BUFFER the name of the buffer we will use.\nThis function prefix name must start by \"helm\".\n\nSee `helm-completing-read-symbols' for example.\n\nNote that this function will be reused for ALL the `completing-read'\nof this command, so it should handle all cases, e.g\nIf first `completing-read' complete against symbols and\nsecond `completing-read' should handle only buffer,\nyour specialized function should handle the both.\n\nIf the value of an entry is nil completion will fall back to\nemacs vanilla behavior.\ne.g If you want to disable helm completion for `describe-function':\n(describe-function . nil).\n\nIdo is also supported, you can use `ido-completing-read' and\n`ido-read-file-name' as value of an entry or just 'ido.\ne.g ido completion for `find-file':\n(find-file . ido)\nsame as\n(find-file . ido-read-file-name)\nNote that you don't need to enable `ido-mode' for this to work." :type (alist :key-type symbol :value-type symbol) helm-comp-read-case-fold-search #[0 "\207" [helm-case-fold-search] 1 "\n\n(fn)"] "Default Local setting of `helm-case-fold-search' for `helm-comp-read'.\nSee `helm-case-fold-search' for more info." symbol helm-mode-handle-completion-in-region #[0 "\300\207" [t] 1 "\n\n(fn)"] "Whether to replace or not `completion-in-region-function'.\nThis enable support for `completing-read-multiple' and `completion-at-point'\nwhen non--nil." boolean helm-mode-reverse-history #[0 "\300\207" [t] 1 "\n\n(fn)"] "Display history source after current source in `helm-mode' handled commands." helm-mode-no-completion-in-region-in-modes #[0 "\300\207" [nil] 1 "\n\n(fn)"] "A list of modes that do not want helm for `completion-in-region'." helm-completion-in-region-fuzzy-match #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Whether `helm-completion-in-region' use fuzzy matching or not.\nAffect among others `completion-at-point', `completing-read-multiple'."] 8)
  (helm-mode 1)
  (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function (lambda nil "Set the face of diretories for `.' and `..'" (set-face-attribute (quote helm-ff-dotted-directory) nil :foreground nil :background nil :inherit (quote helm-ff-directory))))) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function (lambda nil (define-key helm-bookmark-map (kbd "C-d") (quote helm-bookmark-run-delete)) (define-key helm-bookmark-map (kbd "C-e") (quote helm-bookmark-run-edit)) (define-key helm-bookmark-map (kbd "C-f") (quote helm-bookmark-toggle-filename)) (define-key helm-bookmark-map (kbd "C-o") (quote helm-bookmark-run-jump-other-window)) (define-key helm-bookmark-map (kbd "C-/") (quote helm-bookmark-help))))) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function (lambda (&optional arg) "Set navigation in helm on `jklh'.\nARG non nil means that the editing style is `vim'." (cond (arg (define-key helm-map (kbd "C-j") (quote helm-next-line)) (define-key helm-map (kbd "C-k") (quote helm-previous-line)) (define-key helm-map (kbd "C-h") (quote helm-next-source)) (define-key helm-map (kbd "C-l") (quote helm-previous-source))) (t (define-key helm-map (kbd "C-j") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-k") (quote helm-delete-minibuffer-contents)) (define-key helm-map (kbd "C-h") nil) (define-key helm-map (kbd "C-l") (quote helm-recenter-top-bottom-other-window))))))) (spacemacs//helm-hjkl-navigation (eq (quote vim) dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function (lambda nil "Switch in edit mode depending on the current helm buffer." (interactive) (cond ((string-equal "*helm-ag*" helm-buffer) (helm-ag-edit)))))) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function (lambda nil "Initialization of helm micro-state." (spacemacs//helm-navigation-ms-set-face) (setq spacemacs--helm-navigation-ms-face-cookie-minibuffer (face-remap-add-relative (quote minibuffer-prompt) (quote spacemacs-helm-navigation-ms-face))) (let ((--dotimes-limit-- 10) (n 0)) (while (< n --dotimes-limit--) (define-key helm-map (number-to-string n) (list ... nil ... ...)) (setq n (1+ n))))))) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function (lambda nil "Set the face for helm header in helm navigation micro-state" (with-helm-window (setq spacemacs--helm-navigation-ms-face-cookie-header (face-remap-add-relative (quote helm-header) (quote spacemacs-helm-navigation-ms-face))))))) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function (lambda nil "Action to perform when exiting helm micro-state." (let ((--dotimes-limit-- 10) (n 0)) (while (< n --dotimes-limit--) (define-key helm-map (number-to-string n) nil) (setq n (1+ n)))) (with-helm-window (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-header)) (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-minibuffer)))) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function (lambda nil "Full documentation for helm navigation micro-state." "\n  [?]          display this help\n  [a]          toggle action selection page\n  [e]          edit occurrences if supported\n  [j] [k]      next/previous candidate\n  [h] [l]      previous/next source\n  [t]          toggle visible mark\n  [T]          toggle all mark\n  [v]          persistent action\n  [q]          quit"))) (progn (defalias (quote spacemacs/helm-navigation-micro-state) (function (lambda nil "helm-navigation micro-state." (interactive) (let ((doc)) (if doc (progn ...))) nil (spacemacs//helm-navigation-ms-on-enter) (set-transient-map (let (...) (define-key map [tab] ...) (define-key map "   " ...) (define-key map "
" ...) (define-key map "?" ...) (define-key map "a" ...) (define-key map "e" ...) (define-key map "h" ...) (define-key map "j" ...) (define-key map "k" ...) (define-key map "l" ...) (define-key map "q" ...) (define-key map "t" ...) (define-key map "T" ...) (define-key map "v" ...) (define-key map " " ...) map) (quote spacemacs//helm-navigation-on-exit))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (evil-leader/set-key key (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) val) (while --dolist-tail-- (setq val (car --dolist-tail--)) (evil-leader/set-key-for-mode (car val) (cdr val) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (global-set-key (kbd key) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote ((helm-map . "M-SPC") (helm-map . "s-M-SPC")))) nil (let ((--dolist-tail-- (quote (... ...))) val) (while --dolist-tail-- (setq val (car --dolist-tail--)) (define-key (eval (car val)) (kbd (cdr val)) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function (lambda nil (eval-after-load (quote diminish) (function (lambda nil (diminish ...))))))))
  (condition-case err (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function (lambda nil "Set the face of diretories for `.' and `..'" (set-face-attribute (quote helm-ff-dotted-directory) nil :foreground nil :background nil :inherit (quote helm-ff-directory))))) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function (lambda nil (define-key helm-bookmark-map (kbd "C-d") (quote helm-bookmark-run-delete)) (define-key helm-bookmark-map (kbd "C-e") (quote helm-bookmark-run-edit)) (define-key helm-bookmark-map (kbd "C-f") (quote helm-bookmark-toggle-filename)) (define-key helm-bookmark-map (kbd "C-o") (quote helm-bookmark-run-jump-other-window)) (define-key helm-bookmark-map (kbd "C-/") (quote helm-bookmark-help))))) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function (lambda (&optional arg) "Set navigation in helm on `jklh'.\nARG non nil means that the editing style is `vim'." (cond (arg (define-key helm-map ... ...) (define-key helm-map ... ...) (define-key helm-map ... ...) (define-key helm-map ... ...)) (t (define-key helm-map ... ...) (define-key helm-map ... ...) (define-key helm-map ... nil) (define-key helm-map ... ...)))))) (spacemacs//helm-hjkl-navigation (eq (quote vim) dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function (lambda nil "Switch in edit mode depending on the current helm buffer." (interactive) (cond ((string-equal "*helm-ag*" helm-buffer) (helm-ag-edit)))))) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function (lambda nil "Initialization of helm micro-state." (spacemacs//helm-navigation-ms-set-face) (setq spacemacs--helm-navigation-ms-face-cookie-minibuffer (face-remap-add-relative (quote minibuffer-prompt) (quote spacemacs-helm-navigation-ms-face))) (let ((--dotimes-limit-- 10) (n 0)) (while (< n --dotimes-limit--) (define-key helm-map ... ...) (setq n ...)))))) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function (lambda nil "Set the face for helm header in helm navigation micro-state" (with-helm-window (setq spacemacs--helm-navigation-ms-face-cookie-header (face-remap-add-relative ... ...)))))) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function (lambda nil "Action to perform when exiting helm micro-state." (let ((--dotimes-limit-- 10) (n 0)) (while (< n --dotimes-limit--) (define-key helm-map ... nil) (setq n ...))) (with-helm-window (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-header)) (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-minibuffer)))) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function (lambda nil "Full documentation for helm navigation micro-state." "\n  [?]          display this help\n  [a]          toggle action selection page\n  [e]          edit occurrences if supported\n  [j] [k]      next/previous candidate\n  [h] [l]      previous/next source\n  [t]          toggle visible mark\n  [T]          toggle all mark\n  [v]          persistent action\n  [q]          quit"))) (progn (defalias (quote spacemacs/helm-navigation-micro-state) (function (lambda nil "helm-navigation micro-state." (interactive) (let (...) (if doc ...)) nil (spacemacs//helm-navigation-ms-on-enter) (set-transient-map (let ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... map) (quote spacemacs//helm-navigation-on-exit))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (evil-leader/set-key key (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) val) (while --dolist-tail-- (setq val (car --dolist-tail--)) (evil-leader/set-key-for-mode (car val) (cdr val) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote nil)) nil (let ((--dolist-tail-- (quote nil)) key) (while --dolist-tail-- (setq key (car --dolist-tail--)) (global-set-key (kbd key) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if (null (quote ((helm-map . "M-SPC") (helm-map . "s-M-SPC")))) nil (let ((--dolist-tail-- (quote ...)) val) (while --dolist-tail-- (setq val (car --dolist-tail--)) (define-key (eval ...) (kbd ...) (quote spacemacs/helm-navigation-micro-state)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function (lambda nil (eval-after-load (quote diminish) (function (lambda nil ...))))))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" ":config" (error-message-string err)) :error))))
  (progn (condition-case err (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function (lambda nil "Set the face of diretories for `.' and `..'" (set-face-attribute (quote helm-ff-dotted-directory) nil :foreground nil :background nil :inherit (quote helm-ff-directory))))) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function (lambda nil (define-key helm-bookmark-map (kbd "C-d") (quote helm-bookmark-run-delete)) (define-key helm-bookmark-map (kbd "C-e") (quote helm-bookmark-run-edit)) (define-key helm-bookmark-map (kbd "C-f") (quote helm-bookmark-toggle-filename)) (define-key helm-bookmark-map (kbd "C-o") (quote helm-bookmark-run-jump-other-window)) (define-key helm-bookmark-map (kbd "C-/") (quote helm-bookmark-help))))) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function (lambda (&optional arg) "Set navigation in helm on `jklh'.\nARG non nil means that the editing style is `vim'." (cond (arg ... ... ... ...) (t ... ... ... ...))))) (spacemacs//helm-hjkl-navigation (eq (quote vim) dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function (lambda nil "Switch in edit mode depending on the current helm buffer." (interactive) (cond (... ...))))) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function (lambda nil "Initialization of helm micro-state." (spacemacs//helm-navigation-ms-set-face) (setq spacemacs--helm-navigation-ms-face-cookie-minibuffer (face-remap-add-relative ... ...)) (let (... ...) (while ... ... ...))))) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function (lambda nil "Set the face for helm header in helm navigation micro-state" (with-helm-window (setq spacemacs--helm-navigation-ms-face-cookie-header ...))))) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function (lambda nil "Action to perform when exiting helm micro-state." (let (... ...) (while ... ... ...)) (with-helm-window (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-header)) (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-minibuffer)))) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function (lambda nil "Full documentation for helm navigation micro-state." "\n  [?]          display this help\n  [a]          toggle action selection page\n  [e]          edit occurrences if supported\n  [j] [k]      next/previous candidate\n  [h] [l]      previous/next source\n  [t]          toggle visible mark\n  [T]          toggle all mark\n  [v]          persistent action\n  [q]          quit"))) (progn (defalias (quote spacemacs/helm-navigation-micro-state) (function (lambda nil "helm-navigation micro-state." (interactive) (let ... ...) nil (spacemacs//helm-navigation-ms-on-enter) (set-transient-map ... ...)))) (if (null (quote nil)) nil (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (evil-leader/set-key key ...) (setq --dolist-tail-- ...)))) (if (null (quote nil)) nil (let ((--dolist-tail-- ...) val) (while --dolist-tail-- (setq val ...) (evil-leader/set-key-for-mode ... ... ...) (setq --dolist-tail-- ...)))) (if (null (quote nil)) nil (let ((--dolist-tail-- ...) key) (while --dolist-tail-- (setq key ...) (global-set-key ... ...) (setq --dolist-tail-- ...)))) (if (null (quote (... ...))) nil (let ((--dolist-tail-- ...) val) (while --dolist-tail-- (setq val ...) (define-key ... ... ...) (setq --dolist-tail-- ...))))) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function (lambda nil (eval-after-load (quote diminish) (function ...)))))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" ":config" (error-message-string err)) :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "post-:config hook" (error-message-string err)) :error)))))
  (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "pre-:config hook" (error-message-string err)) :error)))) (progn (condition-case err (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function (lambda nil "Set the face of diretories for `.' and `..'" (set-face-attribute ... nil :foreground nil :background nil :inherit ...)))) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function (lambda nil (define-key helm-bookmark-map ... ...) (define-key helm-bookmark-map ... ...) (define-key helm-bookmark-map ... ...) (define-key helm-bookmark-map ... ...) (define-key helm-bookmark-map ... ...)))) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function (lambda (&optional arg) "Set navigation in helm on `jklh'.\nARG non nil means that the editing style is `vim'." (cond ... ...)))) (spacemacs//helm-hjkl-navigation (eq (quote vim) dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function (lambda nil "Switch in edit mode depending on the current helm buffer." (interactive) (cond ...)))) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function (lambda nil "Initialization of helm micro-state." (spacemacs//helm-navigation-ms-set-face) (setq spacemacs--helm-navigation-ms-face-cookie-minibuffer ...) (let ... ...)))) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function (lambda nil "Set the face for helm header in helm navigation micro-state" (with-helm-window ...)))) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function (lambda nil "Action to perform when exiting helm micro-state." (let ... ...) (with-helm-window ...) (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie-minibuffer)))) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function (lambda nil "Full documentation for helm navigation micro-state." "\n  [?]          display this help\n  [a]          toggle action selection page\n  [e]          edit occurrences if supported\n  [j] [k]      next/previous candidate\n  [h] [l]      previous/next source\n  [t]          toggle visible mark\n  [T]          toggle all mark\n  [v]          persistent action\n  [q]          quit"))) (progn (defalias (quote spacemacs/helm-navigation-micro-state) (function (lambda nil "helm-navigation micro-state." ... ... nil ... ...))) (if (null (quote nil)) nil (let (... key) (while --dolist-tail-- ... ... ...))) (if (null (quote nil)) nil (let (... val) (while --dolist-tail-- ... ... ...))) (if (null (quote nil)) nil (let (... key) (while --dolist-tail-- ... ... ...))) (if (null (quote ...)) nil (let (... val) (while --dolist-tail-- ... ... ...)))) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function (lambda nil (eval-after-load ... ...))))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" ":config" (error-message-string err)) :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "post-:config hook" (error-message-string err)) :error))))))
  (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "pre-:config hook" (error-message-string err)) :error)))) (progn (condition-case err (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function (lambda nil "Set the face of diretories for `.' and `..'" ...))) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function (lambda nil ... ... ... ... ...))) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function (lambda ... "Set navigation in helm on `jklh'.\nARG non nil means that the editing style is `vim'." ...))) (spacemacs//helm-hjkl-navigation (eq (quote vim) dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function (lambda nil "Switch in edit mode depending on the current helm buffer." ... ...))) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function (lambda nil "Initialization of helm micro-state." ... ... ...))) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function (lambda nil "Set the face for helm header in helm navigation micro-state" ...))) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function (lambda nil "Action to perform when exiting helm micro-state." ... ... ...))) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function (lambda nil "Full documentation for helm navigation micro-state." "\n  [?]          display this help\n  [a]          toggle action selection page\n  [e]          edit occurrences if supported\n  [j] [k]      next/previous candidate\n  [h] [l]      previous/next source\n  [t]          toggle visible mark\n  [T]          toggle all mark\n  [v]          persistent action\n  [q]          quit"))) (progn (defalias (quote spacemacs/helm-navigation-micro-state) (function ...)) (if (null ...) nil (let ... ...)) (if (null ...) nil (let ... ...)) (if (null ...) nil (let ... ...)) (if (null ...) nil (let ... ...))) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function (lambda nil ...)))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" ":config" ...) :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "post-:config hook" ...) :error)))))) t)
  (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "pre-:config hook" ...) :error)))) (progn (condition-case err (progn (helm-mode 1) (defalias (quote spacemacs//set-dotted-directory) (function ...)) (add-hook (quote helm-find-files-before-init-hook) (quote spacemacs//set-dotted-directory)) (defalias (quote simpler-helm-bookmark-keybindings) (function ...)) (add-hook (quote helm-mode-hook) (quote simpler-helm-bookmark-keybindings)) (defalias (quote spacemacs//helm-hjkl-navigation) (function ...)) (spacemacs//helm-hjkl-navigation (eq ... dotspacemacs-editing-style)) (defalias (quote spacemacs/helm-edit) (function ...)) (defalias (quote spacemacs//helm-navigation-ms-on-enter) (function ...)) (defalias (quote spacemacs//helm-navigation-ms-set-face) (function ...)) (defalias (quote spacemacs//helm-navigation-ms-on-exit) (function ...)) (defalias (quote spacemacs//helm-navigation-ms-full-doc) (function ...)) (progn (defalias ... ...) (if ... nil ...) (if ... nil ...) (if ... nil ...) (if ... nil ...)) (define-key helm-map (kbd "<tab>") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "TAB") (quote helm-execute-persistent-action)) (define-key helm-map (kbd "C-z") (quote helm-select-action)) (eval-after-load "helm-mode" (function ...))) ((debug error) (ignore (display-warning ... ... :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug 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 helm" elapsed) (message "%s...done" "Configuring package helm"))))
  (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning ... ... :error)))) (progn (condition-case err (progn (helm-mode 1) (defalias ... ...) (add-hook ... ...) (defalias ... ...) (add-hook ... ...) (defalias ... ...) (spacemacs//helm-hjkl-navigation ...) (defalias ... ...) (defalias ... ...) (defalias ... ...) (defalias ... ...) (defalias ... ...) (progn ... ... ... ... ...) (define-key helm-map ... ...) (define-key helm-map ... ...) (define-key helm-map ... ...) (eval-after-load "helm-mode" ...)) ((debug error) (ignore ...))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore ...))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm")))))
  (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore ...))) (progn (condition-case err (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (... ...)) (condition-case err (run-hooks ...) (... ...)))) t) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm"))))))()
  eval-after-load(helm (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore ...))) (progn (condition-case err (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (... ...)) (condition-case err (run-hooks ...) (... ...)))) t) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm")))))))
  (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "pre-:config hook" (error-message-string err)) :error)))) (progn (condition-case err (progn (defalias (quote spacemacs/helm-find-files) (function (lambda ... "Custom spacemacs implementation for calling helm-find-files-1.\nRemoves the automatic guessing of the initial value based on thing at point. " ... ...)))) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" ":config" ...) :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "post-:config hook" ...) :error)))))) (eval-after-load (quote helm) (function (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if ... ...) t) (let (...) (if ... ... ...))))))) t)
  (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning (quote use-package) (format "%s %s: %s" "helm" "pre-:config hook" ...) :error)))) (progn (condition-case err (progn (defalias (quote spacemacs/helm-find-files) (function ...))) ((debug error) (ignore (display-warning ... ... :error)))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore (display-warning ... ... :error)))))) (eval-after-load (quote helm) (function (lambda nil (let ((now ...)) (message "%s..." "Configuring package helm") (prog1 (progn ... t) (let ... ...)))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm"))))
  (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore (display-warning ... ... :error)))) (progn (condition-case err (progn (defalias ... ...)) ((debug error) (ignore ...))) (condition-case err (run-hooks (quote use-package--helm--post-config-hook)) ((debug error) (ignore ...))))) (eval-after-load (quote helm) (function (lambda nil (let (...) (message "%s..." "Configuring package helm") (prog1 ... ...))))) t) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm")))))
  (lambda nil (let ((now (current-time))) (message "%s..." "Configuring package helm") (prog1 (progn (if (condition-case err (run-hook-with-args-until-failure (quote use-package--helm--pre-config-hook)) ((debug error) (ignore ...))) (progn (condition-case err (progn ...) (... ...)) (condition-case err (run-hooks ...) (... ...)))) (eval-after-load (quote helm) (function (lambda nil (let ... ... ...)))) t) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package helm" elapsed) (message "%s...done" "Configuring package helm"))))))()
  eval-after-load-helper("/home/wsk/.emacs.d/elpa/helm-20150610.1327/helm.elc")
  run-hook-with-args(eval-after-load-helper "/home/wsk/.emacs.d/elpa/helm-20150610.1327/helm.elc")
  do-after-load-evaluation("/home/wsk/.emacs.d/elpa/helm-20150610.1327/helm.elc")
  require(helm)
  byte-code("\300\301!\210\300\302!\210\303\304\305\306\307\302%\210\310\311\312\313\314DD\315\316\317\307\304&\210\310\320\312\313\321DD\322\307\304\316\317&\210\310\323\312\313\324DD\325\316\317\307\304&\210\310\326\312\313\327DD\330\316\317\307\304&\210\310\331\312\313\332DD\333\307\304\316\334&\210\310\335\312\313\336DD\337\307\304\316\340&\207" [require cl-lib helm custom-declare-group helm-locate nil "Locate related Applications and libraries for Helm." :group custom-declare-variable helm-locate-db-file-regexp funcall function #[0 "\300\207" ["m?locate.db$"] 1 "m?locate.db$\n\n(fn)"] "Default regexp to match locate database.\nIf nil Search in all files." :type string helm-ff-locate-db-filename #[0 "\300\207" ["locate.db"] 1 "locate.db\n\n(fn)"] "The basename of the locatedb file you use locally in your directories.\nWhen this is set and `helm' find such a file in the directory from\nwhere you launch locate, it will use this file and will not prompt you\nfor a db file.\nNote that this happen only when locate is launched with a prefix arg." helm-locate-command #[0 "\300\207" [nil] 1 "\n\n(fn)"] "A list of arguments for locate program.\nNormally you should not have to modify this yourself.\n\nIf nil it will be calculated when `helm-locate' startup\nwith these default values for different systems:\n\nGnu/linux: \"locate %s -e -A %s\"\nberkeley-unix: \"locate %s %s\"\nwindows-nt: \"es %s %s\"\nOthers: \"locate %s %s\"\n\nThis string will be passed to format so it should end with `%s'.\nThe first format spec is used for the \"-i\" value of locate/es,\nSo don't set it directly but use `helm-locate-case-fold-search'\nfor this.\nThe \"-r\" option must be the last option, however if not specified you will\nbe able to specify it during helm invocation by prefixing the pattern\nyou enter with \"-r\"." helm-locate-create-db-command #[0 "\300\207" ["updatedb -l 0 -o %s -U %s"] 1 "updatedb -l 0 -o %s -U %s\n\n(fn)"] "Command used to create a locale locate db file." helm-locate-case-fold-search #[0 "\207" [helm-case-fold-search] 1 "\n\n(fn)"] "It have the same meaning as `helm-case-fold-search'.\nThe -i option of locate will be used depending of value of\n`helm-pattern' when this is set to 'smart.\nWhen nil \"-i\" will not be used at all.\nand when non--nil it will always be used.\nNOTE: the -i option of the \"es\" command used on windows does\nthe opposite of \"locate\" command." symbol helm-locate-fuzzy-match #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Enable fuzzy matching in `helm-locate'." boolean] 8)
  require(helm-locate)
  byte-code("\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\301\315\316& \210\317\320\321\322\314\307\323\324&\207" [require projectile helm-locate helm-buffers helm-files cl-lib custom-declare-group helm-projectile nil "Helm support for projectile." :prefix "helm-projectile-" :group :link (url-link :tag "helm-projectile homepage" "https://github.com/bbatsov/projectile") custom-declare-variable helm-projectile-fuzzy-match t "Enable fuzzy matching for Helm Projectile commands.\nThis needs to be set before loading helm-projectile." :type boolean] 10)
  autoload-do-load((autoload "helm-projectile" "Helm version of projectile-ack.\n\n(fn)" t nil) helm-projectile-ack)
  command-execute(helm-projectile-ack
syl20bnr / spacemacs

[BUG]bookmarks make spacemacs startup very slow #1921
