2,3c2,4 < ;;; Compiled < ;;; in Emacs version 24.3.50.1 --- > ;;; Compiled by thierry@MAISON-H83LGTUS on Fri Sep 06 16:39:36 2013 > ;;; from file c:/Program Files/emacs-24.3-bin-i386/emacs-24.3/site-lisp/helm/helm.el > ;;; in Emacs version 24.2.1 33c34 < (defalias 'helm-define-multi-key #[(keymap key functions &optional delay) "\304 \305\n \"#\207" [keymap key functions delay define-key helm-make-multi-command] 6 (#$ . 428)]) --- > (defalias 'helm-define-multi-key #[(keymap key functions &optional delay) "\304 \305\n \"#\207" [keymap key functions delay define-key helm-make-multi-command] 6 (#$ . 565)])(if macro-declaration-function (funcall macro-declaration-function (quote helm-multi-key-defun) (quote (declare (indent 2))))) 37,38c38 < (defalias 'helm-multi-key-defun '(macro . #[(name docstring funs &optional delay) "\203\n\304P\202 \305\306\307 D\310\n EF\207" [docstring name funs delay "\n\n" "This is a helmish multi-key command." defalias quote helm-make-multi-command] 5 (#$ . 1230)])) < (put 'helm-multi-key-defun 'lisp-indent-function 2) --- > (defalias 'helm-multi-key-defun '(macro . #[(name docstring funs &optional delay) "\203\n\304P\202 \305\306\307 D\310\n EF\207" [docstring name funs delay "\n\n" "This is a helmish multi-key command." defalias quote helm-make-multi-command] 5 (#$ . 1493)])) 41,42c41 < (defalias 'helm-make-multi-command #[(functions &optional delay) "\306\307!\306\310!\306\311!\211\211\fL\210) \211\312\313!L\210)\211L\210)\314\315 J\316E!\210\317\320\321\322\323\324D\323D\323 D\323\nD\325\257F+\207" [#1=#:--cl-timeout-- #2=#:--cl-iter-- #3=#:--cl-funs-- #4=#:v functions #5=#:v make-symbol "--funs--" "--iter--" "--timeout--" gensym "helm-iter-key" eval defvar nil lambda (&rest --cl-rest--) (interactive) apply quote #[(#6=#:G59421 #7=#:G59422 #8=#:G59423) "\303J J\nJ#\207" [#8# #7# #6# helm-run-multi-key-command] 4] --cl-rest-- #9=#:v delay] 10 (#$ . 1683)]) < (put 'helm-make-multi-command 'lisp-indent-function 1) --- > (defalias 'helm-make-multi-command #[(functions &optional delay) "\305\306!\305\307!\305\310!\211 L\210 \311\312!L\210\fL\210\313\314 J\315E!\210\316\317\320\321\322\323D\322D\322 D\322\nD\324\257F+\207" [#1=#:--cl-timeout-- #2=#:--cl-iter-- #3=#:--cl-funs-- functions delay make-symbol "--funs--" "--iter--" "--timeout--" gensym "helm-iter-key" eval defvar nil lambda (&rest --cl-rest--) (interactive) apply quote #[(#4=#:G84924 #5=#:G84925 #6=#:G84926) "\303J J\nJ#\207" [#6# #5# #4# helm-run-multi-key-command] 4] --cl-rest--] 10 (#$ . 1894)]) 45c44 < (defalias 'helm-iter-list #[(seq) "\303\304!\211\211\nL\210)\305\306\307\310\311D\310D\312FE)\207" [#1=#:--cl-lis-- #2=#:v seq make-symbol "--lis--" lambda (&rest --cl-rest--) apply quote #[(#3=#:G59424) "J@\211JAL\210) )\207" [#3# elm #4=#:v] 3] --cl-rest--] 7 (#$ . 2982)]) --- > (defalias 'helm-iter-list #[(seq) "\302\303!\211 L\210\304\305\306\307\310D\307D\311FE)\207" [#1=#:--cl-lis-- seq make-symbol "--lis--" lambda (&rest --cl-rest--) apply quote #[(#2=#:G84927) "J@\211JAL\210 )\207" [#2# elm] 2] --cl-rest--] 7 (#$ . 3097)]) 47c46 < (defalias 'helm-iter-next #[(iterator) " \207" [iterator] 1 (#$ . 3308)]) --- > (defalias 'helm-iter-next #[(iterator) " \207" [iterator] 1 (#$ . 3399)]) 50,51c49,186 < (defvar helm-map (byte-code "\305 \306 \"\210\307\310\311#\210\307\312\313#\210\307\314\311#\210\307\315\313#\210\307\316\317#\210\307\320\321#\210\307\322\317#\210\307\323\321#\210\307\324\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210\307\342\343#\210\307\344\345#\210\307\346\347#\210\307\350\333#\210\307\351\352#\210\307\353\354#\210\307\355\356#\210\307\357\356#\210\307\360\361#\210\307\362\361#\210\307\363\361#\210\307\364\356#\210\307\365\361#\210\307\366\367#\210\307\370\367#\210\307\371\372#\210\307\373\374#\210\307\375\376#\210\307\377\201@#\210\307\201A\201B#\210\307\201C\201D#\210\307\201E\201F#\210\307\201G\201H#\210\307\201I\201J#\210\307\201K\201L#\210\307\201M\201N#\210\307\201O\201N#\210\307\201P\201N#\210\307\201Q\201R#\210\307\201S\201T#\210\307\201U\201V#\210\307\201W\201X#\210\307\201Y\201Z#\210\307\201[\201\\#\210\307\201]\201^#\210\307\201_\201`#\210\307\201a\201b#\210\307\201c\201d#\210\307\201e\201f#\210\307\201g\201h#\210\307\201i\201j#\210\307\201k\201N#\210\307\201l\201m#\210\307\201n\201N#\210\307\201n\201o#\210\307\201p\201q#\210\307\201r\201N#\210\307\201s\201N#\210\201t\201u\n\"\201q\211\203\f@\307 \201v#\210\fA\211\204 *)\207" [map minibuffer-local-map global-map k --dolist-tail-- make-sparse-keymap set-keymap-parent define-key [down] helm-next-line [up] helm-previous-line "" "" [prior] helm-previous-page [next] helm-next-page [134217846] "" [134217788] helm-beginning-of-buffer [134217790] helm-end-of-buffer "" helm-keyboard-quit [right] helm-next-source [left] helm-previous-source " " helm-exit-minibuffer " " helm-select-action "" helm-execute-persistent-action "" helm-select-2nd-action-or-end-of-line "\n" helm-select-3rd-action "" "\f" helm-recenter-top-bottom-other-window [134217740] helm-reposition-window-other-window [134217750] helm-scroll-other-window [M-next] [134217753] helm-scroll-other-window-down [167772182] [M-prior] [C-M-down] [C-M-up] [67108896] helm-toggle-visible-mark [134217760] [134217819] helm-prev-visible-mark [134217821] helm-next-visible-mark " " helm-delete-minibuffer-contents "" helm-quit-and-find-file [134217837] helm-toggle-all-marks [134217825] helm-mark-all [134217845] helm-unmark-all "" helm-yank-text-at-point [134217729] helm-show-all-in-this-source-only [134217733] helm-display-all-sources "" undefined "" [134217843] [67108989] helm-narrow-window [67108987] helm-enlarge-window "-" helm-swap-windows "" helm-delete-current-selection "" helm-yank-selection " " helm-kill-selection-and-quit "" helm-follow-mode "" helm-force-update [134217840] previous-history-element [134217838] next-history-element [67108897] helm-toggle-suspend-update "b" helm-resume-previous-session-after-quit "" helm-resume-list-buffers-after-quit [C-tab] "" helm-toggle-resplit-and-swap-windows "" helm-debug-output [f1] nil "" "h" where-is-internal describe-mode helm-help] 5) (#$ . 3742)) < (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\321&\210\310\322\323\324\306\301\314\325&\210\310\326\327\330\306\301\314\331&\210\310\332\333\334\306\301\314\331&\210\310\335\302\336\306\301\314\321&\210\337\340\335\"\210\341\340\335\342#\210\310\343\302\344\306\301\314\321&\210\310\345\346\347\306\301\314\350&\210\310\351\352\353\306\301\314\354&\210\310\355\302\356\306\301\314\321&\210\310\357\302\360\306\301\314\315&\210\310\361\362\363\306\301\314\364&\210\310\365\366\367\306\301\314\370&\210\310\371\372\373\306\301\314\364&\210\310\374\302\375\306\301\314\321&\210\310\376\377\201@\306\301\314\201A&\210\310\201B\201C\201D\306\301\314\364&\210\310\201E\302\201F\306\301\314\321&\210\310\201G\302\201H\306\301\314\321&\210\310\201I\201J\201K\306\301\314\201L&\210\310\201M\317\201N\306\301\314\321&\210\310\201O\302\201P\306\301\314\321&\210\310\201Q\302\201R\306\301\314\321&\210\201S\201T\201U\201V\306\301%\210\201S\201W\201X\201Y\306\301%\210\201S\201Z\201[\201\\\306\301%\210\201S\201]\201^\201_\306\301%\210\201S\201`\201a\201b\306\301%\210\201S\201c\201d\201e\306\301%\210\201S\201f\201g\201h\306\301%\207" [custom-declare-group helm nil "Open helm." :prefix "helm-" :group convenience custom-declare-variable helm-completion-window-scroll-margin 5 " `scroll-margin' to use for helm completion window.\nWhich see. Set to 0 to disable.\nNOTE: This have no effect when `helm-display-source-at-screen-top'\nid non--nil." :type integer helm-display-source-at-screen-top t "Display candidates at the top of screen.\nThis happen when using `helm-next-source' and `helm-previous-source'.\nNOTE: When non--nil (default) disable `helm-completion-window-scroll-margin'." boolean helm-candidate-number-limit 100 "Limit candidate number globally.\nDo not show more candidates than this limit from individual sources.\nIt is usually pointless to show hundreds of matches\nwhen the pattern is empty, because it is much simpler to type a\nfew characters to narrow down the list of potential candidates.\n\nSet it to nil if you don't want this limit." (choice (const :tag "Disabled" nil) integer) helm-idle-delay 0.1 "Be idle for this many seconds, before updating in delayed sources.\nThis is useful for sources involving heavy operations\n(like launching external programs), so that candidates\nfrom the source are not retrieved unnecessarily if the user keeps typing.\n\nIt also can be used to declutter the results helm displays,\nso that results from certain sources are not shown with every\ncharacter typed, only if the user hesitates a bit.\nBe sure to know what you are doing when modifying this." float helm-input-idle-delay 0.1 "Be idle for this many seconds, before updating.\n\nUnlike `helm-idle-delay', it is also effective for non-delayed sources.\nIf nil, candidates are collected immediately.\n\nNote: If this value is too low compared to `helm-idle-delay',\nyou may have duplicated sources when using multiples sources.\nSafe value is always >= `helm-idle-delay'.\nDefault settings are equal value for both.\nBe sure to know what you are doing when modifying this." helm-full-frame "Use current window to show the candidates.\nIf t then Helm doesn't pop up a new window." defvaralias helm-samewindow make-obsolete-variable "1.4.8.1" helm-quick-update "If non-nil, suppress displaying sources which are out of screen at first.\nThey are treated as delayed sources at this input.\nThis flag makes `helm' a bit faster with many sources." helm-candidate-separator "--------------------" "Candidates separator of `multiline' source." string helm-save-configuration-functions '(set-window-configuration . current-window-configuration) "The functions used to restore/save window or frame configurations.\nIt is a pair where the car is the function to restore window or frame config,\nand the cdr is the function to save the window or frame config.\n\nIf you want to save and restore frame configuration, set this variable to\n '(set-frame-configuration . current-frame-configuration)\nNOTE: This may not work properly with own-frame minibuffer settings.\nOlder version saves/restores frame configuration, but the default is changed now\nbecause flickering can occur in some environment." sexp helm-persistent-action-use-special-display "If non-nil, use `special-display-function' in persistent action." helm-scroll-amount "Scroll amount when scrolling other window in an helm session.\nIt is used by `helm-scroll-other-window'\nand `helm-scroll-other-window-down'.\n\nIf you prefer scrolling line by line, set this value to 1." helm-display-function 'helm-default-display-buffer "Function to display *helm* buffer.\nIt is `helm-default-display-buffer' by default,\nwhich affects `helm-full-frame'." symbol helm-case-fold-search 'smart "Add 'smart' option to `case-fold-search'.\nWhen smart is enabled, ignore case in the search strings\nif pattern contains no uppercase characters.\nOtherwise, with a nil or t value, the behavior is same as\n`case-fold-search'.\nDefault value is smart, other possible values are nil and t.\nNOTE: This have no effect in asynchronous sources, you will\nhave to implement a similar feature directly in the process.\nSee in helm-grep.el how it is implemented." (choice (const :tag "Ignore case" t) (const :tag "Respect case" nil) (other :tag "Smart" 'smart)) helm-file-name-case-fold-search (if (memq system-type '(cygwin windows-nt ms-dos darwin)) t helm-case-fold-search) "Local setting of `helm-case-fold-search' for reading filenames.\n\nSee `helm-case-fold-search' for more info." helm-reuse-last-window-split-state "Reuse the last state of window split, vertical or horizontal.\nThat is when you use `helm-toggle-resplit-window' the next helm session\nwill reuse the same window scheme than the one of last session." helm-split-window-preferred-function 'helm-split-window-default-fn "Default function used for splitting window." function helm-split-window-default-side 'below "The default side to display `helm-buffer'.\nMust be one acceptable arg for `split-window' SIDE,\nthat is 'below, 'above, 'left or 'right.\nAnother acceptable value is 'same which always display `helm-buffer'\nin current window.\nA nil value as same effect as 'below.\nIf `helm-full-frame' is non--nil, it take precedence on this.\n\nSee also `helm-split-window-in-side-p'.\n\nNOTE: this have no effect if `helm-split-window-preferred-function' is not\n`helm-split-window-default-fn' unless this new function handle this." helm-split-window-in-side-p "Force splitting inside selected window when non--nil.\nSee also `helm-split-window-default-side'.\n\nNOTE: this have no effect if `helm-split-window-preferred-function' is not\n`helm-split-window-default-fn' unless this new function handle this." helm-always-two-windows "When non--nil helm will use two windows in this frame.\nThat is one window to display `helm-buffer' and one to display\n`helm-current-buffer'.\nNote: this have no effect when `helm-split-window-in-side-p' is non--nil,\nor when `helm-split-window-default-side' is set to 'same." helm-sources-using-default-as-input '(helm-source-imenu helm-source-info-elisp helm-source-etags-select) "List of helm sources that need to use `helm-maybe-use-default-as-input'.\nWhen a source is member of this list, default `thing-at-point'\nwill be used as input." (repeat (choice symbol)) helm-never-delay-on-input "Globally disable the use of `while-no-input' in all sources when non--nil.\nThis can be done individually by source adding the attribute\n`no-delay-on-input' in source. This have no effect on async source\nthat are not using `while-no-input'.\nIt is disabled by default because it is not supported on some system\nlike \"Mac Osx\" but it is a good idea to enable it if\nsupported by your system. Known to works fine on GNU/Linux and Windows." helm-delete-minibuffer-contents-from-point "When non--nil, `helm-delete-minibuffer-contents' delete region from `point'.\nOtherwise (default) delete `minibuffer-contents'." helm-follow-mode-persistent "Retrieve last state of `helm-follow-mode' in next helm session when non--nil.\nThis will not make it persistent through emacs sessions though,\nyou will have to set explicitely the `follow' attribute in the source where\nyou want this mode enabled definitely." custom-declare-face helm-source-header ((((background dark)) :background "#22083397778B" :foreground "white" :weight bold :height 1.3 :family "Sans Serif") (((background light)) :background "#abd7f0" :foreground "black" :weight bold :height 1.3 :family "Sans Serif")) "Face for source header in the helm buffer." helm-visible-mark ((((min-colors 88) (background dark)) (:background "green1" :foreground "black")) (((background dark)) (:background "green" :foreground "black")) (((background light)) :background "#d1f5ea") (((min-colors 88)) (:background "green1")) (t (:background "green"))) "Face for visible mark." helm-header ((t (:inherit header-line))) "Face for header lines in the helm buffer." helm-candidate-number ((((background dark)) :background "Yellow" :foreground "black") (((background light)) :background "#faffb5" :foreground "black")) "Face for candidate number in mode-line." helm-selection ((((background dark)) :background "ForestGreen" :underline t) (((background light)) :background "#b5ffd1" :underline t)) "Face for currently selected item in the helm buffer." helm-separator ((((background dark)) :foreground "red") (((background light)) :foreground "#ffbfb5")) "Face for multiline source separator." helm-action ((t (:underline t))) "Face for action lines in the helm action buffer."] 8) --- > (defvar helm-map (byte-code "\305 \306 \"\210\307\310\311#\210\307\312\313#\210\307\314\311#\210\307\315\313#\210\307\316\317#\210\307\320\321#\210\307\322\317#\210\307\323\321#\210\307\324\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210\307\342\343#\210\307\344\345#\210\307\346\347#\210\307\350\333#\210\307\351\352#\210\307\353\354#\210\307\355\356#\210\307\357\356#\210\307\360\361#\210\307\362\361#\210\307\363\361#\210\307\364\356#\210\307\365\361#\210\307\366\367#\210\307\370\367#\210\307\371\372#\210\307\373\374#\210\307\375\376#\210\307\377\201@#\210\307\201A\201B#\210\307\201C\201D#\210\307\201E\201F#\210\307\201G\201H#\210\307\201I\201J#\210\307\201K\201L#\210\307\201M\201N#\210\307\201O\201N#\210\307\201P\201N#\210\307\201Q\201R#\210\307\201S\201T#\210\307\201U\201V#\210\307\201W\201X#\210\307\201Y\201Z#\210\307\201[\201\\#\210\307\201]\201^#\210\307\201_\201`#\210\307\201a\201b#\210\307\201c\201d#\210\307\201e\201f#\210\307\201g\201h#\210\307\201i\201j#\210\307\201k\201N#\210\307\201l\201m#\210\307\201n\201N#\210\307\201n\201o#\210\307\201p\201q#\210\307\201r\201N#\210\307\201s\201N#\210\201t\201u\n\"\201q\211\203\f@\307 \201v#\210\fA\211\204 *)\207" [map minibuffer-local-map global-map k #1=#:--cl-dolist-temp-- make-sparse-keymap set-keymap-parent define-key [down] helm-next-line [up] helm-previous-line "" "" [prior] helm-previous-page [next] helm-next-page [134217846] "" [134217788] helm-beginning-of-buffer [134217790] helm-end-of-buffer "" helm-keyboard-quit [right] helm-next-source [left] helm-previous-source " " helm-exit-minibuffer " " helm-select-action "" helm-execute-persistent-action "" helm-select-2nd-action-or-end-of-line "\n" helm-select-3rd-action "" "\f" helm-recenter-top-bottom-other-window [134217740] helm-reposition-window-other-window [134217750] helm-scroll-other-window [M-next] [134217753] helm-scroll-other-window-down [167772182] [M-prior] [C-M-down] [C-M-up] [67108896] helm-toggle-visible-mark [134217760] [134217819] helm-prev-visible-mark [134217821] helm-next-visible-mark " " helm-delete-minibuffer-contents "" helm-quit-and-find-file [134217837] helm-toggle-all-marks [134217825] helm-mark-all [134217845] helm-unmark-all "" helm-yank-text-at-point [134217729] helm-show-all-in-this-source-only [134217733] helm-display-all-sources "" undefined "" [134217843] [67108989] helm-narrow-window [67108987] helm-enlarge-window "-" helm-swap-windows "" helm-delete-current-selection "" helm-yank-selection " " helm-kill-selection-and-quit "" helm-follow-mode "" helm-force-update [134217840] previous-history-element [134217838] next-history-element [67108897] helm-toggle-suspend-update "b" helm-resume-previous-session-after-quit "" helm-resume-list-buffers-after-quit [C-tab] "" helm-toggle-resplit-and-swap-windows "" helm-debug-output [f1] nil "" "h" where-is-internal describe-mode helm-help] 5) (#$ . 3833)) > (custom-declare-group 'helm nil "Open helm." :prefix "helm-" :group 'convenience) > #@166 `scroll-margin' to use for helm completion window. > Which see. Set to 0 to disable. > NOTE: This have no effect when `helm-display-source-at-screen-top' > id non--nil. > (custom-declare-variable 'helm-completion-window-scroll-margin '5 '(#$ . 7048) :group 'helm :type 'integer) > #@190 Display candidates at the top of screen. > This happen when using `helm-next-source' and `helm-previous-source'. > NOTE: When non--nil (default) disable `helm-completion-window-scroll-margin'. > (custom-declare-variable 'helm-display-source-at-screen-top 't '(#$ . 7328) :group 'helm :type 'boolean) > #@328 Limit candidate number globally. > Do not show more candidates than this limit from individual sources. > It is usually pointless to show hundreds of matches > when the pattern is empty, because it is much simpler to type a > few characters to narrow down the list of potential candidates. > > Set it to nil if you don't want this limit. > (custom-declare-variable 'helm-candidate-number-limit '100 '(#$ . 7629) :group 'helm :type '(choice (const :tag "Disabled" nil) integer)) > #@481 Be idle for this many seconds, before updating in delayed sources. > This is useful for sources involving heavy operations > (like launching external programs), so that candidates > from the source are not retrieved unnecessarily if the user keeps typing. > > It also can be used to declutter the results helm displays, > so that results from certain sources are not shown with every > character typed, only if the user hesitates a bit. > Be sure to know what you are doing when modifying this. > (custom-declare-variable 'helm-idle-delay '0.1 '(#$ . 8101) :group 'helm :type 'float) > #@436 Be idle for this many seconds, before updating. > > Unlike `helm-idle-delay', it is also effective for non-delayed sources. > If nil, candidates are collected immediately. > > Note: If this value is too low compared to `helm-idle-delay', > you may have duplicated sources when using multiples sources. > Safe value is always >= `helm-idle-delay'. > Default settings are equal value for both. > Be sure to know what you are doing when modifying this. > (custom-declare-variable 'helm-input-idle-delay '0.1 '(#$ . 8675) :group 'helm :type 'float) > #@88 Use current window to show the candidates. > If t then Helm doesn't pop up a new window. > (custom-declare-variable 'helm-full-frame 'nil '(#$ . 9209) :group 'helm :type 'boolean) > (byte-code "\300\301\302\"\210\303\301\302\304#\207" [defvaralias helm-samewindow helm-full-frame make-obsolete-variable "1.4.8.1"] 4) > #@181 If non-nil, suppress displaying sources which are out of screen at first. > They are treated as delayed sources at this input. > This flag makes `helm' a bit faster with many sources. > (custom-declare-variable 'helm-quick-update 'nil '(#$ . 9527) :group 'helm :type 'boolean) > #@45 Candidates separator of `multiline' source. > (custom-declare-variable 'helm-candidate-separator '"--------------------" '(#$ . 9804) :group 'helm :type 'string) > #@543 The functions used to restore/save window or frame configurations. > It is a pair where the car is the function to restore window or frame config, > and the cdr is the function to save the window or frame config. > > If you want to save and restore frame configuration, set this variable to > '(set-frame-configuration . current-frame-configuration) > NOTE: This may not work properly with own-frame minibuffer settings. > Older version saves/restores frame configuration, but the default is changed now > because flickering can occur in some environment. > (custom-declare-variable 'helm-save-configuration-functions ''(set-window-configuration . current-window-configuration) '(#$ . 9971) :group 'helm :type 'sexp) > #@66 If non-nil, use `special-display-function' in persistent action. > (custom-declare-variable 'helm-persistent-action-use-special-display 'nil '(#$ . 10678) :group 'helm :type 'boolean) > #@201 Scroll amount when scrolling other window in an helm session. > It is used by `helm-scroll-other-window' > and `helm-scroll-other-window-down'. > > If you prefer scrolling line by line, set this value to 1. > (custom-declare-variable 'helm-scroll-amount 'nil '(#$ . 10867) :group 'helm :type 'integer) > #@117 Function to display *helm* buffer. > It is `helm-default-display-buffer' by default, > which affects `helm-full-frame'. > (custom-declare-variable 'helm-display-function ''helm-default-display-buffer '(#$ . 11167) :group 'helm :type 'symbol) > #@448 Add 'smart' option to `case-fold-search'. > When smart is enabled, ignore case in the search strings > if pattern contains no uppercase characters. > Otherwise, with a nil or t value, the behavior is same as > `case-fold-search'. > Default value is smart, other possible values are nil and t. > NOTE: This have no effect in asynchronous sources, you will > have to implement a similar feature directly in the process. > See in helm-grep.el how it is implemented. > (custom-declare-variable 'helm-case-fold-search ''smart '(#$ . 11410) :group 'helm :type '(choice (const :tag "Ignore case" t) (const :tag "Respect case" nil) (other :tag "Smart" 'smart))) > #@109 Local setting of `helm-case-fold-search' for reading filenames. > > See `helm-case-fold-search' for more info. > (custom-declare-variable 'helm-file-name-case-fold-search '(if (memq system-type '(cygwin windows-nt ms-dos darwin)) t helm-case-fold-search) '(#$ . 12053) :group 'helm :type 'symbol) > #@199 Reuse the last state of window split, vertical or horizontal. > That is when you use `helm-toggle-resplit-window' the next helm session > will reuse the same window scheme than the one of last session. > (custom-declare-variable 'helm-reuse-last-window-split-state 'nil '(#$ . 12352) :group 'helm :type 'boolean) > #@45 Default function used for splitting window. > (custom-declare-variable 'helm-split-window-preferred-function ''helm-split-window-default-fn '(#$ . 12665) :group 'helm :type 'function) > #@511 The default side to display `helm-buffer'. > Must be one acceptable arg for `split-window' SIDE, > that is 'below, 'above, 'left or 'right. > Another acceptable value is 'same which always display `helm-buffer' > in current window. > A nil value as same effect as 'below. > If `helm-full-frame' is non--nil, it take precedence on this. > > See also `helm-split-window-in-side-p'. > > NOTE: this have no effect if `helm-split-window-preferred-function' is not > `helm-split-window-default-fn' unless this new function handle this. > (custom-declare-variable 'helm-split-window-default-side ''below '(#$ . 12854) :group 'helm :type 'symbol) > #@243 Force splitting inside selected window when non--nil. > See also `helm-split-window-default-side'. > > NOTE: this have no effect if `helm-split-window-preferred-function' is not > `helm-split-window-default-fn' unless this new function handle this. > (custom-declare-variable 'helm-split-window-in-side-p 'nil '(#$ . 13478) :group 'helm :type 'boolean) > #@274 When non--nil helm will use two windows in this frame. > That is one window to display `helm-buffer' and one to display > `helm-current-buffer'. > Note: this have no effect when `helm-split-window-in-side-p' is non--nil, > or when `helm-split-window-default-side' is set to 'same. > (custom-declare-variable 'helm-always-two-windows 'nil '(#$ . 13829) :group 'helm :type 'boolean) > #@160 List of helm sources that need to use `helm-maybe-use-default-as-input'. > When a source is member of this list, default `thing-at-point' > will be used as input. > (custom-declare-variable 'helm-sources-using-default-as-input ''(helm-source-imenu helm-source-info-elisp helm-source-etags-select) '(#$ . 14207) :group 'helm :type '(repeat (choice symbol))) > #@435 Globally disable the use of `while-no-input' in all sources when non--nil. > This can be done individually by source adding the attribute > `no-delay-on-input' in source. This have no effect on async source > that are not using `while-no-input'. > It is disabled by default because it is not supported on some system > like "Mac Osx" but it is a good idea to enable it if > supported by your system. Known to works fine on GNU/Linux and Windows. > (custom-declare-variable 'helm-never-delay-on-input 't '(#$ . 14565) :group 'helm :type 'boolean) > #@128 When non--nil, `helm-delete-minibuffer-contents' delete region from `point'. > Otherwise (default) delete `minibuffer-contents'. > (custom-declare-variable 'helm-delete-minibuffer-contents-from-point 'nil '(#$ . 15104) :group 'helm :type 'boolean) > #@258 Retrieve last state of `helm-follow-mode' in next helm session when non--nil. > This will not make it persistent through emacs sessions though, > you will have to set explicitely the `follow' attribute in the source where > you want this mode enabled definitely. > (custom-declare-variable 'helm-follow-mode-persistent 'nil '(#$ . 15355) :group 'helm :type 'boolean) > (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\207" [custom-declare-face helm-source-header ((((background dark)) :background "#22083397778B" :foreground "white" :weight bold :height 1.3 :family "Sans Serif") (((background light)) :background "#abd7f0" :foreground "black" :weight bold :height 1.3 :family "Sans Serif")) "Face for source header in the helm buffer." :group helm helm-visible-mark ((((min-colors 88) (background dark)) (:background "green1" :foreground "black")) (((background dark)) (:background "green" :foreground "black")) (((background light)) :background "#d1f5ea") (((min-colors 88)) (:background "green1")) (t (:background "green"))) "Face for visible mark." helm-header ((t (:inherit header-line))) "Face for header lines in the helm buffer." helm-candidate-number ((((background dark)) :background "Yellow" :foreground "black") (((background light)) :background "#faffb5" :foreground "black")) "Face for candidate number in mode-line." helm-selection ((((background dark)) :background "ForestGreen" :underline t) (((background light)) :background "#b5ffd1" :underline t)) "Face for currently selected item in the helm buffer." helm-separator ((((background dark)) :foreground "red") (((background light)) :foreground "#ffbfb5")) "Face for multiline source separator." helm-action ((t (:underline t))) "Face for action lines in the helm action buffer."] 6) 60c195 < (defvar helm-type-attributes nil (#$ . 16578)) --- > (defvar helm-type-attributes nil (#$ . 17267)) 65c200 < (defvar helm-source-filter nil (#$ . 17001)) --- > (defvar helm-source-filter nil (#$ . 17690)) 67c202 < (defvar helm-action-buffer "*helm action*" (#$ . 17212)) --- > (defvar helm-action-buffer "*helm action*" (#$ . 17901)) 69c204 < (defvar helm-selection-overlay nil (#$ . 17299)) --- > (defvar helm-selection-overlay nil (#$ . 17988)) 71c206 < (defvar helm-async-processes nil (#$ . 17409)) --- > (defvar helm-async-processes nil (#$ . 18098)) 74c209 < (defvar helm-before-initialize-hook nil (#$ . 17528)) --- > (defvar helm-before-initialize-hook nil (#$ . 18217)) 78c213 < (defvar helm-after-initialize-hook nil (#$ . 17679)) --- > (defvar helm-after-initialize-hook nil (#$ . 18368)) 83c218 < (defvar helm-update-hook nil (#$ . 17872)) --- > (defvar helm-update-hook nil (#$ . 18561)) 87c222 < (defvar helm-after-update-hook nil (#$ . 18130)) --- > (defvar helm-after-update-hook nil (#$ . 18819)) 90c225 < (defvar helm-cleanup-hook nil (#$ . 18396)) --- > (defvar helm-cleanup-hook nil (#$ . 19085)) 92c227 < (defvar helm-select-action-hook nil (#$ . 18535)) --- > (defvar helm-select-action-hook nil (#$ . 19224)) 97c232 < (defvar helm-before-action-hook nil (#$ . 18628)) --- > (defvar helm-before-action-hook nil (#$ . 19317)) 99c234 < (defvar helm-after-action-hook nil (#$ . 18825)) --- > (defvar helm-after-action-hook nil (#$ . 19514)) 101c236 < (defvar helm-after-persistent-action-hook nil (#$ . 18908)) --- > (defvar helm-after-persistent-action-hook nil (#$ . 19597)) 103c238 < (defvar helm-move-selection-before-hook nil (#$ . 19013)) --- > (defvar helm-move-selection-before-hook nil (#$ . 19702)) 105c240 < (defvar helm-move-selection-after-hook nil (#$ . 19123)) --- > (defvar helm-move-selection-after-hook nil (#$ . 19812)) 107c242 < (defvar helm-restored-variables '(helm-candidate-number-limit helm-source-filter helm-source-in-each-line-flag helm-map helm-sources) (#$ . 19231)) --- > (defvar helm-restored-variables '(helm-candidate-number-limit helm-source-filter helm-source-in-each-line-flag helm-map helm-sources) (#$ . 19920)) 109c244 < (defvar helm-execute-action-at-once-if-one nil (#$ . 19439)) --- > (defvar helm-execute-action-at-once-if-one nil (#$ . 20128)) 112c247 < (defvar helm-quit-if-no-candidate nil (#$ . 19577)) --- > (defvar helm-quit-if-no-candidate nil (#$ . 20266)) 116c251 < (defvar helm-maybe-use-default-as-input nil (#$ . 19753)) --- > (defvar helm-maybe-use-default-as-input nil (#$ . 20442)) 119c254 < (defvar helm-source-in-each-line-flag nil (#$ . 19962)) --- > (defvar helm-source-in-each-line-flag nil (#$ . 20651)) 122c257 < (defvar helm-debug-variables nil (#$ . 20110)) --- > (defvar helm-debug-variables nil (#$ . 20799)) 127c262 < (defvar helm-debug nil (#$ . 20323)) --- > (defvar helm-debug nil (#$ . 21012)) 129c264 < (defvar helm-compile-source-functions '(helm-compile-source--type helm-compile-source--dummy helm-compile-source--candidates-in-buffer) (#$ . 20577)) --- > (defvar helm-compile-source-functions '(helm-compile-source--type helm-compile-source--dummy helm-compile-source--candidates-in-buffer) (#$ . 21266)) 131c266 < (defvar helm-current-prefix-arg nil (#$ . 20792)) --- > (defvar helm-current-prefix-arg nil (#$ . 21481)) 133c268 < (defvar helm-saved-action nil (#$ . 20901)) --- > (defvar helm-saved-action nil (#$ . 21590)) 135c270 < (defvar helm-saved-current-source nil (#$ . 21004)) --- > (defvar helm-saved-current-source nil (#$ . 21693)) 137c272 < (defvar helm-compiled-sources nil (#$ . 21121)) --- > (defvar helm-compiled-sources nil (#$ . 21810)) 139c274 < (defvar helm-in-persistent-action nil (#$ . 21211)) --- > (defvar helm-in-persistent-action nil (#$ . 21900)) 141c276 < (defvar helm-last-buffer nil (#$ . 21311)) --- > (defvar helm-last-buffer nil (#$ . 22000)) 143c278 < (defvar helm-saved-selection nil (#$ . 21404)) --- > (defvar helm-saved-selection nil (#$ . 22093)) 147c282 < (defvar helm-buffer "*helm*" (#$ . 21593)) --- > (defvar helm-buffer "*helm*" (#$ . 22282)) 149c284 < (defvar helm-current-buffer nil (#$ . 21670)) --- > (defvar helm-current-buffer nil (#$ . 22359)) 151c286 < (defvar helm-buffer-file-name nil (#$ . 21761)) --- > (defvar helm-buffer-file-name nil (#$ . 22450)) 153c288 < (defvar helm-default-directory nil (#$ . 21867)) --- > (defvar helm-default-directory nil (#$ . 22556)) 155c290 < (defvar helm-candidate-cache (make-hash-table :test 'equal) (#$ . 21983)) --- > (defvar helm-candidate-cache (make-hash-table :test 'equal) (#$ . 22672)) 157c292 < (defvar helm-pattern "" (#$ . 22126)) --- > (defvar helm-pattern "" (#$ . 22815)) 159c294 < (defvar helm-input "" (#$ . 22220)) --- > (defvar helm-input "" (#$ . 22909)) 161c296 < (defvar helm-input-local nil (#$ . 22303)) --- > (defvar helm-input-local nil (#$ . 22992)) 172c307 < (defvar helm-debug-root-directory nil (#$ . 22698)) --- > (defvar helm-debug-root-directory nil (#$ . 23387)) 174c309 < (defvar helm-last-log-file nil (#$ . 22974)) --- > (defvar helm-last-log-file nil (#$ . 23663)) 190c325 < (defvar helm-exit-status 0 (#$ . 23443)) --- > (defvar helm-exit-status 0 (#$ . 24132)) 194c329 < (defvar helm-attributes nil (#$ . 23857)) --- > (defvar helm-attributes nil (#$ . 24546)) 196c331 < (defvar helm-buffers nil (#$ . 23936)) --- > (defvar helm-buffers nil (#$ . 24625)) 200c335 < (defvar helm-current-position nil (#$ . 24032)) --- > (defvar helm-current-position nil (#$ . 24721)) 202c337 < (defvar helm-last-frame-or-window-configuration nil (#$ . 24233)) --- > (defvar helm-last-frame-or-window-configuration nil (#$ . 24922)) 208c343 < (defvar helm-marked-candidates nil (#$ . 24511)) --- > (defvar helm-marked-candidates nil (#$ . 25200)) 215c350 < (defalias 'helm-log #[(format-string &rest args) "\204 \2053r\306\n!q\210\307 \210\310\303!\210\311db\210\312 \313\314\315\316\f\"\317\f8\320 \321\313 B\"%)c)\207" [debug-on-error helm-debug helm-debug-buffer inhibit-read-only tm format-string get-buffer-create buffer-disable-undo make-local-variable t current-time format "%s.%06d (%s) %s\n" format-time-string "%H:%M:%S" 2 helm-log-get-current-function apply args] 9 (#$ . 24656)]) --- > (defalias 'helm-log #[(format-string &rest args) "\204 \2053r\306\n!q\210\307 \210\310\303!\210\311db\210\312 \313\314\315\316\f\"\317\f8\320 \321\313 B\"%)c)\207" [debug-on-error helm-debug helm-debug-buffer inhibit-read-only tm format-string get-buffer-create buffer-disable-undo make-local-variable t current-time format "%s.%06d (%s) %s\n" format-time-string "%H:%M:%S" 2 helm-log-get-current-function apply args] 9 (#$ . 25345)]) 217c352 < (defalias 'helm-log-eval '(macro . #[(&rest exprs) "\301\302DD\207" [exprs helm-log-eval-internal quote] 3 (#$ . 25325)])) --- > (defalias 'helm-log-eval '(macro . #[(&rest exprs) "\301\302DD\207" [exprs helm-log-eval-internal quote] 3 (#$ . 26014)])) 219c354 < (defalias 'helm-log-run-hook #[(hook) "\301\302\"\210\303!\203\304\305!\210\304\306!\210\307!\210\301\310\"\207" [hook helm-log "executing %s" boundp helm-log-eval-internal ((symbol-value hook)) ((default-value hook)) run-hooks "executed %s"] 3 (#$ . 25518)]) --- > (defalias 'helm-log-run-hook #[(hook) "\301\302\"\210\303!\203\304\305!\210\304\306!\210\307!\210\301\310\"\207" [hook helm-log "executing %s" boundp helm-log-eval-internal ((symbol-value hook)) ((default-value hook)) run-hooks "executed %s"] 3 (#$ . 26207)]) 221c356 < (defalias 'helm-log-eval-internal #[(exprs) "\303\211\205\n@\304\305\306\217\210\nA\211\204\303*\207" [exprs expr --dolist-tail-- nil err (byte-code "\204 \203\303\304\n\305\n!#\210\303\207" [debug-on-error helm-debug expr helm-log "%S = %S" eval] 5) ((error (helm-log "%S = ERROR: %S" expr err)))] 4 (#$ . 25860)]) --- > (defalias 'helm-log-eval-internal #[(exprs) "\303\211\205\n@\304\305\306\217\210\nA\211\204\303*\207" [exprs expr #1=#:--cl-dolist-temp-- nil err (byte-code "\204 \203\303\304\n\305\n!#\210\303\207" [debug-on-error helm-debug expr helm-log "%S = %S" eval] 5) ((error (helm-log "%S = ERROR: %S" expr err)))] 4 (#$ . 26549)]) 224c359 < (defalias 'helm-log-get-current-function #[nil "\306\307\310\211\311\310 \312X\203I\313 !\211A@\262\2119\203&\314\n!\202'\315\316\317 \"\203>\316 \"\204> \310\211\202?\311\203I T\211\202 .\207" [exclude-func-re btn btf fn #1=#:--cl-var-- #2=#:--cl-var-- "^helm-\\(?:interpret\\|log\\|.*funcall\\)" 1 nil t 40 backtrace-frame symbol-name "" string-match "^helm"] 4 (#$ . 26245)]) --- > (defalias 'helm-log-get-current-function #[nil "\306\307\310\211\311\310 \312X\203J\313 !\211A@)\2119\203'\314\n!\202(\315\316\317 \"\203?\316 \"\204? \310\211\202@\311\203J T\211\202 .\207" [exclude-func-re btn btf fn #1=#:--cl-var-- #2=#:--cl-var-- "^helm-\\(?:interpret\\|log\\|.*funcall\\)" 1 nil t 40 backtrace-frame symbol-name "" string-match "^helm" x] 4 (#$ . 26942)]) 227c362 < (defalias 'helm-log-error #[(&rest args) "\303\304\305@PA#\210\303\306\"\211\n\235?\205\307\302 \")\207" [args msg helm-issued-errors apply helm-log "ERROR: " format add-to-list] 5 (#$ . 26740)]) --- > (defalias 'helm-log-error #[(&rest args) "\303\304\305@PA#\210\303\306\"\211\n\235?\205\307\302 \")\207" [args msg helm-issued-errors apply helm-log "ERROR: " format add-to-list] 5 (#$ . 27437)]) 233c368 < (defalias 'helm-log-save-maybe #[nil ";\2059\306!\2059 \204\n\2059\307\310\311\312!P\"\313 \314\"\210r\315\f!q\210\316ed\307\311\317! \"\211\320\321%\210\322 *\207" [helm-debug-root-directory debug-on-error helm-debug logdir helm-debug-buffer helm-last-log-file file-directory-p expand-file-name "helm-debug-" format-time-string "%Y%m%d" make-directory t get-buffer-create write-region "%Y%m%d-%H%M%S" nil silent kill-buffer] 6 (#$ . 27035)]) --- > (defalias 'helm-log-save-maybe #[nil ";\2059\306!\2059 \204\n\2059\307\310\311\312!P\"\313 \314\"\210r\315\f!q\210\316ed\307\311\317! \"\211\320\321%\210\322 *\207" [helm-debug-root-directory debug-on-error helm-debug logdir helm-debug-buffer helm-last-log-file file-directory-p expand-file-name "helm-debug-" format-time-string "%Y%m%d" make-directory t get-buffer-create write-region "%Y%m%d-%H%M%S" nil silent kill-buffer] 6 (#$ . 27732)]) 236c371 < (defalias 'helm-open-last-log #[nil "\203\302!\207\303 !\210\304\305!\210\306\305!\207" [helm-last-log-file helm-debug-buffer view-file switch-to-buffer view-mode 1 visual-line-mode] 2 (#$ . 27764) nil]) --- > (defalias 'helm-open-last-log #[nil "\203\302!\207\303 !\210\304\305!\210\306\305!\207" [helm-last-log-file helm-debug-buffer view-file switch-to-buffer view-mode 1 visual-line-mode] 2 (#$ . 28461) nil]) 238c373 < (defalias 'helm-print-error-messages #[nil "\205\301\302\303\304\305!\306#\"\207" [helm-issued-errors message "%s" mapconcat identity reverse "\n"] 6 (#$ . 28083)]) --- > (defalias 'helm-print-error-messages #[nil "\205\301\302\303\304\305!\306#\"\207" [helm-issued-errors message "%s" mapconcat identity reverse "\n"] 6 (#$ . 28780)])(if macro-declaration-function (funcall macro-declaration-function (quote helm-aif) (quote (declare (indent 2) (debug t))))) 241,242c376 < (defalias 'helm-aif '(macro . #[(test-form then-form &rest else-forms) "\303\304DC\305\304 \nBBBE\207" [test-form then-form else-forms let it if] 6 (#$ . 28305)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put helm-aif lisp-indent-function 2 edebug-form-spec t] 4) --- > (defalias 'helm-aif '(macro . #[(test-form then-form &rest else-forms) "\303\304DC\305\304 \nBBBE\207" [test-form then-form else-forms let it if] 6 (#$ . 29126)])) 245c379 < (defalias 'helm-mklist #[(obj) "<\203 \301!\204 \207C\207" [obj functionp] 2 (#$ . 28731)]) --- > (defalias 'helm-mklist #[(obj) "<\203 \301!\204 \207C\207" [obj functionp] 2 (#$ . 29436)]) 249c383 < (defalias 'helm-this-command #[nil "\306\307\310\211\311\310 \312X\203W\313 !\211\211A@\262\314 !\2031 >\2041 \310\211\202M \315=\203L\nG\316V\203L\nA\211A@\262\310\211\202M\311\203W T\211\202 .\207" [bl count btf fn #1=#:--cl-var-- #2=#:--cl-var-- (helm-exit-minibuffer exit-minibuffer) 1 nil t 50 backtrace-frame commandp call-interactively 2] 3 (#$ . 28926)]) --- > (defalias 'helm-this-command #[nil "\306\307\310\211\311\310 \312X\203Y\313 !\211\211A@)\314 !\2032 >\2042 \310\211\202O \315=\203N\nG\316V\203N\nA\211A@)\310\211\202O\311\203Y T\211\202 .\207" [bl count btf fn #1=#:--cl-var-- #2=#:--cl-var-- (helm-exit-minibuffer exit-minibuffer) 1 nil t 50 backtrace-frame commandp call-interactively 2 x] 3 (#$ . 29631)]) 251c385 < (defalias 'helm-buffer-get #[nil "\302 \203\207 \207" [helm-action-buffer helm-buffer helm-action-window] 1 (#$ . 29453)]) --- > (defalias 'helm-buffer-get #[nil "\302 \203\207 \207" [helm-action-buffer helm-buffer helm-action-window] 1 (#$ . 30156)]) 253c387 < (defalias 'helm-window #[nil "\300\301 \302\"\207" [get-buffer-window helm-buffer-get visible] 3 (#$ . 29647)]) --- > (defalias 'helm-window #[nil "\300\301 \302\"\207" [get-buffer-window helm-buffer-get visible] 3 (#$ . 30350)]) 255c389 < (defalias 'helm-action-window #[nil "\301\302\"\207" [helm-action-buffer get-buffer-window visible] 3 (#$ . 29790)]) --- > (defalias 'helm-action-window #[nil "\301\302\"\207" [helm-action-buffer get-buffer-window visible] 3 (#$ . 30493)])(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-window) (quote (declare (indent 0) (debug t))))) 257,258c391 < (defalias 'with-helm-window '(macro . #[(&rest body) "\301\302BB\207" [body with-selected-window (helm-window)] 3 (#$ . 29946)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-window lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-window '(macro . #[(&rest body) "\301\302BB\207" [body with-selected-window (helm-window)] 3 (#$ . 30781)]))(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-current-buffer) (quote (declare (indent 0) (debug t))))) 260,261c393 < (defalias 'with-helm-current-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))] 3 (#$ . 30251)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-current-buffer lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-current-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))] 3 (#$ . 31102)]))(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-buffer) (quote (declare (indent 0) (debug t))))) 263,264c395 < (defalias 'with-helm-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (helm-buffer-get)] 3 (#$ . 30664)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-buffer lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (helm-buffer-get)] 3 (#$ . 31515)]))(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-restore-variables) (quote (declare (indent 0) (debug t))))) 266,267c397 < (defalias 'with-helm-restore-variables '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let ((orig-vars (mapcar (lambda (v) (cons v (symbol-value v))) helm-restored-variables))) unwind-protect progn ((loop for (var . value) in orig-vars do (set var value)) (helm-log "restore variables"))] 5 (#$ . 30960)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-restore-variables lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-restore-variables '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let ((orig-vars (mapcar (lambda (v) (cons v (symbol-value v))) helm-restored-variables))) unwind-protect progn ((loop for (var . value) in orig-vars do (set var value)) (helm-log "restore variables"))] 5 (#$ . 31830)]))(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-default-directory) (quote (declare (indent 2) (debug t))))) 269d398 < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-default-directory lisp-indent-function 2 edebug-form-spec t] 4) 271c400 < (defalias 'helm-default-directory #[nil "\301\302\303!\"\207" [helm-buffer buffer-local-value helm-default-directory get-buffer] 4 (#$ . 31824)]) --- > (defalias 'helm-default-directory #[nil "\301\302\303!\"\207" [helm-buffer buffer-local-value helm-default-directory get-buffer] 4 (#$ . 32567)])(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-temp-hook) (quote (declare (indent 1) (debug t))))) 273,274c402 < (defalias 'with-helm-temp-hook '(macro . #[(hook &rest body) "\303\304!\305\306\307\310\305 B\311\n\312DEEF\313\n\312DEE)\207" [fun body hook gensym "helm-hook" progn defun nil unwind-protect remove-hook quote add-hook] 10 (#$ . 32023)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-temp-hook lisp-indent-function 1 edebug-form-spec t] 4) --- > (defalias 'with-helm-temp-hook '(macro . #[(hook &rest body) "\303\304!\305\306\307\310\305 B\311\n\312DEEF\313\n\312DEE)\207" [fun body hook gensym "helm-hook" progn defun nil unwind-protect remove-hook quote add-hook] 10 (#$ . 32901)]))(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-after-update-hook) (quote (declare (indent 0) (debug t))))) 276,277c404 < (defalias 'with-helm-after-update-hook '(macro . #[(&rest body) "\301\302BB\207" [body with-helm-temp-hook 'helm-after-update-hook] 3 (#$ . 32448)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-after-update-hook lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-after-update-hook '(macro . #[(&rest body) "\301\302BB\207" [body with-helm-temp-hook 'helm-after-update-hook] 3 (#$ . 33342)])) 284c411 < (defalias 'helm-attr #[(attribute-name &rest #1=#:--cl-rest--) "\203\f\211A@\202\305 \211A@\203#\306\307\310\311G\\D\"\210 \236\211\2058\n\2036\312\fA!\2028\fA+\207" [#1# src compute attribute-name it helm-get-current-source signal wrong-number-of-arguments helm-attr 3 helm-interpret-value] 6 (#$ . 32779)]) --- > (defalias 'helm-attr #[(attribute-name &rest #1=#:--cl-rest--) "\203\f\211A@\202\305 \211A@\203#\306\307\310\311G\\D\"\210 \236\211\2058\n\2036\312\fA!\2028\fA+\207" [#1# src compute attribute-name it helm-get-current-source signal wrong-number-of-arguments helm-attr 3 helm-interpret-value] 6 (#$ . 33538)]) 289c416 < (defalias 'helm-attr-defined #[(attribute-name &rest #1=#:--cl-rest--) "\203\f\211A@\202\303 \203\304\305\306\307G\\D\"\210\n \236\205$\310)\207" [#1# src attribute-name helm-get-current-source signal wrong-number-of-arguments helm-attr-defined 2 t] 5 (#$ . 33347)]) --- > (defalias 'helm-attr-defined #[(attribute-name &rest #1=#:--cl-rest--) "\203\f\211A@\202\303 \203\304\305\306\307G\\D\"\210\n \236\205$\310)\207" [#1# src attribute-name helm-get-current-source signal wrong-number-of-arguments helm-attr-defined 2 t] 5 (#$ . 34106)]) 295c422 < (defalias 'helm-attrset #[(attribute-name value &rest #1=#:--cl-rest--) "\203\f\211A@\202\305 \203\306\307\310\311G\\D\"\210\n \236\211\203, \f\241\210\2025 \n\fB AB\241\210)\f)\207" [#1# src attribute-name it value helm-get-current-source signal wrong-number-of-arguments helm-attrset 3] 6 (#$ . 33787)]) --- > (defalias 'helm-attrset #[(attribute-name value &rest #1=#:--cl-rest--) "\203\f\211A@\202\305 \203\306\307\310\311G\\D\"\210\n \236\211\203, \f\241\210\2025 \n\fB AB\241\210)\f)\207" [#1# src attribute-name it value helm-get-current-source signal wrong-number-of-arguments helm-attrset 3] 6 (#$ . 34546)]) 297c424 < (defalias 'helm-get-attribute-from-source-type #[(attribute source) "\303\236\205 \304\303\"\n\236\236\207" [source attribute helm-type-attributes type helm-attr] 4 (#$ . 34352)]) --- > (defalias 'helm-get-attribute-from-source-type #[(attribute source) "\303\236\205 \304\303\"\n\236\236\207" [source attribute helm-type-attributes type helm-attr] 4 (#$ . 35111)]) 300c427 < (defalias 'helm-get-attribute-from-type #[(attribute type) " \n\236\236\207" [attribute type helm-type-attributes] 3 (#$ . 34587)]) --- > (defalias 'helm-get-attribute-from-type #[(attribute type) " \n\236\236\207" [attribute type helm-type-attributes] 3 (#$ . 35346)]) 302c429 < (defalias 'helm-get-actions-from-type #[(source) "\301\236\205\n\302\303\"\207" [source type helm-get-attribute-from-source-type action] 3 (#$ . 34815)]) --- > (defalias 'helm-get-actions-from-type #[(source) "\301\236\205\n\302\303\"\207" [source type helm-get-attribute-from-source-type action] 3 (#$ . 35574)]) 304c431 < (defalias 'helm-inherit-attribute-from-source #[(attribute source) " \236\211\203\f\n\202\303 \")\207" [attribute source it helm-get-attribute-from-source-type] 4 (#$ . 35026)]) --- > (defalias 'helm-inherit-attribute-from-source #[(attribute source) " \236\211\203\f\n\202\303 \")\207" [attribute source it helm-get-attribute-from-source-type] 4 (#$ . 35785)]) 306c433 < (defalias 'helm-append-at-nth #[(seq elm index) "\306\211\307\306 :\203H @G V\203  \n B\f U\203?\n<\203:\310\n! \244\202?\n B A\fT\202\n \237-\207" [seq #1=#:--cl-var-- i len count #2=#:--cl-var-- nil 1 reverse index elm] 3 (#$ . 35245)]) --- > (defalias 'helm-append-at-nth #[(seq elm index) "\306\211\307\306 :\203H @G V\203  \n B\f U\203?\n<\203:\310\n! \244\202?\n B A\fT\202\n \237-\207" [seq #1=#:--cl-var-- i len count #2=#:--cl-var-- nil 1 reverse index elm] 3 (#$ . 36004)]) 315c442 < (defalias 'helm-add-action-to-source #[(name fn source &optional index) "\306\307\"\206\f\310\307\"A \nBC\2119\203\311\fBC\312\307 \203*\313\f #\202.\314\f \"#*\207" [source name fn new-action actions index helm-attr action helm-get-attribute-from-source-type "Default action" helm-attrset helm-append-at-nth append] 7 (#$ . 35547)]) --- > (defalias 'helm-add-action-to-source #[(name fn source &optional index) "\306\307\"\206\f\310\307\"A \nBC\2119\203\311\fBC\312\307 \203*\313\f #\202.\314\f \"#*\207" [source name fn new-action actions index helm-attr action helm-get-attribute-from-source-type "Default action" helm-attrset helm-append-at-nth append] 7 (#$ . 36306)]) 319c446 < (defalias 'helm-delete-action-from-source #[(action-or-name source) "\304\305\"\206\f\306\305\"A\n9\203\307\n \"\202\310\n \"\311\305\312 \"#*\207" [source actions action-or-name del-action helm-attr action helm-get-attribute-from-source-type rassoc assoc helm-attrset delete] 5 (#$ . 36332)]) --- > (defalias 'helm-delete-action-from-source #[(action-or-name source) "\304\305\"\206\f\306\305\"A\n9\203\307\n \"\202\310\n \"\311\305\312 \"#*\207" [source actions action-or-name del-action helm-attr action helm-get-attribute-from-source-type rassoc assoc helm-attrset delete] 5 (#$ . 37091)]) 343c470 < (defalias 'helm-add-action-to-source-if #[(name fn source predicate &rest #1=#:--cl-rest--) "\203\f\211A@\202 \306\211A@\203\"\307\310\311\312G\\D\"\210\313\314 \"\206.\315\314 \"A\313\316 \"BC\317\320\321\322\323D\324BB\325\304\323D FD\326BBE \f9\203d\327\314\330\fBC #\210 9\203l C\n\203|\331\332\333 C \"\"\202\211\327\316\331\332\333 C \"\" #.\207" [#1# index test-only source actions action-transformers 4 signal wrong-number-of-arguments helm-add-action-to-source-if 6 helm-attr action helm-get-attribute-from-source-type action-transformer lambda (actions candidate) cond funcall quote (candidate) helm-append-at-nth ((t actions)) helm-attrset "Default action" delq nil append name fn new-action predicate transformer] 8 (#$ . 36771)]) --- > (defalias 'helm-add-action-to-source-if #[(name fn source predicate &rest #1=#:--cl-rest--) "\203\f\211A@\202 \306\211A@\203\"\307\310\311\312G\\D\"\210\313\314 \"\206.\315\314 \"A\313\316 \"BC\317\320\321\322\323D\324BB\325\304\323D FD\326BBE \f9\203d\327\314\330\fBC #\210 9\203l C\n\203|\331\332\333 C \"\"\202\211\327\316\331\332\333 C \"\" #.\207" [#1# index test-only source actions action-transformers 4 signal wrong-number-of-arguments helm-add-action-to-source-if 6 helm-attr action helm-get-attribute-from-source-type action-transformer lambda (actions candidate) cond funcall quote (candidate) helm-append-at-nth ((t actions)) helm-attrset "Default action" delq nil append name fn new-action predicate transformer] 8 (#$ . 37530)]) 372c499 < (defalias 'helm-set-source-filter #[(sources) "<\203*\306\307 :\203! @\211;\211\203! A\211\202\f \205&\307+\204/\310\311\"\210r\fq\210\312\306\307\")\313\314!\210\315 !)\207" [sources #1=#:--cl-var-- name #2=#:--cl-flag-- helm-buffer cur-disp-sel nil t error "Invalid data in `helm-set-source-filter': %S" helm-get-selection helm-log-eval-internal (helm-source-filter) helm-force-update helm-source-filter] 4 (#$ . 38707)]) --- > (defalias 'helm-set-source-filter #[(sources) "<\203*\306\307 :\203! @\211;\211\203! A\211\202\f \205&\307+\204/\310\311\"\210r\fq\210\312\306\307\")\313\314!\210\315 !)\207" [sources #1=#:--cl-var-- name #2=#:--cl-flag-- helm-buffer cur-disp-sel nil t error "Invalid data in `helm-set-source-filter': %S" helm-get-selection helm-log-eval-internal (helm-source-filter) helm-force-update helm-source-filter] 4 (#$ . 39466)]) 376c503 < (defalias 'helm-set-sources #[(sources &optional no-init no-update) "rq\210\306\n\307\310!\210)\f\204\311\312!\210 ?\205\313 \207" [helm-buffer helm-compiled-sources sources helm-sources no-init no-update nil helm-log-eval-internal (helm-compiled-sources helm-sources) helm-funcall-foreach init helm-update] 2 (#$ . 40044)]) --- > (defalias 'helm-set-sources #[(sources &optional no-init no-update) "rq\210\306\n\307\310!\210)\f\204\311\312!\210 ?\205\313 \207" [helm-buffer helm-compiled-sources sources helm-sources no-init no-update nil helm-log-eval-internal (helm-compiled-sources helm-sources) helm-funcall-foreach init helm-update] 2 (#$ . 40803)]) 385c512 < (defalias 'helm-get-sources #[nil "\303 \203\207 \206\304\n\"\211\305\306!\210\207" [helm-sources helm-compiled-sources helm-compile-source-functions helm-action-window helm-compile-sources helm-log-eval-internal (helm-compiled-sources)] 3 (#$ . 40541)]) --- > (defalias 'helm-get-sources #[nil "\303 \203\207 \206\304\n\"\211\305\306!\210\207" [helm-sources helm-compiled-sources helm-compile-source-functions helm-action-window helm-compile-sources helm-log-eval-internal (helm-compiled-sources)] 3 (#$ . 41300)]) 393c520 < (defalias 'helm-get-selection #[(&rest #1=#:--cl-rest--) "\205\306\211A@\211A@\203 \307\310\311\312G\\D\"\210\n\203, \203,\n\202-\f\313\n!?\205\222r\nq\210 \314=\203C\315\202D\316 \204S\317\320!\321\"\206\202 \320!\322!S\"\323  ?\205n\324\325\"\211\203\326#\202\201+\211\327\232?\205\221\330\331!\210++\207" [#1# buffer-s buffer force-display-part helm-buffer disp-fn t signal wrong-number-of-arguments helm-get-selection 2 helm-empty-buffer-p withprop buffer-substring buffer-substring-no-properties get-text-property overlay-start helm-realvalue overlay-end helm-get-current-source assoc-default display-to-real helm-funcall-with-source "" helm-log-eval-internal (selection) helm-selection-overlay source disp it selection] 6 (#$ . 40998)]) --- > (defalias 'helm-get-selection #[(&rest #1=#:--cl-rest--) "\205\306\211A@\211A@\203 \307\310\311\312G\\D\"\210\n\203, \203,\n\202-\f\313\n!?\205\222r\nq\210 \314=\203C\315\202D\316 \204S\317\320!\321\"\206\202 \320!\322!S\"\323  ?\205n\324\325\"\211\203\326#\202\201+\211\327\232?\205\221\330\331!\210++\207" [#1# buffer-s buffer force-display-part helm-buffer disp-fn t signal wrong-number-of-arguments helm-get-selection 2 helm-empty-buffer-p withprop buffer-substring buffer-substring-no-properties get-text-property overlay-start helm-realvalue overlay-end helm-get-current-source assoc-default display-to-real helm-funcall-with-source "" helm-log-eval-internal (selection) helm-selection-overlay source disp it selection] 6 (#$ . 41757)]) 397c524 < (defalias 'helm-get-action #[nil "\301\302 !?\205!\303\304!\211\203\305\306 \303\307!\310 $\202 \303\307!)\207" [it helm-empty-buffer-p helm-buffer-get helm-attr action-transformer helm-composed-funcall-with-source helm-get-current-source action helm-get-selection] 6 (#$ . 42123)]) --- > (defalias 'helm-get-action #[nil "\301\302 !?\205!\303\304!\211\203\305\306 \303\307!\310 $\202 \303\307!)\207" [it helm-empty-buffer-p helm-buffer-get helm-attr action-transformer helm-composed-funcall-with-source helm-get-current-source action helm-get-selection] 6 (#$ . 42882)]) 400c527 < (defalias 'helm-get-current-source #[nil "\302\300!\203 ;\203 \207r\303 q\210\304`\305\"\206\306\307\215)\207" [helm-source-name source boundp helm-buffer-get get-text-property helm-source --cl-block-exit-- (byte-code "\306!b\210\307 \206\f\310 \212 \204\311\312\313\"\210 b\210\314 )\315 \313\316\313 :\203J @\317\320\f\"\n\232\205:\f\211?\211\203J A\211\202).\207" [helm-selection-overlay header-pos source-name #1=#:--cl-var-- source #2=#:--cl-flag-- overlay-start helm-get-previous-header-pos helm-get-next-header-pos throw --cl-block-exit-- nil helm-current-line-contents helm-get-sources t assoc-default name #3=#:--cl-var--] 4)] 3 (#$ . 42554)]) --- > (defalias 'helm-get-current-source #[nil "\302\300!\203 ;\203 \207r\303 q\210\304`\305\"\206\306\307\215)\207" [helm-source-name source boundp helm-buffer-get get-text-property helm-source --cl-block-exit-- (byte-code "\306!b\210\307 \206\f\310 \212 \204\311\312\313\"\210 b\210\314 )\315 \313\316\313 :\203J @\317\320\f\"\n\232\205:\f\211?\211\203J A\211\202).\207" [helm-selection-overlay header-pos source-name #1=#:--cl-var-- source #2=#:--cl-flag-- overlay-start helm-get-previous-header-pos helm-get-next-header-pos throw --cl-block-exit-- nil helm-current-line-contents helm-get-sources t assoc-default name #3=#:--cl-var--] 4)] 3 (#$ . 43313)]) 402c529 < (defalias 'helm-buffer-is-modified #[(buffer) "\306!\307 !\310\311\312!Q\313\n \"\206\314\315 !\f U?\316\n #\210\317\320!\210-\207" [buffer b key helm-tick-hash source-tick buffer-tick get-buffer buffer-name "/" helm-attr name gethash 0 buffer-chars-modified-tick puthash helm-log-eval-internal (buffer modifiedp) modifiedp] 4 (#$ . 43342)]) --- > (defalias 'helm-buffer-is-modified #[(buffer) "\306!\307 !\310\311\312!Q\313\n \"\206\314\315 !\f U?\316\n #\210\317\320!\210-\207" [buffer b key helm-tick-hash source-tick buffer-tick get-buffer buffer-name "/" helm-attr name gethash 0 buffer-chars-modified-tick puthash helm-log-eval-internal (buffer modifiedp) modifiedp] 4 (#$ . 44101)]) 404c531 < (defalias 'helm-current-buffer-is-modified #[nil "\301!\207" [helm-current-buffer helm-buffer-is-modified] 2 (#$ . 43767)]) --- > (defalias 'helm-current-buffer-is-modified #[nil "\301!\207" [helm-current-buffer helm-buffer-is-modified] 2 (#$ . 44526)]) 407c534 < (defalias 'helm-run-after-quit #[(function &rest args) "\303\304 \210\305\306!\210\307\310\311\312 \n%\210\313 \207" [helm-quit function args t helm-kill-async-processes helm-log-eval-internal #'args apply run-with-timer 0.1 nil helm-exit-minibuffer] 6 (#$ . 43967)]) --- > (defalias 'helm-run-after-quit #[(function &rest args) "\303\304 \210\305\306!\210\307\310\311\312 \n%\210\313 \207" [helm-quit function args t helm-kill-async-processes helm-log-eval-internal #'args apply run-with-timer 0.1 nil helm-exit-minibuffer] 6 (#$ . 44726)]) 412c539 < (defalias 'define-helm-type-attribute #[(type definition &optional doc) "\305 :\203 @\305\306\307\217\210 A\211\202*\310 \"\210\f\203'\311 \f\"\210\305\207" [definition #1=#:--cl-var-- i type doc nil (byte-code "\301\302\"\302\207" [i delete nil] 3) ((error)) helm-add-type-attribute helm-document-type-attribute] 4 (#$ . 44336)]) --- > (defalias 'define-helm-type-attribute #[(type definition &optional doc) "\305 :\203 @\305\306\307\217\210 A\211\202*\310 \"\210\f\203'\311 \f\"\210\305\207" [definition #1=#:--cl-var-- i type doc nil (byte-code "\301\302\"\302\207" [i delete nil] 3) ((error)) helm-add-type-attribute helm-document-type-attribute] 4 (#$ . 45095)]) 416c543 < (defalias 'helm-document-attribute #[(attribute short-doc &optional long-doc) "\203\f\303 \304Q\202 \305\306\307\n\310#\210\311\n\312\313\314\n!\315 \316\317\260#\207" [long-doc short-doc attribute "(" ")" "" add-to-list helm-attributes t put helm-attrdoc "- " symbol-name " " "\n\n" "\n"] 10 (#$ . 44872)]) --- > (defalias 'helm-document-attribute #[(attribute short-doc &optional long-doc) "\203\f\303 \304Q\202 \305\306\307\n\310#\210\311\n\312\313\314\n!\315 \316\317\260#\207" [long-doc short-doc attribute "(" ")" "" add-to-list helm-attributes t put helm-attrdoc "- " symbol-name " " "\n\n" "\n"] 10 (#$ . 45631)]) 424c551 < (defalias 'helm-interpret-value #[(value &optional source) "\203\302 !\203\303 \"\207\302 !\203 \207 9\203&\304 !\203& J\207 9\203/\305\306!\207 \207" [source value functionp helm-funcall-with-source boundp error "helm-interpret-value: Symbol must be a function or a variable"] 3 (#$ . 45421)]) --- > (defalias 'helm-interpret-value #[(value &optional source) "\203\302 !\203\303 \"\207\302 !\203 \207 9\203&\304 !\203& J\207 9\203/\305\306!\207 \207" [source value functionp helm-funcall-with-source boundp error "helm-interpret-value: Symbol must be a function or a variable"] 3 (#$ . 46180)]) 429c556 < (defalias 'helm-empty-buffer-p #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \203\303\304\305GTD\"\210\306\307\n\205$\310\n!!!)\207" [#1# helm-buffer buffer signal wrong-number-of-arguments helm-empty-buffer-p zerop buffer-size get-buffer] 4 (#$ . 46064)]) --- > (defalias 'helm-empty-buffer-p #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \203\303\304\305GTD\"\210\306\307\n\205$\310\n!!!)\207" [#1# helm-buffer buffer signal wrong-number-of-arguments helm-empty-buffer-p zerop buffer-size get-buffer] 4 (#$ . 46823)]) 433c560 < (defalias 'helm-empty-source-p #[nil "\301\302 !r\303\216\304@\305\"\210\306 \206+\307 \205+\310 \311 =\205+\212\312y\210\313 )\206+o+\207" [save-selected-window--state internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-empty-buffer-p helm-end-of-source-p point-at-bol point-at-eol -1 helm-pos-header-line-p] 3 (#$ . 46452)]) --- > (defalias 'helm-empty-source-p #[nil "\302 \303\304\305 \"r\306\216\307\310 \311\"\210\312 \206/\313 \205/\314 \315 =\205/\212\316y\210\317 )\206/o,\207" [save-selected-window-alist save-selected-window-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-empty-buffer-p helm-end-of-source-p point-at-bol point-at-eol -1 helm-pos-header-line-p] 4 (#$ . 47211)]) 440c567 < (defalias 'helm-let-internal #[(binding bodyfunc) "\303\216\n )\207" [binding helm-let-variables bodyfunc ((byte-code "\301\211\207" [helm-let-variables nil] 2))] 1 (#$ . 47045)]) --- > (defalias 'helm-let-internal #[(binding bodyfunc) "\303\216\n )\207" [binding helm-let-variables bodyfunc ((byte-code "\301\211\207" [helm-let-variables nil] 2))] 1 (#$ . 48146)]) 442c569 < (defalias 'helm-current-line-contents #[nil "\300\301 \302 \"\207" [buffer-substring-no-properties point-at-bol point-at-eol] 3 (#$ . 47528)]) --- > (defalias 'helm-current-line-contents #[nil "\300\301 \302 \"\207" [buffer-substring-no-properties point-at-bol point-at-eol] 3 (#$ . 48629)]) 446c573 < (defalias 'helm-funcall-with-source #[(source functions &rest args) "\306\307\"\310 !\203 C\202 \311\312!\210\313\n\313 :\2034 @ \314 \" A\211\202\f-\207" [source functions funs helm-source-name result #1=#:--cl-var-- assoc-default name functionp helm-log-eval-internal (helm-source-name functions args) nil apply fn args] 4 (#$ . 47718)]) --- > (defalias 'helm-funcall-with-source #[(source functions &rest args) "\306\307\"\310 !\203 C\202 \311\312!\210\313\n\313 :\2034 @ \314 \" A\211\202\f-\207" [source functions funs helm-source-name result #1=#:--cl-var-- assoc-default name functionp helm-log-eval-internal (helm-source-name functions args) nil apply fn args] 4 (#$ . 48819)]) 448c575 < (defalias 'helm-funcall-foreach #[(sym &optional sources) "\206\305 \211\306\211\205)\n@\307 \"\211\203 \310 \f\"\210)\nA\211\204\306+\207" [sources source --dolist-tail-- sym it helm-get-sources nil assoc-default helm-funcall-with-source] 4 (#$ . 48247)]) --- > (defalias 'helm-funcall-foreach #[(sym &optional sources) "\206\305 \211\306\211\205)\n@\307 \"\211\203 \310 \f\"\210)\nA\211\204\306+\207" [sources source #1=#:--cl-dolist-temp-- sym it helm-get-sources nil assoc-default helm-funcall-with-source] 4 (#$ . 49348)]) 450c577 < (defalias 'helm-normalize-sources #[(sources) "\203 9\204<\203\302\236\203C\207\206 \207" [sources helm-sources name] 2 (#$ . 48570)]) --- > (defalias 'helm-normalize-sources #[(sources) "\203 9\204<\203\302\236\203C\207\206 \207" [sources helm-sources name] 2 (#$ . 49679)]) 454c581 < (defalias 'helm-approximate-candidate-number #[(&optional in-current-source) "rq\210\305 \204\306 \203\307\202z\212 \203\310 b\210\202!eb\210\311y\210\311\312 \203U\212 \203>\212\313y\210\314 \206:m)\202?m\204P\315 \316\317#\203P\nT\202,\n)\202y\212\307 \203e\314 \204wm\202fm\204w\314 \204q\fT\311y\210\202X\f**)\207" [helm-buffer in-current-source count-multi helm-candidate-separator ln helm-empty-buffer-p helm-empty-source-p 0 helm-get-previous-header-pos 1 helm-pos-multiline-p 2 helm-pos-header-line-p search-forward nil t] 4 (#$ . 48786)]) --- > (defalias 'helm-approximate-candidate-number #[(&optional in-current-source) "rq\210\305 \204\306 \203\307\202z\212 \203\310 b\210\202!eb\210\311y\210\311\312 \203U\212 \203>\212\313y\210\314 \206:m)\202?m\204P\315 \316\317#\203P\nT\202,\n)\202y\212\307 \203e\314 \204wm\202fm\204w\314 \204q\fT\311y\210\202X\f**)\207" [helm-buffer in-current-source count-multi helm-candidate-separator ln helm-empty-buffer-p helm-empty-source-p 0 helm-get-previous-header-pos 1 helm-pos-multiline-p 2 helm-pos-header-line-p search-forward nil t] 4 (#$ . 49895)])(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-quittable) (quote (declare (indent 0) (debug t))))) 456,457c583 < (defalias 'with-helm-quittable '(macro . #[(&rest body) "\301\302\303\304\305B\306BBBE\207" [body let (inhibit-quit) condition-case v progn ((quit (setq helm-quit t) (exit-minibuffer) (keyboard-quit)))] 6 (#$ . 49501)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-quittable lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-quittable '(macro . #[(&rest body) "\301\302\303\304\305B\306BBBE\207" [body let (inhibit-quit) condition-case v progn ((quit (setq helm-quit t) (exit-minibuffer) (keyboard-quit)))] 6 (#$ . 50745)])) 485c611 < (defalias 'helm-compose #[(arg-lst func-lst) "\304\211\203\n@ \305 \"\240\210\nA\211\204* @\207" [func-lst func --dolist-tail-- arg-lst nil apply] 5 (#$ . 49916)]) --- > (defalias 'helm-compose #[(arg-lst func-lst) "\304\211\203\n@ \305 \"\240\210\nA\211\204* @\207" [func-lst func #1=#:--cl-dolist-temp-- arg-lst nil apply] 5 (#$ . 51033)]) 488c614 < (defalias 'helm-composed-funcall-with-source #[(source funcs &rest args) "\303!\203 \304\305 \n$\207\304\305 \306\n$\207" [funcs source args functionp apply helm-funcall-with-source #[(&rest oargs) "\302 \"\207" [oargs funcs helm-compose] 3]] 5 (#$ . 51291)]) --- > (defalias 'helm-composed-funcall-with-source #[(source funcs &rest args) "\303!\203 \304\305 \n$\207\304\305 \306\n$\207" [funcs source args functionp apply helm-funcall-with-source #[(&rest oargs) "\302 \"\207" [oargs funcs helm-compose] 3]] 5 (#$ . 52416)]) 581c707 < (defalias 'helm #[(&rest plist) "\203 \303 \304\"\204\203\305 >\203\306\202%\307 @!\203$\310\202%\311\203J\n\310=\203J\300 \203;\312\313!\202^r\314 q\210\315\316!\317 \210)\202^\307 @!\203Z\320\321 !\322\"\202^\323\n \")\207" [helm-alive-p plist fn plist-get :allow-nest allow-nest helm-nest keywordp helm helm-internal error "Error: Trying to run helm within a running helm session" helm-buffer-get message "Aborting an helm session running in background" helm-keyboard-quit helm-let-internal helm-parse-keys #[nil "\302\303\304 \"\"\207" [fn helm-argument-keys apply mapcar #[(key) "\302 \"\207" [plist key plist-get] 3]] 5] apply] 3 (#$ . 51800)]) --- > (defalias 'helm #[(&rest plist) "\203 \303 \304\"\204\203\305 >\203\306\202%\307 @!\203$\310\202%\311\203J\n\310=\203J\300 \203;\312\313!\202^r\314 q\210\315\316!\317 \210)\202^\307 @!\203Z\320\321 !\322\"\202^\323\n \")\207" [helm-alive-p plist fn plist-get :allow-nest allow-nest helm-nest keywordp helm helm-internal error "Error: Trying to run helm within a running helm session" helm-buffer-get message "Aborting an helm session running in background" helm-keyboard-quit helm-let-internal helm-parse-keys #[nil "\302\303\304 \"\"\207" [fn helm-argument-keys apply mapcar #[(key) "\302 \"\207" [plist key plist-get] 3]] 5] apply] 3 (#$ . 52925)]) 585c711 < (defalias 'helm-alive-p #[nil "\205\302 \303\"\205\304\305 !\205\306p!\207" [helm-alive-p helm-buffer get-buffer-window visible minibuffer-window-active-p minibuffer-window minibufferp] 3 (#$ . 55183)]) --- > (defalias 'helm-alive-p #[nil "\205\302 \303\"\205\304\305 !\205\306p!\207" [helm-alive-p helm-buffer get-buffer-window visible minibuffer-window-active-p minibuffer-window minibufferp] 3 (#$ . 56308)]) 593c719 < (defalias 'helm-parse-keys #[(keys) "\306\211\306\211\306\211  :\203T \211\211A@\n@\307 !\310\306O\311\312\313 \"\2033 \2026\314 P! >\204I \fBB \211AA\262\211\202\237.\207" [keys #1=#:--cl-var-- #2=#:--cl-var-- key value symname nil symbol-name 1 intern string-match "^helm-" "helm-" sym #3=#:--cl-var-- helm-argument-keys] 5 (#$ . 55554)]) --- > (defalias 'helm-parse-keys #[(keys) "\306\211\306\211\306\211  :\203U \211\211A@\n@\307 !\310\306O\311\312\313 \"\2033 \2026\314 P! >\204I \fBB \211AA)\211\202\237.\207" [keys #1=#:--cl-var-- #2=#:--cl-var-- key value symname nil symbol-name 1 intern string-match "^helm-" "helm-" sym #3=#:--cl-var-- helm-argument-keys x] 5 (#$ . 56679)]) 597c723 < (defalias 'helm-internal #[(&optional any-sources any-input any-prompt any-resume any-preselect any-buffer any-keymap any-default any-history) "\300\301\215\207" [exit (byte-code "\306\307\310\311\312\"P!\210\313\314!\210\315\211 \206>\316\n!\317\315\317 :\203; @\211>\211?\211\203; A\211\202 ,\320\216\321\322\323\217-\207" [overriding-local-map helm-maybe-use-default-as-input any-sources #1=#:--cl-var-- s #2=#:--cl-flag-- helm-log "[Start session] " make-string 41 43 helm-log-eval-internal (any-prompt any-preselect any-buffer any-keymap any-default) t helm-normalize-sources nil ((byte-code "\304\305!\210\306\211\307 \207" [old-overridding-local-map overriding-local-map helm-alive-p helm-in-file-completion-p helm-log-eval-internal ((setq helm-alive-p nil)) nil helm-log-save-maybe] 3)) v (byte-code "\306\211\211\206 \307\310 \"\311\216\312$\210\313 !\210\314\315!\210\316\216\317\205C9\205C&\210+\n?\205N\320 \314\321\322\323\324\"P!\210,\207" [any-buffer helm-buffer helm-quit helm-in-persistent-action helm-source-name helm-restored-variables nil mapcar #[(v) "\211JB\207" [v] 2] ((byte-code "\304\211 :\203 @\211\211A@\211\nL\210 A\211\202+\305\306!\207" [orig-vars #3=#:--cl-var-- value var nil helm-log "restore variables"] 3)) helm-initialize helm-display-buffer helm-log "show prompt" ((helm-cleanup)) helm-read-pattern-maybe helm-execute-selection-action "[End session] " make-string 41 45 orig-vars any-resume any-input any-default any-sources any-prompt any-preselect any-keymap any-history] 8) ((quit (byte-code "\300 \210\301\302\303\304\305\"P!\210\306\207" [helm-restore-position-on-quit helm-log "[End session (quit)] " make-string 34 45 nil] 5))) #4=#:--cl-var-- helm-sources-using-default-as-input non-essential cursor-in-echo-area old-overridding-local-map] 6)] 2 (#$ . 56278)]) --- > (defalias 'helm-internal #[(&optional any-sources any-input any-prompt any-resume any-preselect any-buffer any-keymap any-default any-history) "\300\301\215\207" [exit (byte-code "\306\307\310\311\312\"P!\210\313\314!\210\315\211 \206>\316\n!\317\315\317 :\203; @\211>\211?\211\203; A\211\202 ,\320\216\321\322\323\217-\207" [overriding-local-map helm-maybe-use-default-as-input any-sources #1=#:--cl-var-- s #2=#:--cl-flag-- helm-log "[Start session] " make-string 41 43 helm-log-eval-internal (any-prompt any-preselect any-buffer any-keymap any-default) t helm-normalize-sources nil ((byte-code "\304\305!\210\306\211\307 \207" [old-overridding-local-map overriding-local-map helm-alive-p helm-in-file-completion-p helm-log-eval-internal ((setq helm-alive-p nil)) nil helm-log-save-maybe] 3)) v (byte-code "\306\211\211\206 \307\310 \"\311\216\312$\210\313 !\210\314\315!\210\316\216\317\205C9\205C&\210+\n?\205N\320 \314\321\322\323\324\"P!\210,\207" [any-buffer helm-buffer helm-quit helm-in-persistent-action helm-source-name helm-restored-variables nil mapcar #[(v) "\211JB\207" [v] 2] ((byte-code "\304\211 :\203 @\211\211A@\211\nL\210 A\211\202+\305\306!\207" [orig-vars #3=#:--cl-var-- value var nil helm-log "restore variables"] 3)) helm-initialize helm-display-buffer helm-log "show prompt" ((helm-cleanup)) helm-read-pattern-maybe helm-execute-selection-action "[End session] " make-string 41 45 orig-vars any-resume any-input any-default any-sources any-prompt any-preselect any-keymap any-history] 8) ((quit (byte-code "\300 \210\301\302\303\304\305\"P!\210\306\207" [helm-restore-position-on-quit helm-log "[End session (quit)] " make-string 34 45 nil] 5))) #4=#:--cl-var-- helm-sources-using-default-as-input non-essential cursor-in-echo-area old-overridding-local-map] 6)] 2 (#$ . 57403)]) 602c728 < (defalias 'helm-resume #[(arg) "\306\211\211 \203\" ;\203\307\310 !!\203 \202$\311 \202$\f\n\204,\312\313!\210r\nq\210\306)\314\301\310\n!\"\306\314\315\310\n!\"\316!\204Np\203X\317!\206Z\320\321\314\322\310\n!\"\323\314\324\310\n!\"\325\326\327\n&,\207" [cur-dir helm-full-frame any-buffer arg helm-last-buffer cursor-type nil bufferp get-buffer helm-resume-select-buffer error "helm-resume: No helm buffers found to resume" buffer-local-value helm-default-directory buffer-live-p file-name-as-directory helm :sources helm-sources :input helm-input-local :resume t :buffer helm-compiled-sources helm-current-buffer default-directory] 9 (#$ . 58343) "P"]) --- > (defalias 'helm-resume #[(arg) "\306\211\211 \203\" ;\203\307\310 !!\203 \202$\311 \202$\f\n\204,\312\313!\210r\nq\210\306)\314\301\310\n!\"\306\314\315\310\n!\"\316!\204Np\203X\317!\206Z\320\321\314\322\310\n!\"\323\314\324\310\n!\"\325\326\327\n&,\207" [cur-dir helm-full-frame any-buffer arg helm-last-buffer cursor-type nil bufferp get-buffer helm-resume-select-buffer error "helm-resume: No helm buffers found to resume" buffer-local-value helm-default-directory buffer-live-p file-name-as-directory helm :sources helm-sources :input helm-input-local :resume t :buffer helm-compiled-sources helm-current-buffer default-directory] 9 (#$ . 59468) "P"]) 604c730 < (defalias 'helm-resume-previous-session-after-quit #[(arg) "\203 G\nV\203\303\304\305\306\307\n\310BBDE!\207\311\312!\207" [helm-alive-p helm-buffers arg helm-run-after-quit lambda nil helm-resume nth (helm-buffers) message "No previous helm sessions to resume yet!"] 7 (#$ . 59260) "p"]) --- > (defalias 'helm-resume-previous-session-after-quit #[(arg) "\203 G\nV\203\303\304\305\306\307\n\310BBDE!\207\311\312!\207" [helm-alive-p helm-buffers arg helm-run-after-quit lambda nil helm-resume nth (helm-buffers) message "No previous helm sessions to resume yet!"] 7 (#$ . 60385) "p"]) 606c732 < (defalias 'helm-resume-list-buffers-after-quit #[nil "\203 G\302V\203\303\304!\207\305\306!\207" [helm-alive-p helm-buffers 0 helm-run-after-quit #[nil "\300\301!\207" [helm-resume t] 2] message "No previous helm sessions to resume yet!"] 2 (#$ . 59610) nil]) --- > (defalias 'helm-resume-list-buffers-after-quit #[nil "\203 G\302V\203\303\304!\207\305\306!\207" [helm-alive-p helm-buffers 0 helm-run-after-quit #[nil "\300\301!\207" [helm-resume t] 2] message "No previous helm sessions to resume yet!"] 2 (#$ . 60735) nil]) 608c734 < (defalias 'helm-resume-p #[(any-resume) "\301=\207" [any-resume t] 2 (#$ . 59930)]) --- > (defalias 'helm-resume-p #[(any-resume) "\301=\207" [any-resume t] 2 (#$ . 61055)]) 611c737 < (defalias 'helm-resume-select-buffer #[nil "\205\301\302\303\304\305\306\307&\206\310 \207" [helm-buffers helm :sources (((name . "Resume helm buffer") (candidates . helm-buffers) (action . identity))) :resume noresume :buffer "*helm resume*" keyboard-quit] 7 (#$ . 60070)]) --- > (defalias 'helm-resume-select-buffer #[nil "\205\301\302\303\304\305\306\307&\206\310 \207" [helm-buffers helm :sources (((name . "Resume helm buffer") (candidates . helm-buffers) (action . identity))) :resume noresume :buffer "*helm resume*" keyboard-quit] 7 (#$ . 61195)]) 614c740 < (defalias 'helm-other-buffer #[(any-sources any-buffer) "\302\303\304 $\207" [any-sources any-buffer helm :sources :buffer] 5 (#$ . 60470)]) --- > (defalias 'helm-other-buffer #[(any-sources any-buffer) "\302\303\304 $\207" [any-sources any-buffer helm :sources :buffer] 5 (#$ . 61595)]) 616c742 < (defalias 'helm-nest #[(&rest same-as-helm) "\306\307 !r\310\216\311@\312\"\210 \n \f\313\216\314\211\211\315\316\"\206.\3178\206.\320\314\211\321\211\322\323\".\207" [save-selected-window--state helm-current-buffer helm-buffer helm-last-frame-or-window-configuration helm-onewindow-p orig-one-window-p internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord ((byte-code "rq\210\306\307\n!\210\310 \204\311\306!\210 \306\n \f )\306\207" [orig-helm-buffer helm-alive-p helm-buffer orig-helm-last-frame-or-window-configuration helm-last-frame-or-window-configuration cursor-type t helm-initialize-overlays helm-empty-buffer-p helm-mark-current-line orig-helm-current-buffer helm-current-buffer orig-one-window-p helm-onewindow-p] 2)) nil getf :buffer 5 "*Helm*" t apply helm orig-helm-last-frame-or-window-configuration orig-helm-buffer orig-helm-current-buffer same-as-helm enable-recursive-minibuffers helm-full-frame helm-compiled-sources helm-sources helm-pattern helm-current-position] 8 (#$ . 60733)]) --- > (defalias 'helm-nest #[(&rest same-as-helm) "\306 \307\310\311 \"r\312\216\313\314 \315\"\210\n \f \316\216\317\211\211\320\321\"\2063\3228\2063\323\317\211\324\211 !\325\326\".\207" [save-selected-window-alist save-selected-window-window helm-current-buffer helm-buffer helm-last-frame-or-window-configuration helm-onewindow-p selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord ((byte-code "rq\210\306\307\n!\210\310 \204\311\306!\210 \306\n \f )\306\207" [orig-helm-buffer helm-alive-p helm-buffer orig-helm-last-frame-or-window-configuration helm-last-frame-or-window-configuration cursor-type t helm-initialize-overlays helm-empty-buffer-p helm-mark-current-line orig-helm-current-buffer helm-current-buffer orig-one-window-p helm-onewindow-p] 2)) nil getf :buffer 5 "*Helm*" t apply helm orig-one-window-p orig-helm-last-frame-or-window-configuration orig-helm-buffer orig-helm-current-buffer same-as-helm enable-recursive-minibuffers helm-full-frame helm-compiled-sources helm-sources helm-pattern helm-current-position] 8 (#$ . 61858)]) 619c745 < (defalias 'helm-current-position #[(save-or-restore) "\302\303\"\203\304\305`\306 B\"\210`\306 B\211\207\302\307\"\2050\304\310 \311p!#\210 @b\210\312\313 A\314#\207" [save-or-restore helm-current-position eql save helm-log "Save position at %S" window-start restore "Restore position at %S in buffer %s" buffer-name set-window-start selected-window t] 5 (#$ . 61929)]) --- > (defalias 'helm-current-position #[(save-or-restore) "\302=\203\303\304`\305 B\"\210`\305 B\211\207\306=\205.\303\307 \310p!#\210 @b\210\311\312 A\313#\207" [save-or-restore helm-current-position save helm-log "Save position at %S" window-start restore "Restore position at %S in buffer %s" buffer-name set-window-start selected-window t] 5 (#$ . 63397)]) 624,625c750,751 < (defalias 'helm-frame-or-window-configuration #[(save-or-restore) "\306\307!\210\310\311\"\312 \313\"\203\nA \211\202F\312 \314\"\205F\n@ !\210 <\205- A@@\315\f!\204B\316 !\203?\317 \202A\320 \321\f!))\207" [window-persistent-parameters save-or-restore helm-save-configuration-functions helm-last-frame-or-window-configuration frame helm-current-buffer helm-log-eval-internal (helm-save-configuration-functions) append ((no-other-window . t)) eql save restore framep minibufferp selected-frame last-nonminibuffer-frame select-frame-set-input-focus] 3 (#$ . 62425)]) < (defalias 'helm-split-window-default-fn #[(window) "\305\306\307!\203\227\310 !\204\227\311\312!\204\n\203!\313\314 \305 #\202\232\315 \316\"\2039\307\316!\206\232\307\317!\206\232\314 \202\232\315 \317\"\203Q\307\317!\206\232\307\316!\206\232\314 \202\232\315 \320\"\203i\307\320!\206\232\307\321!\206\232\314 \202\232\315 \321\"\203\201\307\321!\206\232\307\320!\206\232\314 \202\232\315 \322\"\203\215\314 \202\232\323 \206\232\314 \202\232\324\f!)\207" [split-width-threshold helm-current-buffer helm-split-window-in-side-p helm-split-window-default-side window nil fboundp window-in-direction minibufferp one-window-p t split-window selected-window eql left above right below same window-next-sibling split-window-sensibly] 4]) --- > (defalias 'helm-frame-or-window-configuration #[(save-or-restore) "\306\307!\210\310\311\" \312=\203\nA \211\202H \313=\205H\n@ !\210 <\205. \211A@)@\314 !\204D\315!\203A\316 \202C\317 \320 !))\207" [window-persistent-parameters save-or-restore helm-save-configuration-functions helm-last-frame-or-window-configuration x frame helm-log-eval-internal (helm-save-configuration-functions) append ((no-other-window . t)) save restore framep minibufferp selected-frame last-nonminibuffer-frame select-frame-set-input-focus helm-current-buffer] 4 (#$ . 63879)]) > (defalias 'helm-split-window-default-fn #[(window) "\305\306\307!\203\222\310 !\204\222\311\312!\204\n\203!\313\314 \305 #\202\225 \315=\2038\307\315!\206\225\307\316!\206\225\314 \202\225 \316=\203O\307\316!\206\225\307\315!\206\225\314 \202\225 \317=\203f\307\317!\206\225\307\320!\206\225\314 \202\225 \320=\203}\307\320!\206\225\307\317!\206\225\314 \202\225 \321=\203\210\314 \202\225\322 \206\225\314 \202\225\323\f!)\207" [split-width-threshold helm-current-buffer helm-split-window-in-side-p helm-split-window-default-side window nil fboundp window-in-direction minibufferp one-window-p t split-window selected-window left above right below same window-next-sibling split-window-sensibly] 4]) 628c754 < (defalias 'helm-display-buffer #[(buffer) "\306 \204N\n\203N \307=\203\f\310=\203\310\202O \307=\203*\f\311=\203*\311\202O \307=\203:\f\312=\203:\310\202O \307=\203J\f\313=\203J\311\202O\f\202O\frq\210)!\314\315!\316 \210+\207" [helm-split-window-preferred-function helm-full-frame helm-reuse-last-window-split-state helm-split-window-state helm-split-window-default-side split-window-preferred-function nil horizontal left right above below one-window-p t helm-prevent-switching-other-window pop-up-frames buffer helm-display-function helm-onewindow-p] 4 (#$ . 63988)]) --- > (defalias 'helm-display-buffer #[(buffer) "\306 \204N\n\203N \307=\203\f\310=\203\310\202O \307=\203*\f\311=\203*\311\202O \307=\203:\f\312=\203:\310\202O \307=\203J\f\313=\203J\311\202O\f\202O\frq\210)!\314\315!\316 \210+\207" [helm-split-window-preferred-function helm-full-frame helm-reuse-last-window-split-state helm-split-window-state helm-split-window-default-side split-window-preferred-function nil horizontal left right above below one-window-p t helm-prevent-switching-other-window pop-up-frames buffer helm-display-function helm-onewindow-p] 4 (#$ . 65403)]) 633c759 < (defalias 'helm-prevent-switching-other-window #[(&rest #1=#:--cl-rest--) "\303>\206\304A@\n\2036\n@\305>\203\nAA\211\202 \306>A@\203-\307\211\202 \310\311\n@\"\210\202\f)\312\313\314\")\207" [#1# enabled #2=#:--cl-keys-- :enabled (nil t) (:enabled :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:enabled)" walk-windows #[(w) "\302\303 #\207" [w enabled set-window-parameter no-other-window] 4] 0] 4 (#$ . 64656)]) --- > (defalias 'helm-prevent-switching-other-window #[(&rest #1=#:--cl-rest--) "\303>\206\304A@\n\2036\n@\305>\203\nAA\211\202 \306>A@\203-\307\211\202 \310\311\n@\"\210\202\f)\312\313\314\")\207" [#1# enabled #2=#:--cl-keys-- :enabled (nil t) (:enabled :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:enabled)" walk-windows #[(w) "\302\303 #\207" [w enabled set-window-parameter no-other-window] 4] 0] 4 (#$ . 66071)]) 637c763 < (defalias 'helm-default-display-buffer #[(buffer) "\305\306\307!\"\204 \310=\203\311\312!\203\313 \210\314!\207\n\2033 \310=\2043\315 !\2043\f\2043\313 \210\316!\207" [buffer helm-split-window-default-side helm-always-two-windows helm-current-buffer helm-split-window-in-side-p buffer-local-value helm-full-frame get-buffer same one-window-p t delete-other-windows switch-to-buffer minibufferp pop-to-buffer] 4 (#$ . 65278)]) --- > (defalias 'helm-default-display-buffer #[(buffer) "\305\306\307!\"\204 \310=\203\311\312!\203\313 \210\314!\207\n\2033 \310=\2043\315 !\2043\f\2043\313 \210\316!\207" [buffer helm-split-window-default-side helm-always-two-windows helm-current-buffer helm-split-window-in-side-p buffer-local-value helm-full-frame get-buffer same one-window-p t delete-other-windows switch-to-buffer minibufferp pop-to-buffer] 4 (#$ . 66693)]) 640c766 < (defalias 'helm-initialize #[(any-resume any-input any-default any-sources) "\306\307 #\210\310\311!\210\312\n!\306\313 \"\210\314\311!\210\315!\203%\316\317 !\210\202)\320\f!\210\321\322=\204;\323\324\"\210 \203E  \315!\203O\325\326!\210\306\327!\207" [any-resume any-input any-sources helm-sources any-default helm-alive-p helm-log "start initialization: any-resume=%S any-input=%S" helm-frame-or-window-configuration save helm-normalize-sources "sources = %S" helm-current-position helm-resume-p helm-initialize-overlays helm-buffer-get helm-initial-setup t noresume helm-recent-push helm-buffers helm-funcall-foreach resume "end initialization" helm-buffer helm-last-buffer helm-input helm-pattern] 4 (#$ . 65900)]) --- > (defalias 'helm-initialize #[(any-resume any-input any-default any-sources) "\306\307 #\210\310\311!\210\312\n!\306\313 \"\210\314\311!\210\315!\203%\316\317 !\210\202)\320\f!\210\321\322=\204;\323\324\"\210 \203E  \315!\203O\325\326!\210\306\327!\207" [any-resume any-input any-sources helm-sources any-default helm-alive-p helm-log "start initialization: any-resume=%S any-input=%S" helm-frame-or-window-configuration save helm-normalize-sources "sources = %S" helm-current-position helm-resume-p helm-initialize-overlays helm-buffer-get helm-initial-setup t noresume helm-recent-push helm-buffers helm-funcall-foreach resume "end initialization" helm-buffer helm-last-buffer helm-input helm-pattern] 4 (#$ . 67315)]) 642c768 < (defalias 'helm-initialize-overlays #[(buffer) "\302\303!\210\203\304ee\305 !$\207\306ee\305 !#\307\310\311#\207" [helm-selection-overlay buffer helm-log "overlay setup" move-overlay get-buffer make-overlay overlay-put face helm-selection] 6 (#$ . 66752)]) --- > (defalias 'helm-initialize-overlays #[(buffer) "\302\303!\210\203\304ee\305 !$\207\306ee\305 !#\307\310\311#\207" [helm-selection-overlay buffer helm-log "overlay setup" move-overlay get-buffer make-overlay overlay-put face helm-selection] 6 (#$ . 68167)]) 644c770 < (defalias 'helm-restore-position-on-quit #[nil "\300\301!\207" [helm-current-position restore] 2 (#$ . 67057)]) --- > (defalias 'helm-restore-position-on-quit #[nil "\300\301!\207" [helm-current-position restore] 2 (#$ . 68472)]) 646c772 < (defalias 'helm-recent-push #[(elt list-var) " J\235\211\203 \304\n@ J\"L\210 \211 JBL*\207" [elt list-var m #1=#:v delq] 5 (#$ . 67232)]) --- > (defalias 'helm-recent-push #[(elt list-var) " J\235\211\203 \303\n@ J\"L\210  JBL)\207" [elt list-var m delq] 5 (#$ . 68647)]) 648c774 < (defalias 'helm-initial-setup #[(any-default) "\306\307!\210\310\211\310\311\312 !\203\313\314 !\202p\f\310\211\310 \203/!\204M\"\203D\"\250\203J\"\315 \316\\Y\203J\317!\202M\320!\321\322#\205Y\323\324\325 \"\"\210$\203|%\206}r\326 !\203p \206sp\211q\210\327\330!)\206}\331&\331'\332(!\210\333 \210\306\334!\207" [helm-current-prefix-arg helm-suspend-update-flag helm-delayed-init-executed helm-current-buffer buffer-file-name helm-buffer-file-name helm-log-run-hook helm-before-initialize-hook nil minibuffer-window-active-p minibuffer-window window-buffer active-minibuffer-window frame-width 4 vertical horizontal helm-funcall-foreach init remove-if-not #[(s) "\302\303\" \235\207" [s helm-source-filter assoc-default name] 3] helm-get-sources buffer-live-p thing-at-point symbol "" clrhash helm-create-helm-buffer helm-after-initialize-hook helm-issued-errors helm-compiled-sources helm-saved-current-source helm-reuse-last-window-split-state helm-split-window-state split-width-threshold helm-source-filter helm-maybe-use-default-as-input any-default helm-pattern helm-input helm-candidate-cache] 6 (#$ . 67445)]) --- > (defalias 'helm-initial-setup #[(any-default) "\306\307!\210\310\211\310\311\312 !\203\313\314 !\202p\f\310\211\310 \203/!\204M\"\203D\"\250\203J\"\315 \316\\Y\203J\317!\202M\320!\321\322#\205Y\323\324\325 \"\"\210$\203|%\206}r\326 !\203p \206sp\211q\210\327\330!)\206}\331&\331'\332(!\210\333 \210\306\334!\207" [helm-current-prefix-arg helm-suspend-update-flag helm-delayed-init-executed helm-current-buffer buffer-file-name helm-buffer-file-name helm-log-run-hook helm-before-initialize-hook nil minibuffer-window-active-p minibuffer-window window-buffer active-minibuffer-window frame-width 4 vertical horizontal helm-funcall-foreach init remove-if-not #[(s) "\302\303\" \235\207" [s helm-source-filter assoc-default name] 3] helm-get-sources buffer-live-p thing-at-point symbol "" clrhash helm-create-helm-buffer helm-after-initialize-hook helm-issued-errors helm-compiled-sources helm-saved-current-source helm-reuse-last-window-split-state helm-split-window-state split-width-threshold helm-source-filter helm-maybe-use-default-as-input any-default helm-pattern helm-input helm-candidate-cache] 6 (#$ . 68848)]) 650c776 < (defalias 'helm-create-helm-buffer #[nil "r\306\n!q\210\307\310\311 \"\210\312 \210\313\303!\210\314\315 \210\316 \210\313\304!\210\f\313\317!\210\313\305!\210\320\313\321!\210\313\322!\210\320\313\323!\210\203I\324\202K\313\325!\210 \313\300!\210 \326 \210\327\330!\210\320\211 !:\203\217@\211 \211A @!\313!! L\210A\211\202m+\320\"\331#)\332\n!\210\333\n!)\207" [default-directory root-dir helm-buffer inhibit-read-only helm-map helm-follow-mode get-buffer-create helm-log "kill local variables: %S" buffer-local-variables kill-all-local-variables make-local-variable t buffer-disable-undo erase-buffer helm-sources nil helm-display-function helm-selection-point scroll-margin 0 helm-default-directory helm-initialize-persistent-action helm-log-eval-internal (helm-display-function helm-let-variables) "Helm" helm-initialize-overlays get-buffer helm-display-source-at-screen-top helm-completion-window-scroll-margin helm-let-variables #1=#:--cl-var-- val var cursor-type mode-name] 4 (#$ . 68665)]) --- > (defalias 'helm-create-helm-buffer #[nil "r\306\n!q\210\307\310\311 \"\210\312 \210\313\303!\210\314\315 \210\316 \210\313\304!\210\f\313\317!\210\313\305!\210\320\313\321!\210\313\322!\210\320\313\323!\210\203I\324\202K\313\325!\210 \313\300!\210 \326 \210\327\330!\210\320\211 !:\203\217@\211 \211A @!\313!! L\210A\211\202m+\320\"\331#)\332\n!\210\333\n!)\207" [default-directory root-dir helm-buffer inhibit-read-only helm-map helm-follow-mode get-buffer-create helm-log "kill local variables: %S" buffer-local-variables kill-all-local-variables make-local-variable t buffer-disable-undo erase-buffer helm-sources nil helm-display-function helm-selection-point scroll-margin 0 helm-default-directory helm-initialize-persistent-action helm-log-eval-internal (helm-display-function helm-let-variables) "Helm" helm-initialize-overlays get-buffer helm-display-source-at-screen-top helm-completion-window-scroll-margin helm-let-variables #1=#:--cl-var-- val var cursor-type mode-name] 4 (#$ . 70068)]) 653c779 < (defalias 'helm-read-pattern-maybe #[(any-prompt any-input any-preselect any-resume any-keymap any-default any-history) "\306!\203\307 \203\310\311!\210\202\312 !\210r\313 q\210\307 \314\315\n\"\f\206+\314\316\n\"\317()@*\320\n\236\206J\320*9\203G*J\202I*\236+ \206W,\206W--\321\322!\210+\203l\323\324\325\"\210\326\327\324\"\210.\203\204+\204\204\330/\317.\331 \203\204\332 \2100\203\231+\204\231\333 \334U\203\231\317\202\3731\203\272+\204\272\333 \335U\203\272\3112\3361!\205\3731 \202\3733\206\326r\3374!\203\3144\206\320p\2114q\210\340\341!)5\342\216\3176\3436\344\216\326\3456\"\210\3467\206\357\3478-\317 5\311&,.\207" [any-resume any-preselect src src-keymap any-history hist helm-resume-p helm-get-current-source helm-mark-current-line t helm-update helm-buffer-get assoc-default keymap history nil delayed helm-log-eval-internal ((helm-approximate-candidate-number) helm-execute-action-at-once-if-one helm-quit-if-no-candidate) defalias #1=#:helm-hook59425 #[nil "\300\216\301 )\207" [((byte-code "\300\301\302\"\207" [remove-hook helm-after-update-hook #1#] 3)) helm-exit-or-quit-maybe] 1] add-hook helm-after-update-hook "" helm-empty-buffer-p helm-force-update helm-approximate-candidate-number 1 0 functionp buffer-live-p thing-at-point symbol ((byte-code "\203\n\301!\210\302\302\207" [timer cancel-timer nil] 2)) #[nil "\303\304\"\210\305 \306]\307\310#\211\207" [#2=#:setup-hook helm-input-idle-delay timer remove-hook minibuffer-setup-hook run-with-idle-timer 0.01 repeat #[nil "\206 ?\205\303 r\304\216\305 \210\306 +\207" [helm-in-persistent-action helm-suspend-update-flag save-selected-window--state internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) helm-check-minibuffer-input helm-print-error-messages] 1]] 4] ((byte-code "\301\302\"\207" [#2# remove-hook minibuffer-setup-hook] 3)) minibuffer-setup-hook read-from-minibuffer "pattern: " timer helm-sources first-src source-delayed-p any-keymap helm-map helm-maybe-use-default-as-input helm-pattern helm-execute-action-at-once-if-one helm-quit-if-no-candidate helm-quit any-default helm-current-buffer tap #2# any-prompt any-input] 8 (#$ . 69749)]) --- > (defalias 'helm-read-pattern-maybe #[(any-prompt any-input any-preselect any-resume any-keymap any-default any-history) "\306!\203\307 \203\310\311!\210\202\312 !\210r\313 q\210\307 \314\315\n\"\f\206+\314\316\n\"\317()@*\320\n\236\206J\320*9\203G*J\202I*\236+ \206W,\206W--\321\322!\210+\203l\323\324\325\"\210\326\327\324\"\210.\203\204+\204\204\330/\317.\331 \203\204\332 \2100\203\231+\204\231\333 \334U\203\231\317\202\3731\203\272+\204\272\333 \335U\203\272\3112\3361!\205\3731 \202\3733\206\326r\3374!\203\3144\206\320p\2114q\210\340\341!)5\342\216\3176\3436\344\216\326\3456\"\210\3467\206\357\3478-\317 5\311&,.\207" [any-resume any-preselect src src-keymap any-history hist helm-resume-p helm-get-current-source helm-mark-current-line t helm-update helm-buffer-get assoc-default keymap history nil delayed helm-log-eval-internal ((helm-approximate-candidate-number) helm-execute-action-at-once-if-one helm-quit-if-no-candidate) defalias #1=#:helm-hook84928 #[nil "\300\216\301 )\207" [((byte-code "\300\301\302\"\207" [remove-hook helm-after-update-hook #1#] 3)) helm-exit-or-quit-maybe] 1] add-hook helm-after-update-hook "" helm-empty-buffer-p helm-force-update helm-approximate-candidate-number 1 0 functionp buffer-live-p thing-at-point symbol ((byte-code "\203\n\301!\210\302\302\207" [timer cancel-timer nil] 2)) #[nil "\303\304\"\210\305 \306]\307\310#\211\207" [#2=#:setup-hook helm-input-idle-delay timer remove-hook minibuffer-setup-hook run-with-idle-timer 0.01 repeat #[nil "\206 ?\205\304 \305\306\307 \"r\310\216\311 \210\312 ,\207" [helm-in-persistent-action helm-suspend-update-flag save-selected-window-alist save-selected-window-window selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt #3=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) helm-check-minibuffer-input helm-print-error-messages] 4]] 4] ((byte-code "\301\302\"\207" [#2# remove-hook minibuffer-setup-hook] 3)) minibuffer-setup-hook read-from-minibuffer "pattern: " timer helm-sources first-src source-delayed-p any-keymap helm-map helm-maybe-use-default-as-input helm-pattern helm-execute-action-at-once-if-one helm-quit-if-no-candidate helm-quit any-default helm-current-buffer tap #2# any-prompt any-input] 8 (#$ . 71152)]) 657c783 < (defalias 'helm-exit-or-quit-maybe #[nil "\304\305 !r\306\216\307@\310\"\210 \203\311 \312U\203\313 \2026\n\2056\311 \314U\2056\315\316\n!\2034\n \210\317 +\207" [save-selected-window--state helm-execute-action-at-once-if-one helm-quit-if-no-candidate helm-quit internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-approximate-candidate-number 1 helm-exit-minibuffer 0 t functionp keyboard-quit] 3 (#$ . 72160)]) --- > (defalias 'helm-exit-or-quit-maybe #[nil "\305 \306\307\310 \"r\311\216\312\313 \314\"\210\n\203\"\315 \316U\203\"\317 \202: \205:\315 \320U\205:\321\322 !\2038 \210\323 ,\207" [save-selected-window-alist save-selected-window-window helm-execute-action-at-once-if-one helm-quit-if-no-candidate helm-quit selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-approximate-candidate-number 1 helm-exit-minibuffer 0 t functionp keyboard-quit] 4 (#$ . 73889)]) 660c786 < (defalias 'helm-toggle-suspend-update #[nil "?\211\203\f\302 \210\303\304\203\305\202\306!\207" [helm-suspend-update-flag helm-pattern helm-kill-async-processes "" message "Helm update suspended!" "Helm update reenabled!"] 2 (#$ . 72874) nil]) --- > (defalias 'helm-toggle-suspend-update #[nil "?\211\203\f\302 \210\303\304\203\305\202\306!\207" [helm-suspend-update-flag helm-pattern helm-kill-async-processes "" message "Helm update suspended!" "Helm update reenabled!"] 2 (#$ . 74945) nil]) 666c792 < (defalias 'helm-maybe-update-keymap #[nil "\304\305 !r\306\216\307@\310\"\210\311 \211<\205\312\313 \"\211\205\"\n\211-\207" [save-selected-window--state source kmap overriding-local-map internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-get-current-source assoc-default keymap] 4 (#$ . 73501)]) --- > (defalias 'helm-maybe-update-keymap #[nil "\305 \306\307\310 \"r\311\216\312\313 \314\"\210\315 \211<\205\316\317\n\"\211\205& \211.\207" [save-selected-window-alist save-selected-window-window source kmap overriding-local-map selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-get-current-source assoc-default keymap] 5 (#$ . 75572)]) 669c795 < (defalias 'helm-cleanup #[nil "\303\304!\210rq\210\305 \210\306\307!\210)\310 \210\311\312!\210\313\314!\210\315!\210\316\211\317 \207" [helm-buffer helm-alive-p helm-in-file-completion-p helm-log "start cleanup" bury-buffer helm-funcall-foreach cleanup helm-kill-async-processes helm-log-run-hook helm-cleanup-hook helm-frame-or-window-configuration restore replace-buffer-in-windows nil helm-clean-up-minibuffer] 3 (#$ . 74210)]) --- > (defalias 'helm-cleanup #[nil "\303\304!\210rq\210\305 \210\306\307!\210)\310 \210\311\312!\210\313\314!\210\315!\210\316\211\317 \207" [helm-buffer helm-alive-p helm-in-file-completion-p helm-log "start cleanup" bury-buffer helm-funcall-foreach cleanup helm-kill-async-processes helm-log-run-hook helm-cleanup-hook helm-frame-or-window-configuration restore replace-buffer-in-windows nil helm-clean-up-minibuffer] 3 (#$ . 76623)]) 671c797 < (defalias 'helm-clean-up-minibuffer #[nil "\301 \302!?\205r\303!q\210\304 ))\207" [miniwin minibuffer-window minibuffer-window-active-p window-buffer delete-minibuffer-contents] 2 (#$ . 74694)]) --- > (defalias 'helm-clean-up-minibuffer #[nil "\301 \302!?\205r\303!q\210\304 ))\207" [miniwin minibuffer-window minibuffer-window-active-p window-buffer delete-minibuffer-contents] 2 (#$ . 77107)]) 673c799 < (defalias 'helm-check-minibuffer-input #[nil "\301\302\303\304\217)\207" [inhibit-quit nil v (byte-code "\301\302 \206\303 !r\304\216\305@\306\"\210\307\310 !+\207" [save-selected-window--state internal--before-with-selected-window active-minibuffer-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-check-new-input minibuffer-contents] 3) ((quit (byte-code "\301\302 \210\303 \207" [helm-quit t exit-minibuffer keyboard-quit] 1)))] 3 (#$ . 74931)]) --- > (defalias 'helm-check-minibuffer-input #[nil "\301\302\303\304\217)\207" [inhibit-quit nil v (byte-code "\302 \303\304\305 \"r\306\216\307\310 \206\311 \312\"\210\313\314 !,\207" [save-selected-window-alist save-selected-window-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window active-minibuffer-window minibuffer-window norecord helm-check-new-input minibuffer-contents] 4) ((quit (byte-code "\301\302 \210\303 \207" [helm-quit t exit-minibuffer keyboard-quit] 1)))] 3 (#$ . 77344)]) 675c801 < (defalias 'helm-check-new-input #[(input) "\203 \304\305\306\"\210\307\310\305\"\210\311\n \232?\205(\n\312 \204\" \313\314!\210\315 \207" [helm-maybe-use-default-as-input helm-pattern input helm-input defalias #1=#:helm-hook59426 #[nil "\301\216\302\211)\207" [helm-pattern ((byte-code "\300\301\302\"\207" [remove-hook helm-after-update-hook #1#] 3)) ""] 2] add-hook helm-after-update-hook nil helm-action-window helm-log-eval-internal (helm-pattern helm-input) helm-update] 3 (#$ . 75491)]) --- > (defalias 'helm-check-new-input #[(input) "\203 \304\305\306\"\210\307\310\305\"\210\311\n \232?\205(\n\312 \204\" \313\314!\210\315 \207" [helm-maybe-use-default-as-input helm-pattern input helm-input defalias #1=#:helm-hook84929 #[nil "\301\216\302\211)\207" [helm-pattern ((byte-code "\300\301\302\"\207" [remove-hook helm-after-update-hook #1#] 3)) ""] 2] add-hook helm-after-update-hook nil helm-action-window helm-log-eval-internal (helm-pattern helm-input) helm-update] 3 (#$ . 78246)]) 679c805 < (defalias 'helm-compile-sources #[(sources funcs) "\301\302\"\207" [sources mapcar #[(source) "<\203 \202 J \304\n:\203#\n@\211!\nA\211\202+\207" [source funcs #1=#:--cl-var-- f nil] 3]] 3 (#$ . 76062)]) --- > (defalias 'helm-compile-sources #[(sources funcs) "\301\302\"\207" [sources mapcar #[(source) "<\203 \202 J \304\n:\203#\n@\211!\nA\211\202+\207" [source funcs #1=#:--cl-var-- f nil] 3]] 3 (#$ . 78817)]) 681c807 < (defalias 'helm-process-delayed-init #[(source) "\306\301\"\211\n\235?\205G\306\307\"\211\205Fr\fq\210\310 \"\210\311 !\203) C\202* \312\211\f\205E\f@\313\302 \"\210\fA\211\f\2042\312+))\207" [source name helm-delayed-init-executed it helm-current-buffer f assoc-default delayed-init helm-funcall-with-source functionp nil add-to-list --dolist-tail--] 4 (#$ . 76399)]) --- > (defalias 'helm-process-delayed-init #[(source) "\306\301\"\211\n\235?\205G\306\307\"\211\205Fr\fq\210\310 \"\210\311 !\203) C\202* \312\211\f\205E\f@\313\302 \"\210\fA\211\f\2042\312+))\207" [source name helm-delayed-init-executed it helm-current-buffer f assoc-default delayed-init helm-funcall-with-source functionp nil add-to-list #1=#:--cl-dolist-temp--] 4 (#$ . 79154)]) 683c809 < (defalias 'helm-get-candidates #[(source) "\306!\210\307\310\305\"\310\311\"\312\313\314\315\217\316 !\203& \204&\317\320\n\"\210\316 !\2030 \202F \2048 \202F <\203D\321 \"\202F\f -\207" [source inhibit-quit candidate-fn candidate-proc type-error candidates helm-process-delayed-init nil assoc-default candidates-process #[(&optional err) "\303\304\206 \n\206\f\305#\207" [candidate-fn candidate-proc err error "`%s' must either be a function, a variable or a list: %S" ""] 4] err (byte-code "\203 \306 \"\207\n\204 \204\307\f!\204\310\311 \"\203#\306 \"\207\312\313\314\217\211 <\2050 )\207" [candidate-proc source helm-force-updating-p helm-never-delay-on-input helm-pattern candidate-fn helm-interpret-value file-remote-p assoc no-delay-on-input nil (byte-code "\301\302\303\215)\207" [inhibit-quit nil #1=#:input (byte-code "\303\304 \n\")\207" [throw-on-input candidate-fn source #1# helm-interpret-value] 3)] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) result] 4) ((invalid-regexp) (error (funcall type-error err))) processp warn "Candidates function `%s' should be called in a `candidates-process' attribute" helm-transform-candidates] 3 (#$ . 76818)]) --- > (defalias 'helm-get-candidates #[(source) "\306!\210\307\310\305\"\310\311\"\312\313\314\315\217\316 !\203& \204&\317\320\n\"\210\316 !\2030 \202F \2048 \202F <\203D\321 \"\202F\f -\207" [source inhibit-quit candidate-fn candidate-proc type-error candidates helm-process-delayed-init nil assoc-default candidates-process #[(&optional err) "\303\304\206 \n\206\f\305#\207" [candidate-fn candidate-proc err error "`%s' must either be a function, a variable or a list: %S" ""] 4] err (byte-code "\203 \306 \"\207\n\204 \204\307\f!\204\310\311 \"\203#\306 \"\207\312\313\314\217\211 <\2050 )\207" [candidate-proc source helm-force-updating-p helm-never-delay-on-input helm-pattern candidate-fn helm-interpret-value file-remote-p assoc no-delay-on-input nil (byte-code "\301\302\303\215)\207" [inhibit-quit nil #1=#:input (byte-code "\303\304 \n\")\207" [throw-on-input candidate-fn source #1# helm-interpret-value] 3)] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) result] 4) ((invalid-regexp) (error (funcall type-error err))) processp warn "Candidates function `%s' should be called in a `candidates-process' attribute" helm-transform-candidates] 3 (#$ . 79581)])(if macro-declaration-function (funcall macro-declaration-function (quote helm-while-no-input) (quote (declare (debug t) (indent 0))))) 685,686c811 < (defalias 'helm-while-no-input '(macro . #[(&rest body) "\302\303!\304\305\306D\307\310\306DDC BBE)D\207" [catch-sym body make-symbol "input" with-local-quit catch quote let throw-on-input] 7 (#$ . 78112)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put helm-while-no-input edebug-form-spec t lisp-indent-function 0] 4) --- > (defalias 'helm-while-no-input '(macro . #[(&rest body) "\302\303!\304\305\306D\307\310\306DDC BBE)D\207" [catch-sym body make-symbol "input" with-local-quit catch quote let throw-on-input] 7 (#$ . 81010)])) 689c814 < (defalias 'helm-get-cached-candidates #[(source) "\306\301\"\307 \n\"\211\211\203\f\310\311!\210\202P\310\312!\210\313!\314 !\203A \315\316\317B\320\321BD\"BB\322 \323\"\210\324\202N\325\326\"\204N\327 \n#\210 )+\207" [source name helm-candidate-cache candidate-cache it candidates assoc-default gethash helm-log "Use cached candidates" "No cached candidates, calculate candidates" helm-get-candidates processp append item-count 0 incomplete-line "" set-process-filter helm-output-filter nil assoc volatile puthash helm-async-processes] 7 (#$ . 78526)]) --- > (defalias 'helm-get-cached-candidates #[(source) "\306\301\"\307 \n\"\211\211\203\f\310\311!\210\202P\310\312!\210\313!\314 !\203A \315\316\317B\320\321BD\"BB\322 \323\"\210\324\202N\325\326\"\204N\327 \n#\210 )+\207" [source name helm-candidate-cache candidate-cache it candidates assoc-default gethash helm-log "Use cached candidates" "No cached candidates, calculate candidates" helm-get-candidates processp append item-count 0 incomplete-line "" set-process-filter helm-output-filter nil assoc volatile puthash helm-async-processes] 7 (#$ . 81297)]) 699c824 < (defalias 'helm-transform-mapcar #[#'args "\305\211 :\203- @\211:\203 \n@\f\nA!B B\202&\f\n! B A\211\202 \237+\207" [args #1=#:--cl-var-- arg #2=#:--cl-var-- function nil] 4 (#$ . 79214)]) --- > (defalias 'helm-transform-mapcar #[#'args "\305\211 :\203- @\211:\203 \n@\f\nA!B B\202&\f\n! B A\211\202 \237+\207" [args #1=#:--cl-var-- arg #2=#:--cl-var-- function nil] 4 (#$ . 81985)]) 701c826 < (defalias 'helm-process-candidate-transformer #[(candidates source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it candidates assoc-default candidate-transformer helm-composed-funcall-with-source] 5 (#$ . 79696)]) --- > (defalias 'helm-process-candidate-transformer #[(candidates source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it candidates assoc-default candidate-transformer helm-composed-funcall-with-source] 5 (#$ . 82467)]) 703c828 < (defalias 'helm-process-filtered-candidate-transformer #[(candidates source) "\303\304\"\211\203\305 \n$\202\n)\207" [source it candidates assoc-default filtered-candidate-transformer helm-composed-funcall-with-source] 6 (#$ . 79996)]) --- > (defalias 'helm-process-filtered-candidate-transformer #[(candidates source) "\303\304\"\211\203\305 \n$\202\n)\207" [source it candidates assoc-default filtered-candidate-transformer helm-composed-funcall-with-source] 6 (#$ . 82767)]) 707c832 < (defalias 'helm-process-filtered-candidate-transformer-maybe #[(candidates source process-p) "\203 \303 \n\"\207 \207" [process-p candidates source helm-process-filtered-candidate-transformer] 3 (#$ . 80325)]) --- > (defalias 'helm-process-filtered-candidate-transformer-maybe #[(candidates source process-p) "\203 \303 \n\"\207 \207" [process-p candidates source helm-process-filtered-candidate-transformer] 3 (#$ . 83096)]) 709c834 < (defalias 'helm-process-real-to-display #[(candidates source) "\303\304\"\211\203\305\306\307\n$\211\202\n)\207" [source it candidates assoc-default real-to-display helm-funcall-with-source mapcar #[(cand_) ":\203 A!AB\207 !B\207" [cand_ it] 2]] 6 (#$ . 80736)]) --- > (defalias 'helm-process-real-to-display #[(candidates source) "\303\304\"\211\203\305\306\307\n$\211\202\n)\207" [source it candidates assoc-default real-to-display helm-funcall-with-source mapcar #[(cand_) ":\203 A!AB\207 !B\207" [cand_ it] 2]] 6 (#$ . 83507)]) 715c840 < (defalias 'helm-transform-candidates #[(candidates source &optional process-p) "\303\304\305 \" \n# \"\207" [candidates source process-p helm-process-real-to-display helm-process-filtered-candidate-transformer-maybe helm-process-candidate-transformer] 5 (#$ . 81083)]) --- > (defalias 'helm-transform-candidates #[(candidates source &optional process-p) "\303\304\305 \" \n# \"\207" [candidates source process-p helm-process-real-to-display helm-process-filtered-candidate-transformer-maybe helm-process-candidate-transformer] 5 (#$ . 83854)]) 722c847 < (defalias 'helm-candidate-number-limit #[(source) "\303\236\211\203 A\206\304\202\n\206\304)\207" [source it helm-candidate-number-limit candidate-number-limit 99999999] 3 (#$ . 81677)]) --- > (defalias 'helm-candidate-number-limit #[(source) "\303\236\211\203 A\206\304\202\n\206\304)\207" [source it helm-candidate-number-limit candidate-number-limit 99999999] 3 (#$ . 84448)]) 725c850 < (defalias 'helm-candidate-get-display #[(candidate) "\301\302\242\206\"\207" [candidate format "%s"] 3 (#$ . 82131)]) --- > (defalias 'helm-candidate-get-display #[(candidate) "\301\302\242\206\"\207" [candidate format "%s"] 3 (#$ . 84902)]) 727c852 < (defalias 'helm-process-pattern-transformer #[(pattern source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it pattern assoc-default pattern-transformer helm-composed-funcall-with-source] 5 (#$ . 82365)]) --- > (defalias 'helm-process-pattern-transformer #[(pattern source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it pattern assoc-default pattern-transformer helm-composed-funcall-with-source] 5 (#$ . 85136)]) 730c855 < (defalias 'helm-default-match-function #[(candidate) "\302 \"\207" [helm-pattern candidate string-match] 3 (#$ . 82653)]) --- > (defalias 'helm-default-match-function #[(candidate) "\302 \"\207" [helm-pattern candidate string-match] 3 (#$ . 85424)]) 736c861 < (defalias 'helm-accumulate-candidates-internal '(macro . #[(cand newmatches hash item-count limit) "\305\306 E\307\310 F\311\nE\312 D\313\314 \fE\315BB\257\207" [cand hash newmatches item-count limit unless gethash puthash t push incf when = ((return))] 9 (#$ . 83083)])) --- > (defalias 'helm-accumulate-candidates-internal '(macro . #[(cand newmatches hash item-count limit) "\305\306 E\307\310 F\311\nE\312 D\313\314 \fE\315BB\257\207" [cand hash newmatches item-count limit unless gethash puthash t push incf when = ((return))] 9 (#$ . 85854)])) 739c864 < (defalias 'helm-take-first-elements #[(seq n) "G V\203 \302\303 #\207\207" [seq n subseq 0] 4 (#$ . 83521)]) --- > (defalias 'helm-take-first-elements #[(seq n) "G V\203 \302\303 #\207\207" [seq n subseq 0] 4 (#$ . 86292)]) 745,747c870,872 < (defalias 'helm-set-case-fold-search #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \203\306\307\310GTD\"\210\311\312 \236\211\203) A\202*\f)\313\314\n\"\203:\315\316\n!!\202;\n\317 !+\207" [#1# helm-pattern pattern it helm-case-fold-search bn-or-pattern signal wrong-number-of-arguments helm-set-case-fold-search case-fold-search helm-get-current-source string-match "[~/]*" file-name-nondirectory directory-file-name helm-set-case-fold-search-1] 5 (#$ . 83779)]) < (defalias 'helm-set-case-fold-search-1 #[(pattern) "\303\304\"\203\305\306\307\n\"?\205\310)\207\207" [helm-case-fold-search case-fold-search pattern eql smart nil string-match "[A-Z]" t] 3]) < (defalias 'helm-match-from-candidates #[(cands matchfns limit source) "\301\302\303\304\217\210)\207" [matches nil err (byte-code "\306\307 \310\311 !\210\f\310\211\203e@\310\312\313\215\210\314\315!\"\310\211:\203U@\211\235\204LBA\211\2025\237+)A\211\204-\310\207" [exit case-fold-search item-count helm-match-hash matchfns match 0 helm-set-case-fold-search nil clrhash --cl-block-nil-- (byte-code "\306\211\203<\n@ \307 !!\2035\310 \f\"\2045\311 \312\f#\210 B T\211 U\2035\313\314\306\"\210\nA\211\204*\306\207" [cands candidate --dolist-tail-- match helm-match-hash newmatches nil helm-candidate-get-display gethash puthash t throw --cl-block-nil-- item-count limit] 5) append reverse --dolist-tail-- newmatches matches cands #1=#:--cl-var-- i #2=#:--cl-var--] 5) ((invalid-regexp (byte-code "\301\211\207" [matches nil] 2)) (error (byte-code "\302\303\304\305\" @ \211A@\262$\207" [source err helm-log-error "helm-match-from-candidates in source `%s': %s %s" assoc-default name] 6)))] 3]) --- > (defalias 'helm-set-case-fold-search #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \203\306\307\310GTD\"\210\311\312 \236\211\203) A\202*\f)\313\314\n\"\203:\315\316\n!!\202;\n\317 !+\207" [#1# helm-pattern pattern it helm-case-fold-search bn-or-pattern signal wrong-number-of-arguments helm-set-case-fold-search case-fold-search helm-get-current-source string-match "[~/]*" file-name-nondirectory directory-file-name helm-set-case-fold-search-1] 5 (#$ . 86550)]) > (defalias 'helm-set-case-fold-search-1 #[(pattern) "\303=\203\304\305\306\n\"?\205\307)\207\207" [helm-case-fold-search case-fold-search pattern smart nil string-match "[A-Z]" t] 3]) > (defalias 'helm-match-from-candidates #[(cands matchfns limit source) "\301\302\303\304\217\210)\207" [matches nil err (byte-code "\306\307 \310\311 !\210\f\310\211\203e@\310\312\313\215\210\314\315!\"\310\211:\203U@\211\235\204LBA\211\2025\237+)A\211\204-\310\207" [exit case-fold-search item-count helm-match-hash matchfns match 0 helm-set-case-fold-search nil clrhash --cl-block-nil-- (byte-code "\306\211\203<\n@ \307 !!\2035\310 \f\"\2045\311 \312\f#\210 B T\211 U\2035\313\314\306\"\210\nA\211\204*\306\207" [cands candidate #1=#:--cl-dolist-temp-- match helm-match-hash newmatches nil helm-candidate-get-display gethash puthash t throw --cl-block-nil-- item-count limit] 5) append reverse #2=#:--cl-dolist-temp-- newmatches matches cands #3=#:--cl-var-- i #4=#:--cl-var--] 5) ((invalid-regexp (byte-code "\301\211\207" [matches nil] 2)) (error (byte-code "\303\304\305\306\" @ \211A@)$\207" [source err x helm-log-error "helm-match-from-candidates in source `%s': %s %s" assoc-default name] 6)))] 3]) 749c874 < (defalias 'helm-compute-matches #[(source) "r\305!\306\307\"\310!\311 \"\312 \313\232\204 \f\314\232\203)\315\316!\n\"\2021\317\316!\f\n$\"-\207" [source helm-pattern limit helm-source-name matchfns helm-match-functions assoc-default name helm-candidate-number-limit helm-process-pattern-transformer helm-process-filtered-candidate-transformer "" (identity) helm-take-first-elements helm-get-cached-candidates helm-match-from-candidates] 6 (#$ . 85711)]) --- > (defalias 'helm-compute-matches #[(source) "r\305!\306\307\"\310!\311 \"\312 \313\232\204 \f\314\232\203)\315\316!\n\"\2021\317\316!\f\n$\"-\207" [source helm-pattern limit helm-source-name matchfns helm-match-functions assoc-default name helm-candidate-number-limit helm-process-pattern-transformer helm-process-filtered-candidate-transformer "" (identity) helm-take-first-elements helm-get-cached-candidates helm-match-from-candidates] 6 (#$ . 88488)]) 751c876 < (defalias 'helm-process-source #[(source) "\306\307!\210\310!\211\205M\311!\210\312\236\204\313\314 \"\202M`\315 \315\211\203E @\n\2036\316 \210\2028\317\320\f\321#\210 A\211\204)*\322 `\323\317$*)\207" [source matches separate start match --dolist-tail-- helm-log-eval-internal ((assoc-default 'name source)) helm-compute-matches helm-insert-header-from-source multiline mapc #[(m) "\302\303 #\207" [m source helm-insert-match insert] 4] nil helm-insert-candidate-separator t helm-insert-match insert put-text-property helm-multiline] 6 (#$ . 86225)]) --- > (defalias 'helm-process-source #[(source) "\306\307!\210\310!\211\205M\311!\210\312\236\204\313\314 \"\202M`\315 \315\211\203E @\n\2036\316 \210\2028\317\320\f\321#\210 A\211\204)*\322 `\323\317$*)\207" [source matches separate start match #1=#:--cl-dolist-temp-- helm-log-eval-internal ((assoc-default 'name source)) helm-compute-matches helm-insert-header-from-source multiline mapc #[(m) "\302\303 #\207" [m source helm-insert-match insert] 4] nil helm-insert-candidate-separator t helm-insert-match insert put-text-property helm-multiline] 6 (#$ . 89002)]) 756c881 < (defalias 'helm-process-delayed-sources #[(delayed-sources &optional preselect source) "\301\302\303\304\217)\207" [inhibit-quit nil v (byte-code "\306\307!\210rq\210\212db\210\310\311 \"\210\312 \204$\313\n!\314\n!U\203$\315\316!\210) \203.\317 \f\"\210\212eb\210\320\321!\210)\322\323\324\f\"?\205D\320\325!)\207" [helm-buffer delayed-sources helm-selection-overlay preselect source helm-force-updating-p helm-log-eval-internal ((mapcar (lambda (s) (assoc-default 'name s)) delayed-sources)) mapc helm-process-source helm-empty-buffer-p overlay-start overlay-end helm-update-move-first-line without-hook helm-preselect helm-log-run-hook helm-update-hook nil assoc candidates-process helm-after-update-hook] 3) ((quit (byte-code "\301\302 \210\303 \207" [helm-quit t exit-minibuffer keyboard-quit] 1)))] 3 (#$ . 86869)]) --- > (defalias 'helm-process-delayed-sources #[(delayed-sources &optional preselect source) "\301\302\303\304\217)\207" [inhibit-quit nil v (byte-code "\306\307!\210rq\210\212db\210\310\311 \"\210\312 \204$\313\n!\314\n!U\203$\315\316!\210) \203.\317 \f\"\210\212eb\210\320\321!\210)\322\323\324\f\"?\205D\320\325!)\207" [helm-buffer delayed-sources helm-selection-overlay preselect source helm-force-updating-p helm-log-eval-internal ((mapcar (lambda (s) (assoc-default 'name s)) delayed-sources)) mapc helm-process-source helm-empty-buffer-p overlay-start overlay-end helm-update-move-first-line without-hook helm-preselect helm-log-run-hook helm-update-hook nil assoc candidates-process helm-after-update-hook] 3) ((quit (byte-code "\301\302 \210\303 \207" [helm-quit t exit-minibuffer keyboard-quit] 1)))] 3 (#$ . 89654)]) 761c886 < (defalias 'helm-update #[(&optional preselect source) "\306\307!\210\310 \210\311\312 !r\313\216\314@\315\"\210 \203\316 \210+r\317 q\210\320\303!\210\n\321 \210\322\211\323\216\324\325\326 \"\322\211\322:\203t@\327!\203^C\244\202kC\244\330!\210A\211\202C.\322\207" [save-selected-window--state helm-onewindow-p helm-pattern helm-input-local normal-sources delayed-sources helm-log "Start updating" helm-kill-async-processes internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord delete-other-windows helm-buffer-get make-local-variable erase-buffer nil ((byte-code "\306\307!\210\203 \203\n\203\310\311\"\210\312 \"\210\202F \203(\313\314!\210\202F\313 \210\315\316 \"\2046\317\320!\210\203D\310\311\"\210\312 \"\210\321 \203\220  \321\211:\203|@\322\323\"\211\203s]A\211\202X,\324 ]\325]\321\326  &\210)\310\327!\207" [preselect delayed-sources normal-sources source helm-force-updating-p helm-idle-delay helm-log-eval-internal ((mapcar (lambda (s) (assoc-default 'name s)) delayed-sources)) helm-log "Update preselect candidate %s" helm-preselect helm-update-move-first-line without-hook assoc candidates-process helm-log-run-hook helm-after-update-hook nil assoc-default delayed run-with-idle-timer 0.01 helm-process-delayed-sources "end update" delay #1=#:--cl-var-- s d helm-input-idle-delay] 8)) remove-if-not helm-update-source-p helm-get-sources helm-delayed-source-p helm-process-source #2=#:--cl-var-- source ds ns] 4 (#$ . 87900)]) --- > (defalias 'helm-update #[(&optional preselect source) "\306\307!\210\310 \210\311 \312\313\314 \"r\315\216\316\317 \320\"\210\n\203 \321 \210,r\322 q\210\323\304!\210 \324 \210\325\211\326\216\327\330\331 \"\325\211\325 :\203y@\332!\203cC\244\202p C\244 \333!\210A\211\202H .\325\207" [save-selected-window-alist save-selected-window-window helm-onewindow-p helm-pattern helm-input-local normal-sources helm-log "Start updating" helm-kill-async-processes selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord delete-other-windows helm-buffer-get make-local-variable erase-buffer nil ((byte-code "\306\307!\210\203 \203\n\203\310\311\"\210\312 \"\210\202F \203(\313\314!\210\202F\313 \210\315\316 \"\2046\317\320!\210\203D\310\311\"\210\312 \"\210\321 \203\220  \321\211:\203|@\322\323\"\211\203s]A\211\202X,\324 ]\325]\321\326  &\210)\310\327!\207" [preselect delayed-sources normal-sources source helm-force-updating-p helm-idle-delay helm-log-eval-internal ((mapcar (lambda (s) (assoc-default 'name s)) delayed-sources)) helm-log "Update preselect candidate %s" helm-preselect helm-update-move-first-line without-hook assoc candidates-process helm-log-run-hook helm-after-update-hook nil assoc-default delayed run-with-idle-timer 0.01 helm-process-delayed-sources "end update" delay #2=#:--cl-var-- s d helm-input-idle-delay] 8)) remove-if-not helm-update-source-p helm-get-sources helm-delayed-source-p helm-process-source delayed-sources #3=#:--cl-var-- source ds ns] 5 (#$ . 90685)]) 763c888 < (defalias 'helm-update-source-p #[(source) "\306\307\310\"\203\f \203\311\312\313\n#\202\n!\f\203$\314\315\"\f\235\205F \307\316\"\211\2037 A\2068\317\2028\320)Y\205F\311\321\313\n#\235?)\207" [source helm-match-plugin-mode helm-pattern len helm-source-filter it string-width assoc no-matchplugin replace-regexp-in-string " " "" assoc-default name requires-pattern 1 0 "\\s\\" helm-update-blacklist-regexps] 6 (#$ . 89833)]) --- > (defalias 'helm-update-source-p #[(source) "\306\307\310\"\203\f \203\311\312\313\n#\202\n!\f\203$\314\315\"\f\235\205F \307\316\"\211\2037 A\2068\317\2028\320)Y\205F\311\321\313\n#\235?)\207" [source helm-match-plugin-mode helm-pattern len helm-source-filter it string-width assoc no-matchplugin replace-regexp-in-string " " "" assoc-default name requires-pattern 1 0 "\\s\\" helm-update-blacklist-regexps] 6 (#$ . 92962)]) 765c890 < (defalias 'helm-delayed-source-p #[(source) "\302\303\"\206 \205\304\305p!!\306d!W\207" [source helm-quick-update assoc delayed window-height get-buffer-window line-number-at-pos] 3 (#$ . 90319)]) --- > (defalias 'helm-delayed-source-p #[(source) "\302\303\"\206 \205\304\305p!!\306d!W\207" [source helm-quick-update assoc delayed window-height get-buffer-window line-number-at-pos] 3 (#$ . 93448)]) 767c892 < (defalias 'helm-update-move-first-line #[(&optional without-hook) "eb\210\204 \212\301\302!\210)\303 \207" [without-hook helm-log-run-hook helm-update-hook helm-next-line] 2 (#$ . 90569)]) --- > (defalias 'helm-update-move-first-line #[(&optional without-hook) "eb\210\204 \212\301\302!\210)\303 \207" [without-hook helm-log-run-hook helm-update-hook helm-next-line] 2 (#$ . 93698)]) 774c899 < (defalias 'helm-force-update #[(&optional preselect) "\306 \307\310\311\"\310\311\n\203\312\313\314 \"\210\315\f\206 \n\"\210\316\317 !r\320\216\321 @\322\"\210\323 .\207" [helm-quick-update selection source helm-force-updating-p preselect save-selected-window--state helm-get-current-source helm-get-selection nil t mapc helm-force-update--reinit helm-get-sources helm-update internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord recenter] 4 (#$ . 90801) nil]) --- > (defalias 'helm-force-update #[(&optional preselect) "\306 \307\310\311\"\310\311\n\203\312\313\314 \"\210\315\f\206 \n\"\210\316 \317\320\321 \"r\322\216\323\324 \325\"\210\326 .\207" [helm-quick-update selection source helm-force-updating-p preselect save-selected-window-alist helm-get-current-source helm-get-selection nil t mapc helm-force-update--reinit helm-get-sources helm-update selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord recenter save-selected-window-window] 4 (#$ . 93930) nil]) 776c901 < (defalias 'helm-force-update--reinit #[(source) "\304\305\"\211\203 \306 !\210)\307\310\211\203/ @\311\n\"\211\203'\304 \"\210) A\211\204*\312!\207" [source it attr --dolist-tail-- helm-funcall-with-source helm-candidate-buffer kill-buffer (update init) nil assoc-default helm-remove-candidate-cache] 4 (#$ . 91690)]) --- > (defalias 'helm-force-update--reinit #[(source) "\304\305\"\211\203 \306 !\210)\307\310\211\203/ @\311\n\"\211\203'\304 \"\210) A\211\204*\312!\207" [source it attr #1=#:--cl-dolist-temp-- helm-funcall-with-source helm-candidate-buffer kill-buffer (update init) nil assoc-default helm-remove-candidate-cache] 4 (#$ . 95162)]) 778c903 < (defalias 'helm-remove-candidate-cache #[(source) "\302\303\304\" \"\207" [source helm-candidate-cache remhash assoc-default name] 4 (#$ . 92088)]) --- > (defalias 'helm-remove-candidate-cache #[(source) "\302\303\304\" \"\207" [source helm-candidate-cache remhash assoc-default name] 4 (#$ . 95568)]) 782c907 < (defalias 'helm-insert-match #[(match insert-function source) "\306`!\242\206 \243\n9\203\307\n!\202%\n\247\203$\310\n!\202%\n\211;\205R\f\n!\210\311 \312\"\204B \203B\313 \314 \312 $\210 \203O\313 \314 \315$\210\f\316!+\207" [match realvalue dispvalue start insert-function helm-source-in-each-line-flag point-at-bol symbol-name number-to-string get-text-property helm-realvalue put-text-property point-at-eol helm-source "\n" source] 6 (#$ . 92287)]) --- > (defalias 'helm-insert-match #[(match insert-function source) "\306`!\242\206 \243\n9\203\307\n!\202%\n\247\203$\310\n!\202%\n\211;\205R\f\n!\210\311 \312\"\204B \203B\313 \314 \312 $\210 \203O\313 \314 \315$\210\f\316!+\207" [match realvalue dispvalue start insert-function helm-source-in-each-line-flag point-at-bol symbol-name number-to-string get-text-property helm-realvalue put-text-property point-at-eol helm-source "\n" source] 6 (#$ . 95767)]) 786c911 < (defalias 'helm-insert-header-from-source #[(source) "\303\301\"\304 \303\305\"\211\205\306\n #)\")\207" [source name it assoc-default helm-insert-header header-name helm-funcall-with-source] 7 (#$ . 92952)]) --- > (defalias 'helm-insert-header-from-source #[(source) "\303\301\"\304 \303\305\"\211\205\306\n #)\")\207" [source name it assoc-default helm-insert-header header-name helm-funcall-with-source] 7 (#$ . 96432)]) 790c915 < (defalias 'helm-insert-header #[(name &optional display-string) "o\204`\303c\210\304`\305\306$\210)` c\210\304\307 \310 \311\306$\210\n\203.\312\313\307 \310 \"\314\n#\210\303c\210\304`\315\316$)\207" [start name display-string "\n" put-text-property helm-header-separator t point-at-bol point-at-eol helm-header overlay-put make-overlay display face helm-source-header] 5 (#$ . 93315)]) --- > (defalias 'helm-insert-header #[(name &optional display-string) "o\204`\303c\210\304`\305\306$\210)` c\210\304\307 \310 \311\306$\210\n\203.\312\313\307 \310 \"\314\n#\210\303c\210\304`\315\316$)\207" [start name display-string "\n" put-text-property helm-header-separator t point-at-bol point-at-eol helm-header overlay-put make-overlay display face helm-source-header] 5 (#$ . 96795)]) 792c917 < (defalias 'helm-insert-candidate-separator #[nil "\301\302\303#c\210\304\305 \306 \300\307$\210\310c\207" [helm-candidate-separator propertize face helm-separator put-text-property point-at-bol point-at-eol t "\n"] 5 (#$ . 93874)]) --- > (defalias 'helm-insert-candidate-separator #[nil "\301\302\303#c\210\304\305 \306 \300\307$\210\310c\207" [helm-candidate-separator propertize face helm-separator put-text-property point-at-bol point-at-eol t "\n"] 5 (#$ . 97354)]) 794c919 < (defalias 'helm-output-filter #[(process output-string) "\303\304 \"\n\"\207" [process helm-async-processes output-string helm-output-filter-1 assoc] 4 (#$ . 94166)]) --- > (defalias 'helm-output-filter #[(process output-string) "\303\304 \"\n\"\207" [process helm-async-processes output-string helm-output-filter-1 assoc] 4 (#$ . 97646)]) 796c921 < (defalias 'helm-output-filter--process-source #[(process output-string source limit) "\300\301\215\207" [--cl-block-nil-- (byte-code "\306\307\310\311\"\312\313 \"\" \314#\315\211\205b @\316 \236\2034`\317 \210\320\n\321 #\210\322\f`\323\314$\210)\202:\320\n\321 #\210\312\324 \"\211\211AT\241\210)\325\324 \"Y\203Z\326!\210\327\330\315\"\210 A\211\204\315*\207" [output-string source candidate --dolist-tail-- start #1=#:v helm-transform-candidates helm-output-filter--collect-candidates split-string "\n" assoc incomplete-line t nil multiline helm-insert-candidate-separator helm-insert-match insert-before-markers put-text-property helm-multiline item-count assoc-default helm-kill-async-process throw --cl-block-nil-- limit process] 7)] 2]) --- > (defalias 'helm-output-filter--process-source #[(process output-string source limit) "\300\301\215\207" [--cl-block-nil-- (byte-code "\306\307\310\311\"\312\313 \"\" \314#\315\211\205a @\316 \236\2034`\317 \210\320\n\321 #\210\322\f`\323\314$\210)\202:\320\n\321 #\210\312\324 \"\312\324 \"AT\241\210\325\324 \" Y\203Y\326!\210\327\330\315\"\210 A\211\204\315*\207" [output-string source candidate #1=#:--cl-dolist-temp-- start limit helm-transform-candidates helm-output-filter--collect-candidates split-string "\n" assoc incomplete-line t nil multiline helm-insert-candidate-separator helm-insert-match insert-before-markers put-text-property helm-multiline item-count assoc-default helm-kill-async-process throw --cl-block-nil-- process] 7)] 2]) 798,799c923,924 < (defalias 'helm-output-filter--collect-candidates #[(lines incomplete-line-info) "\305\306!\210\307\310\211 :\203. @\fA\203#\fA\nP\f\310\241\210\202$\n B A\211\202\f\f\n\241\210 \237+!\207" [lines #1=#:--cl-var-- line #2=#:--cl-var-- incomplete-line-info helm-log-eval-internal ((cdr incomplete-line-info)) butlast nil] 5 (#$ . 95637)]) < (defalias 'helm-output-filter--post-process #[nil "\304 \305\306!\210\307 \310\"\211\205/\311\n!r\312\216\313 @\314\"\210\315\316!\210\317 \210\320!\210\321 \210\305\322!+*\207" [src helm-buffer it save-selected-window--state helm-get-current-source helm-log-run-hook helm-update-hook get-buffer-window visible internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-skip-noncandidate-line next helm-mark-current-line helm-display-mode-line helm-maybe-update-keymap helm-after-update-hook] 4]) --- > (defalias 'helm-output-filter--collect-candidates #[(lines incomplete-line-info) "\305\306!\210\307\310\211 :\203. @\fA\203#\fA\nP\f\310\241\210\202$\n B A\211\202\f\f\n\241\210 \237+!\207" [lines #1=#:--cl-var-- line #2=#:--cl-var-- incomplete-line-info helm-log-eval-internal ((cdr incomplete-line-info)) butlast nil] 5 (#$ . 99118)]) > (defalias 'helm-output-filter--post-process #[nil "\305 \306\307!\210\310 \311\"\211\2053\312 \313\314\315 \"r\316\216\317\n\320\"\210\321\322!\210\323 \210\324!\210\325 \210\306\326!,*\207" [src helm-buffer it save-selected-window-alist save-selected-window-window helm-get-current-source helm-log-run-hook helm-update-hook get-buffer-window visible selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord helm-skip-noncandidate-line next helm-mark-current-line helm-display-mode-line helm-maybe-update-keymap helm-after-update-hook] 5]) 802c927 < (defalias 'helm-process-deferred-sentinel-hook #[(process event file) "\305\230\205%\306 !\204\n\205%\307\310 !\210\311\312\304!\203!\f\206\"\313\314\315#\207" [event file helm-suspend-update-flag process tramp-connection-min-time-diff "finished\n" file-remote-p t helm-kill-async-process run-at-time boundp 5 nil #[nil "\205\302\303 \207" [helm-alive-p helm-suspend-update-flag nil helm-check-minibuffer-input] 1]] 4 (#$ . 96646)]) --- > (defalias 'helm-process-deferred-sentinel-hook #[(process event file) "\305\230\205%\306 !\204\n\205%\307\310 !\210\311\312\304!\203!\f\206\"\313\314\315#\207" [event file helm-suspend-update-flag process tramp-connection-min-time-diff "finished\n" file-remote-p t helm-kill-async-process run-at-time boundp 5 nil #[nil "\205\302\303 \207" [helm-alive-p helm-suspend-update-flag nil helm-check-minibuffer-input] 1]] 4 (#$ . 100469)]) 804c929 < (defalias 'helm-kill-async-processes #[nil "\205\301\211@@\262!\210A\211\204\302\207" [helm-async-processes helm-kill-async-process nil] 4 (#$ . 97198)]) --- > (defalias 'helm-kill-async-processes #[nil "\205\302\211@@)!\210A\211\204\303\207" [helm-async-processes x helm-kill-async-process nil] 3 (#$ . 101022)]) 806c931 < (defalias 'helm-kill-async-process #[(process) "\301\302\"\210\303!\207" [process set-process-filter nil delete-process] 3 (#$ . 97437)]) --- > (defalias 'helm-kill-async-process #[(process) "\301\302\"\210\303!\207" [process set-process-filter nil delete-process] 3 (#$ . 101261)]) 808c933 < (defalias 'helm-execute-selection-action #[nil "\300\301!\210\302\303!\210\304\216\305 )\207" [helm-log-run-hook helm-before-action-hook helm-current-position restore ((byte-code "\302!\211\203\f\303 !\210)\304\305!\207" [helm-action-buffer it get-buffer kill-buffer helm-log-run-hook helm-after-action-hook] 3)) helm-execute-selection-action-1] 2 (#$ . 97650)]) --- > (defalias 'helm-execute-selection-action #[nil "\300\301!\210\302\303!\210\304\216\305 )\207" [helm-log-run-hook helm-before-action-hook helm-current-position restore ((byte-code "\302!\211\203\f\303 !\210)\304\305!\207" [helm-action-buffer it get-buffer kill-buffer helm-log-run-hook helm-after-action-hook] 3)) helm-execute-selection-action-1] 2 (#$ . 101475)]) 811c936 < (defalias 'helm-execute-selection-action-1 #[(&optional selection action preserve-saved-action) "\306\307!\210\310\206 \206\311\n!\203\312\n!\202\313 ! \206#\314 \315\2068\312 \2068\316\317 \"\2058\320\204A\315\205S\205S\321 \322 \"#*\207" [action helm-saved-action helm-action-buffer helm-saved-current-source non-essential source helm-log "executing action" helm-get-default-action get-buffer helm-get-selection helm-get-action helm-get-current-source nil assoc accept-empty "" helm-funcall-with-source helm-coerce-selection selection preserve-saved-action] 6 (#$ . 98084)]) --- > (defalias 'helm-execute-selection-action-1 #[(&optional selection action preserve-saved-action) "\306\307!\210\310\206 \206\311\n!\203\312\n!\202\313 ! \206#\314 \315\2068\312 \2068\316\317 \"\2058\320\204A\315\205S\205S\321 \322 \"#*\207" [action helm-saved-action helm-action-buffer helm-saved-current-source non-essential source helm-log "executing action" helm-get-default-action get-buffer helm-get-selection helm-get-action helm-get-current-source nil assoc accept-empty "" helm-funcall-with-source helm-coerce-selection selection preserve-saved-action] 6 (#$ . 101910)]) 814c939 < (defalias 'helm-coerce-selection #[(selection source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it selection assoc-default coerce helm-funcall-with-source] 5 (#$ . 98786)]) --- > (defalias 'helm-coerce-selection #[(selection source) "\303\304\"\211\203\305 \n#\202\n)\207" [source it selection assoc-default coerce helm-funcall-with-source] 5 (#$ . 102613)]) 816c941 < (defalias 'helm-get-default-action #[(action) "<\203\301!\204\211@A\207\207" [action functionp] 2 (#$ . 99070)]) --- > (defalias 'helm-get-default-action #[(action) "<\203\302!\204\211@A)\207\207" [action x functionp] 3 (#$ . 102898)]) 819c944 < (defalias 'helm-select-action #[nil "\306\307!\210\310 \311 \312\"\203\313\311 !\n\"\210\314 !\210\315 \316\"\207\203C\317 \320 \321 !\2035\322\323 \"\202A\324 !\210\325 \210\326\327 )\207\322\330!\207" [helm-saved-selection helm-action-buffer helm-buffer helm-input helm-saved-current-source actions helm-log-run-hook helm-select-action-hook helm-get-selection get-buffer-window visible set-window-buffer kill-buffer helm-set-pattern noupdate helm-get-current-source helm-get-action functionp message "Sole action: %s" helm-show-action-buffer helm-delete-minibuffer-contents dummy helm-check-minibuffer-input "No Actions available" helm-pattern] 3 (#$ . 99251) nil]) --- > (defalias 'helm-select-action #[nil "\306\307!\210\310 \311 \312\"\203\313\311 !\n\"\210\314 !\210\315 \316\"\207\203C\317 \320 \321 !\2035\322\323 \"\202A\324 !\210\325 \210\326\327 )\207\322\330!\207" [helm-saved-selection helm-action-buffer helm-buffer helm-input helm-saved-current-source actions helm-log-run-hook helm-select-action-hook helm-get-selection get-buffer-window visible set-window-buffer kill-buffer helm-set-pattern noupdate helm-get-current-source helm-get-action functionp message "Sole action: %s" helm-show-action-buffer helm-delete-minibuffer-contents dummy helm-check-minibuffer-input "No Actions available" helm-pattern] 3 (#$ . 103084) nil]) 823c948 < (defalias 'helm-display-source-at-screen-top-maybe #[(unit) "\205 \302=\205\303\304 \212\305y\210`)\"\207" [helm-display-source-at-screen-top unit source set-window-start selected-window -1] 3 (#$ . 100660)]) --- > (defalias 'helm-display-source-at-screen-top-maybe #[(unit) "\205 \302=\205\303\304 \212\305y\210`)\"\207" [helm-display-source-at-screen-top unit source set-window-start selected-window -1] 3 (#$ . 104494)]) 828c953 < (defalias 'helm-skip-noncandidate-line #[(direction) "\301!\210o\203 \302y\210m\205\303y\207" [direction helm-skip-header-and-separator-line 1 -1] 2 (#$ . 100982)]) --- > (defalias 'helm-skip-noncandidate-line #[(direction) "\301!\210o\203 \302y\210m\205\303y\207" [direction helm-skip-header-and-separator-line 1 -1] 2 (#$ . 104816)]) 831c956 < (defalias 'helm-skip-header-and-separator-line #[(direction) "o?\205&\301 \204\302 \205&\303=\203 \304 e=\204 \305\202!\306y\210\202\207" [direction helm-pos-header-line-p helm-pos-candidate-separator-p previous point-at-bol -1 1] 2 (#$ . 101389)]) --- > (defalias 'helm-skip-header-and-separator-line #[(direction) "o?\205&\301 \204\302 \205&\303=\203 \304 e=\204 \305\202!\306y\210\202\207" [direction helm-pos-header-line-p helm-pos-candidate-separator-p previous point-at-bol -1 1] 2 (#$ . 105223)]) 833c958 < (defalias 'helm-display-mode-line #[(source) "\306\301!\210\307<\203\310\311\"\206\312\301!\"\302\236A\313=\205!\314 \203I\315\316\315\317\315\n\320BBBBBB\321 <\203C \211A@\262\202D !\202M\312\303!\307<\205W\310\322\"\"\323\324\325 GZ]\326\"\327\315 Q\330\331#\211+\207" [source helm-mode-line-string follow mode-line-format helm-mode-line-string-real hlstr make-local-variable helm-interpret-value assoc-default mode-line default-value 1 "(HF) " " " mode-line-buffer-identification (line-number-mode "L%l") ((:eval (helm-show-candidate-number (when (listp helm-mode-line-string) (car-safe helm-mode-line-string)))) " " helm-mode-line-string-real " -%-") substitute-command-keys header-line make-string 0 window-width 32 propertize face helm-header hlend header-line-format] 7 (#$ . 101782)]) --- > (defalias 'helm-display-mode-line #[(source) "\306\301!\210\307<\203\310\311\"\206\312\301!\"\302\236A\313=\205!\314 \203I\315\316\315\317\315\n\320BBBBBB\321 <\203C \211A@)\202D !\202M\312\303!\307<\205W\310\322\"\"\323\324\325 GZ]\326\"\327\315Q\330\331#\211+\207" [source helm-mode-line-string follow mode-line-format x helm-mode-line-string-real make-local-variable helm-interpret-value assoc-default mode-line default-value 1 "(HF) " " " mode-line-buffer-identification (line-number-mode "L%l") ((:eval (helm-show-candidate-number (when (listp helm-mode-line-string) (car-safe helm-mode-line-string)))) " " helm-mode-line-string-real " -%-") substitute-command-keys header-line make-string 0 window-width 32 propertize face helm-header hlstr hlend header-line-format] 8 (#$ . 105616)]) 837c962 < (defalias 'helm-show-candidate-number #[(&optional name) "\301 ?\205\302\303\304\305\306!\206\307#\310\311#\207" [name helm-empty-source-p propertize format "[%s %s]" helm-approximate-candidate-number in-current-source "Candidate(s)" face helm-candidate-number] 5 (#$ . 102664)]) --- > (defalias 'helm-show-candidate-number #[(&optional name) "\301 ?\205\302\303\304\305\306!\206\307#\310\311#\207" [name helm-empty-source-p propertize format "[%s %s]" helm-approximate-candidate-number in-current-source "Candidate(s)" face helm-candidate-number] 5 (#$ . 106500)]) 851c976 < (defalias 'helm-move-selection-common #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@ \2038 @\310>\203! AA\211\202\311>A@\203/\312\211\202\313\314 @\"\210\202)\315 \316\"\203b\315\n\317\"\203K\320\202\322\315\n\321\"\203V\322\202\322\313\323\n\324#\205\322\312\202\322\315 \325\"\203\213\315\n\317\"\203t\326\202\322\315\n\321\"\203\327\202\322\313\323\n\330#\205\322\312\202\322\315 \331\"\203\264\315\n\317\"\203\235\332\202\322\315\n\321\"\203\250\333\202\322\313\323\n\334#\205\322\312\202\322\315 \335\"\205\322\315\n\317\"\203\306\336\202\322\315\n\321\"\203\321\337\202\322\340\341\342 !\206\335\343 ??\205\344\343 !r\345\216\346 @\347\"\210\350\351!\210\f \210\352\n!\210\353 !\210\354 \203\355 \210\356\357 !\210\350\360!++\207" [#1# where direction #2=#:--cl-keys-- move-func save-selected-window--state :where :direction (:where :direction :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:where :direction)" eql line previous helm-move--previous-line-fn next helm-move--next-line-fn "cl-ecase failed: %s, %s" (previous next) page helm-move--previous-page-fn helm-move--next-page-fn (previous next) edge helm-move--beginning-of-buffer-fn helm-move--end-of-buffer-fn (previous next) source helm-move--previous-source-fn helm-move--next-source-fn #[nil "\301!\207" [direction helm-move--goto-source-fn] 2] helm-empty-buffer-p helm-buffer-get helm-window internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-log-run-hook helm-move-selection-before-hook helm-skip-noncandidate-line helm-display-source-at-screen-top-maybe helm-get-previous-header-pos helm-mark-current-line helm-display-mode-line helm-get-current-source helm-move-selection-after-hook] 5 (#$ . 103095)]) --- > (defalias 'helm-move-selection-common #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@ \2038 @\310>\203! AA\211\202\311>A@\203/\312\211\202\313\314 @\"\210\202) \315=\203_\n\316=\203I\317\202\306\n\320=\203S\321\202\306\313\322\n\323#\205\306\312\202\306 \324=\203\205\n\316=\203o\325\202\306\n\320=\203y\326\202\306\313\322\n\327#\205\306\312\202\306 \330=\203\253\n\316=\203\225\331\202\306\n\320=\203\237\332\202\306\313\322\n\333#\205\306\312\202\306 \334=\205\306\n\316=\203\273\335\202\306\n\320=\203\305\336\202\306\337\340\341 !\206\321\342 ??\205\343 \344\345\346 \"3r\347\216\350\342 \351\"\210\352\353!\210\f \210\354\n!\210\355 !\210\356 \203\377\357 \210\360\361 !\210\352\362!,+\207" [#1# where direction #2=#:--cl-keys-- move-func save-selected-window-alist :where :direction (:where :direction :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:where :direction)" line previous helm-move--previous-line-fn next helm-move--next-line-fn "ecase failed: %s, %s" (previous next) page helm-move--previous-page-fn helm-move--next-page-fn (previous next) edge helm-move--beginning-of-buffer-fn helm-move--end-of-buffer-fn (previous next) source helm-move--previous-source-fn helm-move--next-source-fn #[nil "\301!\207" [direction helm-move--goto-source-fn] 2] helm-empty-buffer-p helm-buffer-get helm-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #3=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord helm-log-run-hook helm-move-selection-before-hook helm-skip-noncandidate-line helm-display-source-at-screen-top-maybe helm-get-previous-header-pos helm-mark-current-line helm-display-mode-line helm-get-current-source helm-move-selection-after-hook save-selected-window-window] 5 (#$ . 106931)]) 862c987 < (defalias 'helm-previous-line #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where line :direction previous] 5 (#$ . 106787) nil]) --- > (defalias 'helm-previous-line #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where line :direction previous] 5 (#$ . 110902) nil]) 864c989 < (defalias 'helm-next-line #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where line :direction next] 5 (#$ . 106977) nil]) --- > (defalias 'helm-next-line #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where line :direction next] 5 (#$ . 111092) nil]) 866c991 < (defalias 'helm-previous-page #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where page :direction previous] 5 (#$ . 107155) nil]) --- > (defalias 'helm-previous-page #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where page :direction previous] 5 (#$ . 111270) nil]) 868c993 < (defalias 'helm-next-page #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where page :direction next] 5 (#$ . 107344) nil]) --- > (defalias 'helm-next-page #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where page :direction next] 5 (#$ . 111459) nil]) 870c995 < (defalias 'helm-beginning-of-buffer #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where edge :direction previous] 5 (#$ . 107528) nil]) --- > (defalias 'helm-beginning-of-buffer #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where edge :direction previous] 5 (#$ . 111643) nil]) 872c997 < (defalias 'helm-end-of-buffer #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where edge :direction next] 5 (#$ . 107714) nil]) --- > (defalias 'helm-end-of-buffer #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where edge :direction next] 5 (#$ . 111829) nil]) 874c999 < (defalias 'helm-previous-source #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where source :direction previous] 5 (#$ . 107893) nil]) --- > (defalias 'helm-previous-source #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where source :direction previous] 5 (#$ . 112008) nil]) 876c1001 < (defalias 'helm-next-source #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where source :direction next] 5 (#$ . 108089) nil]) --- > (defalias 'helm-next-source #[nil "\300\301\302\303\304$\207" [helm-move-selection-common :where source :direction next] 5 (#$ . 112204) nil]) 878c1003 < (defalias 'helm-goto-source #[(source-or-name) "\301\302\303\304$\207" [source-or-name helm-move-selection-common :where source :direction] 5 (#$ . 108273)]) --- > (defalias 'helm-goto-source #[(source-or-name) "\301\302\303\304$\207" [source-or-name helm-move-selection-common :where source :direction] 5 (#$ . 112388)]) 882c1007 < (defalias 'helm-mark-current-line #[(&optional resumep) "\306\307 !r\310\216\311@\312\"\210 \203\nb\210\313 \314 \315 \203C\316 \317 \211\204,\f\206? \203:\f\203:\f W\206? \206?d*\202F\320 T#\210\321 !+\322 \207" [save-selected-window--state resumep helm-selection-point helm-selection-overlay separator-pos header-pos internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord move-overlay point-at-bol helm-pos-multiline-p helm-get-next-header-pos helm-get-next-candidate-separator-pos point-at-eol overlay-start helm-follow-execute-persistent-action-maybe] 6 (#$ . 108488)]) --- > (defalias 'helm-mark-current-line #[(&optional resumep) "\306 \307\310\311 \"r\312\216\313\314 \315\"\210\n\203 b\210\316\f\317 \320 \203K\321 \322 \211\2041 \206G\203A \203A W\206G\206Gd*\202N\323 T#\210\324\f!,\325 \207" [save-selected-window-alist save-selected-window-window resumep helm-selection-point helm-selection-overlay separator-pos selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord move-overlay point-at-bol helm-pos-multiline-p helm-get-next-header-pos helm-get-next-candidate-separator-pos point-at-eol overlay-start helm-follow-execute-persistent-action-maybe header-pos] 6 (#$ . 112603)]) 889c1014 < (defalias 'helm-confirm-and-exit-minibuffer #[nil "rq\210ed)=\211?\205\305\306\307\310\311\312\"#\313\230 \204!\n\2031 \314=\2031\314\311\315\316!\202I \2049\n\203E \317=\203E\315\320!\202I\311\321 *\207" [helm-buffer empty-buffer-p unknow minibuffer-completion-confirm helm-minibuffer-confirm-state get-text-property 0 display helm-get-selection nil withprop "[?]" confirm minibuffer-message " [confirm]" t " [No match]" helm-exit-minibuffer] 7 (#$ . 109304) nil]) --- > (defalias 'helm-confirm-and-exit-minibuffer #[nil "rq\210ed)=\211?\205\305\306\307\310\311\312\"#\313\230 \204!\n\2031 \314=\2031\314\311\315\316!\202I \2049\n\203E \317=\203E\315\320!\202I\311\321 *\207" [helm-buffer empty-buffer-p unknow minibuffer-completion-confirm helm-minibuffer-confirm-state get-text-property 0 display helm-get-selection nil withprop "[?]" confirm minibuffer-message " [confirm]" t " [No match]" helm-exit-minibuffer] 7 (#$ . 113764) nil]) 892c1017 < (defalias 'helm-confirm-and-exit-hook #[nil "\302=\206 ??\205 \211\207" [minibuffer-completion-confirm helm-minibuffer-confirm-state t] 2 (#$ . 110164)]) --- > (defalias 'helm-confirm-and-exit-hook #[nil "\302=\206 ??\205 \211\207" [minibuffer-completion-confirm helm-minibuffer-confirm-state t] 2 (#$ . 114624)]) 894c1019 < (defalias 'helm-exit-minibuffer #[nil "\204 \303\304 \207" [helm-current-prefix-arg current-prefix-arg helm-exit-status 0 exit-minibuffer] 1 (#$ . 110388) nil]) --- > (defalias 'helm-exit-minibuffer #[nil "\204 \303\304 \207" [helm-current-prefix-arg current-prefix-arg helm-exit-status 0 exit-minibuffer] 1 (#$ . 114848) nil]) 897c1022 < (defalias 'helm-keyboard-quit #[nil "\302\303\"\203 \304!\210\305\306 \207" [helm-action-buffer helm-exit-status get-buffer-window visible kill-buffer 1 abort-recursive-edit] 3 (#$ . 110616) nil]) --- > (defalias 'helm-keyboard-quit #[nil "\302\303\"\203 \304!\210\305\306 \207" [helm-action-buffer helm-exit-status get-buffer-window visible kill-buffer 1 abort-recursive-edit] 3 (#$ . 115076) nil]) 899c1024 < (defalias 'helm-get-next-header-pos #[nil "\300`\301\"\207" [next-single-property-change helm-header] 3 (#$ . 110888)]) --- > (defalias 'helm-get-next-header-pos #[nil "\300`\301\"\207" [next-single-property-change helm-header] 3 (#$ . 115348)]) 901c1026 < (defalias 'helm-get-previous-header-pos #[nil "\300`\301\"\207" [previous-single-property-change helm-header] 3 (#$ . 111065)]) --- > (defalias 'helm-get-previous-header-pos #[nil "\300`\301\"\207" [previous-single-property-change helm-header] 3 (#$ . 115525)]) 903c1028 < (defalias 'helm-pos-multiline-p #[nil "\300`\301\"\207" [get-text-property helm-multiline] 3 (#$ . 111254)]) --- > (defalias 'helm-pos-multiline-p #[nil "\300`\301\"\207" [get-text-property helm-multiline] 3 (#$ . 115714)]) 905c1030 < (defalias 'helm-get-next-candidate-separator-pos #[nil "\300`\301\"\207" [next-single-property-change helm-candidate-separator] 3 (#$ . 111443)]) --- > (defalias 'helm-get-next-candidate-separator-pos #[nil "\300`\301\"\207" [next-single-property-change helm-candidate-separator] 3 (#$ . 115903)]) 907c1032 < (defalias 'helm-get-previous-candidate-separator-pos #[nil "\300`\301\"\207" [previous-single-property-change helm-candidate-separator] 3 (#$ . 111659)]) --- > (defalias 'helm-get-previous-candidate-separator-pos #[nil "\300`\301\"\207" [previous-single-property-change helm-candidate-separator] 3 (#$ . 116119)]) 909c1034 < (defalias 'helm-pos-header-line-p #[nil "\300\301 \302\"\206 \300\301 \303\"\207" [get-text-property point-at-bol helm-header helm-header-separator] 3 (#$ . 111887)]) --- > (defalias 'helm-pos-header-line-p #[nil "\300\301 \302\"\206 \300\301 \303\"\207" [get-text-property point-at-bol helm-header helm-header-separator] 3 (#$ . 116347)]) 911c1036 < (defalias 'helm-pos-candidate-separator-p #[nil "\300\301 \302\"\207" [get-text-property point-at-bol helm-candidate-separator] 3 (#$ . 112108)]) --- > (defalias 'helm-pos-candidate-separator-p #[nil "\300\301 \302\"\207" [get-text-property point-at-bol helm-candidate-separator] 3 (#$ . 116568)]) 913,914c1038,1039 < (defalias 'helm-debug-output #[nil "\300\301\302\"\207" [helm-help-internal " *Helm Debug*" helm-debug-output-function] 3 (#$ . 112315) nil]) < (defalias 'helm-debug-output-function #[(&optional vars) "\305\306!\210\307c\210\206 \206\310\311\312\"\313\211\2037 @\314\315\n!\316\315r\fq\210\317\n!)!\316\261\210 A\211\204*\305\320!\207" [vars helm-debug-variables v --dolist-tail-- helm-buffer message "Calculating all helm-related values..." "If you debug some variables or forms, set `helm-debug-variables'\nto a list of forms.\n\n" apropos-internal "^helm-" boundp nil "** " pp-to-string "\n" eval "Calculating all helm-related values...Done"] 7]) --- > (defalias 'helm-debug-output #[nil "\300\301\302\"\207" [helm-help-internal " *Helm Debug*" helm-debug-output-function] 3 (#$ . 116775) nil]) > (defalias 'helm-debug-output-function #[(&optional vars) "\305\306!\210\307c\210\206 \206\310\311\312\"\313\211\2037 @\314\315\n!\316\315r\fq\210\317\n!)!\316\261\210 A\211\204*\305\320!\207" [vars helm-debug-variables v #1=#:--cl-dolist-temp-- helm-buffer message "Calculating all helm-related values..." "If you debug some variables or forms, set `helm-debug-variables'\nto a list of forms.\n\n" apropos-internal "^helm-" boundp nil "** " pp-to-string "\n" eval "Calculating all helm-related values...Done"] 7]) 916c1041 < (defalias 'helm-kill-buffer-hook #[nil "\301\302\"\210\303\207" [helm-tick-hash maphash #[(key #1=#:--cl-var--) "\302\303\304\305\306 !\"\"\205\307 \"\207" [key helm-tick-hash string-match format "^%s/" regexp-quote buffer-name remhash] 5] nil] 3 (#$ . 113028)]) --- > (defalias 'helm-kill-buffer-hook #[nil "\301\302\"\210\303\207" [helm-tick-hash maphash #[(key #1=#:--cl-var--) "\302\303\304\305\306 !\"\"\205\307 \"\207" [key helm-tick-hash string-match format "^%s/" regexp-quote buffer-name remhash] 5] nil] 3 (#$ . 117496)]) 919c1044 < (defalias 'helm-preselect #[(candidate-or-regexp &optional source) "\305\306 !r\307\216\310@\311\"\210 \203=\n\203! \203'\312 !\210\202'eb\210\313y\210`\314 \315\316#\204<\317 \315\316#\204<\fb\210)\320 +\207" [save-selected-window--state candidate-or-regexp helm-force-updating-p source start internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-goto-source 1 search-forward nil t re-search-forward helm-mark-current-line] 4 (#$ . 113417)]) --- > (defalias 'helm-preselect #[(candidate-or-regexp &optional source) "\306 \307\310\311 \"r\312\216\313\314 \315\"\210\n\203A \203%\f\203+\316\f!\210\202+eb\210\317y\210`\320\n\321\322#\204@\323\n\321\322#\204@ b\210)\324 ,\207" [save-selected-window-alist save-selected-window-window candidate-or-regexp helm-force-updating-p source start selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-goto-source 1 search-forward nil t re-search-forward helm-mark-current-line] 4 (#$ . 117885)]) 921c1046 < (defalias 'helm-delete-current-selection #[nil "\303\304 !r\305\216\306@\307\"\210\310 \203D\311 \211\203'\312 b\210\313 T|\210\2020\314 b\210\312 d|\210)\315 \203b\314 \206<eb\210\316y\210\202b\312 \313 T|\210\315\317!\203b\212\320y\210\321 )?\211\203a\320y\210)\315\317!?\205k\322 +\207" [save-selected-window--state it headp internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-pos-multiline-p helm-get-next-candidate-separator-pos point-at-bol point-at-eol helm-get-previous-candidate-separator-pos helm-end-of-source-p 1 t -1 helm-pos-header-line-p helm-mark-current-line] 4 (#$ . 114033) nil]) --- > (defalias 'helm-delete-current-selection #[nil "\304 \305\306\307 \"r\310\216\311\312 \313\"\210\314 \203H\315 \211\203+\316 \nb\210\317 T|\210\2024\320 b\210\316 d|\210)\321 \203f\320 \206@eb\210\322y\210\202f\316 \317 T|\210\321\323!\203f\212\324y\210\325 )?\211\203e\324y\210)\321\323!?\205o\326 ,\207" [save-selected-window-alist save-selected-window-window it headp selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-pos-multiline-p helm-get-next-candidate-separator-pos point-at-bol point-at-eol helm-get-previous-candidate-separator-pos helm-end-of-source-p 1 t -1 helm-pos-header-line-p helm-mark-current-line] 5 (#$ . 118846) nil]) 923,924c1048,1049 < (defalias 'helm-end-of-source-p #[(&optional at-point) "\212\203 \301\202\n\302y\210\303 \304 =\206\305 \206m)\207" [at-point 0 1 point-at-bol point-at-eol helm-pos-header-line-p] 2 (#$ . 114783)]) < (defalias 'helm-edit-current-selection-internal #[(func) "\304\305 !r\306\216\307@\310\"\210\311y\210\312`\313\"\312`\314\" \210\311y\210\n\203-\315`\316 \313\n$\210 \2039\315`\316 \314 $\210\317 -\207" [save-selected-window--state multiline realvalue func internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord 0 get-text-property helm-realvalue helm-multiline put-text-property point-at-eol helm-mark-current-line] 5]) --- > (defalias 'helm-end-of-source-p #[(&optional at-point) "\212\203 \301\202\n\302y\210\303 \304 =\206\305 \206m)\207" [at-point 0 1 point-at-bol point-at-eol helm-pos-header-line-p] 2 (#$ . 119939)]) > (defalias 'helm-edit-current-selection-internal #[(func) "\305 \306\307\310 \"r\311\216\312\313 \314\"\210\315y\210\316`\317\"\316`\320\"\f \210\315y\210 \2031\321`\322 \317 $\210\n\203=\321`\322 \320\n$\210\323 .\207" [save-selected-window-alist save-selected-window-window multiline realvalue func selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord 0 get-text-property helm-realvalue helm-multiline put-text-property point-at-eol helm-mark-current-line] 5])(if macro-declaration-function (funcall macro-declaration-function (quote helm-edit-current-selection) (quote (declare (indent 0) (debug t))))) 927,928c1052 < (defalias 'helm-edit-current-selection '(macro . #[(&rest forms) "\301\302\303BBD\207" [forms helm-edit-current-selection-internal lambda nil] 4 (#$ . 115561)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put helm-edit-current-selection lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'helm-edit-current-selection '(macro . #[(&rest forms) "\301\302\303BBD\207" [forms helm-edit-current-selection-internal lambda nil] 4 (#$ . 121204)])) 931c1055 < (defalias 'helm-set-pattern #[(pattern &optional noupdate) "\304\305 \206\306 !r\307\216\310@\311\"\210\312 \210 c\210+\n\205! \211\207" [save-selected-window--state pattern noupdate helm-pattern internal--before-with-selected-window active-minibuffer-window minibuffer-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord delete-minibuffer-contents] 3 (#$ . 115965)]) --- > (defalias 'helm-set-pattern #[(pattern &optional noupdate) "\305 \306\307\310 \"r\311\216\312\313 \206\314 \315\"\210\316 \210\nc\210, \205%\n\211\207" [save-selected-window-alist save-selected-window-window pattern noupdate helm-pattern selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window active-minibuffer-window minibuffer-window norecord delete-minibuffer-contents] 4 (#$ . 121473)]) 934c1058 < (defalias 'helm-minibuffer-completion-contents #[nil "\300 `{\207" [field-beginning] 2 (#$ . 116490)]) --- > (defalias 'helm-minibuffer-completion-contents #[nil "\300 `{\207" [field-beginning] 2 (#$ . 122341)]) 939c1063 < (defalias 'helm-delete-minibuffer-contents #[(&optional arg) "\304\305!\210\306  \204\n\203\307 \202\310\311 \210G\312V\203&\313 !\202(\314 *\207" [input arg helm-delete-minibuffer-contents-from-point str require helm-utils minibuffer-contents helm-minibuffer-completion-contents "" helm-reset-yank-point 0 helm-set-pattern helm-force-update] 2 (#$ . 116709) "P"]) --- > (defalias 'helm-delete-minibuffer-contents #[(&optional arg) "\304\305!\210\306  \204\n\203\307 \202\310\311 \210G\312V\203&\313 !\202(\314 *\207" [input arg helm-delete-minibuffer-contents-from-point str require helm-utils minibuffer-contents helm-minibuffer-completion-contents "" helm-reset-yank-point 0 helm-set-pattern helm-force-update] 2 (#$ . 122560) "P"]) 944c1068 < (defalias 'helm-dummy-candidate #[(candidate source) "C\207" [helm-pattern] 1 (#$ . 117804)]) --- > (defalias 'helm-dummy-candidate #[(candidate source) "C\207" [helm-pattern] 1 (#$ . 123655)]) 1011c1135 < (defalias 'helm-candidates-in-buffer #[nil "\302\303 \304\305 \"\206\f\306\304\307 \"\206\310\311 \"\203\312\202\313\314 !\310\311 \"\315\316!&\207" [helm-pattern source helm-candidates-in-buffer-1 helm-candidate-buffer assoc-default get-line buffer-substring-no-properties search assoc search-from-end (helm-candidates-in-buffer-search-from-end) (helm-candidates-in-buffer-search-from-start) helm-candidate-number-limit helm-attr match-part] 9 (#$ . 118255)]) --- > (defalias 'helm-candidates-in-buffer #[nil "\302\303 \304\305 \"\206\f\306\304\307 \"\206\310\311 \"\203\312\202\313\314 !\310\311 \"\315\316!&\207" [helm-pattern source helm-candidates-in-buffer-1 helm-candidate-buffer assoc-default get-line buffer-substring-no-properties search assoc search-from-end (helm-candidates-in-buffer-search-from-end) (helm-candidates-in-buffer-search-from-start) helm-candidate-number-limit helm-attr match-part] 9 (#$ . 124106)]) 1013c1137 < (defalias 'helm-candidates-in-buffer-search-from-start #[(pattern) "\301\302\303#\207" [pattern re-search-forward nil t] 4 (#$ . 121432)]) --- > (defalias 'helm-candidates-in-buffer-search-from-start #[(pattern) "\301\302\303#\207" [pattern re-search-forward nil t] 4 (#$ . 127283)]) 1015c1139 < (defalias 'helm-candidates-in-buffer-search-from-end #[(pattern) "\301\302\303#\207" [pattern re-search-backward nil t] 4 (#$ . 121647)]) --- > (defalias 'helm-candidates-in-buffer-search-from-end #[(pattern) "\301\302\303#\207" [pattern re-search-backward nil t] 4 (#$ . 127498)]) 1018,1019c1142,1143 < (defalias 'helm-point-is-moved #[(proc) "`\212 \210`)U?\207" [proc] 2 (#$ . 122327)]) < (defalias 'helm-search-from-candidate-buffer #[(pattern get-line-fn search-fns limit search-from-end start-point endp match-part-fn) "\305\211\211\211\306 \307\310!-\207" [case-fold-search newmatches exit matches buffer-read-only nil helm-set-case-fold-search helm-search-from-candidate-buffer-internal #[nil "\306!\210 \307\211\203' @\fb\210\307\310\311\215\210\312\f \237\"\f A\211\204\f*\313\307\f\"\207" [helm-cib-hash search-fns searcher --dolist-tail-- start-point newmatches clrhash nil --cl-block-nil-- (byte-code "\306\307\310\307\f !\203V\311 \312 \"\203$\313 #\203H\314 \"\204H\315 \310#\210 BT\211U\203H\316\317\307\"\210\320\321!\204\307\211\211\204 \210,\307\207" [item-count cand #1=#:--cl-var-- #2=#:--cl-var-- searcher pattern 0 nil t point-at-bol point-at-eol helm-search-match-part gethash puthash throw --cl-block-nil-- helm-point-is-moved #[nil "\203 \301 Sb\207\302y\207" [search-from-end point-at-bol 1] 1] get-line-fn match-part-fn helm-cib-hash newmatches limit] 5) append delq matches] 4]] 5]) --- > (defalias 'helm-point-is-moved #[(proc) "`\212 \210`)U?\207" [proc] 2 (#$ . 128178)]) > (defalias 'helm-search-from-candidate-buffer #[(pattern get-line-fn search-fns limit search-from-end start-point endp match-part-fn) "\305\211\211\211\306 \307\310!-\207" [case-fold-search newmatches exit matches buffer-read-only nil helm-set-case-fold-search helm-search-from-candidate-buffer-internal #[nil "\306!\210 \307\211\203' @\fb\210\307\310\311\215\210\312\f \237\"\f A\211\204\f*\313\307\f\"\207" [helm-cib-hash search-fns searcher #1=#:--cl-dolist-temp-- start-point newmatches clrhash nil --cl-block-nil-- (byte-code "\306\307\310\307\f !\203V\311 \312 \"\203$\313 #\203H\314 \"\204H\315 \310#\210 BT\211U\203H\316\317\307\"\210\320\321!\204\307\211\211\204 \210,\307\207" [item-count cand #2=#:--cl-var-- #3=#:--cl-var-- searcher pattern 0 nil t point-at-bol point-at-eol helm-search-match-part gethash puthash throw --cl-block-nil-- helm-point-is-moved #[nil "\203 \301 Sb\207\302y\207" [search-from-end point-at-bol 1] 1] get-line-fn match-part-fn helm-cib-hash newmatches limit] 5) append delq matches] 4]] 5]) 1021c1145 < (defalias 'helm-search-match-part #[(candidate pattern match-part-fn) " !\306\307 \"\2039\310 \307\311#\312\311 \f:\203/\f@\306 \n\"\211 \203/\fA\211\202 \2055\311+\202=\306 \n\")\207" [match-part-fn candidate part pattern #1=#:--cl-var-- i string-match " " split-string t nil #2=#:--cl-flag--] 5 (#$ . 123558)]) --- > (defalias 'helm-search-match-part #[(candidate pattern match-part-fn) " !\306\307 \"\2039\310 \307\311#\312\311 \f:\203/\f@\306 \n\"\211 \203/\fA\211\202 \2055\311+\202=\306 \n\")\207" [match-part-fn candidate part pattern #1=#:--cl-var-- i string-match " " split-string t nil #2=#:--cl-flag--] 5 (#$ . 129417)]) 1040c1164 < (defalias 'helm-candidate-buffer #[(&optional create-or-buffer) "\306\307\"\306\310\311\n!#\312\313\314\315\2034\f \210\316!\2044\317=\2030 \210 \210 .\207" [helm-source-name global-bname helm-current-buffer local-bname register-func kill-buffers-func format " *helm candidates:%s*" " *helm candidates:%s*%s" buffer-name #[nil " B\303\304\n\"\n\"B\211\207" [helm-source-name create-or-buffer helm-candidate-buffer-alist delete assoc] 5] #[nil "\303 \304:\203&@\305\306\307\310\n!\"\311 !\"\203\312 !\210A\211\202*\304\207" [#1=#:--cl-var-- b global-bname buffer-list nil string-match format "^%s" regexp-quote buffer-name kill-buffer] 6] #[nil "r\303\304=\203\f \202 \n!q\210\305 \210\306 \210\307\310!)\207" [create-or-buffer global-bname local-bname get-buffer-create global buffer-disable-undo erase-buffer font-lock-mode -1] 3] #[nil "\305!\206\305 !\206\306\n \"\211\205\307\f!\205\f)\207" [local-bname global-bname helm-source-name helm-candidate-buffer-alist it get-buffer assoc-default buffer-live-p] 4] bufferp global create-func return-func create-or-buffer] 5 (#$ . 124613)]) --- > (defalias 'helm-candidate-buffer #[(&optional create-or-buffer) "\306\307\"\306\310\311\n!#\312\313\314\315\2034\f \210\316!\2044\317=\2030 \210 \210 .\207" [helm-source-name global-bname helm-current-buffer local-bname register-func kill-buffers-func format " *helm candidates:%s*" " *helm candidates:%s*%s" buffer-name #[nil " B\303\304\n\"\n\"B\211\207" [helm-source-name create-or-buffer helm-candidate-buffer-alist delete assoc] 5] #[nil "\303 \304:\203&@\305\306\307\310\n!\"\311 !\"\203\312 !\210A\211\202*\304\207" [#1=#:--cl-var-- b global-bname buffer-list nil string-match format "^%s" regexp-quote buffer-name kill-buffer] 6] #[nil "r\303\304=\203\f \202 \n!q\210\305 \210\306 \210\307\310!)\207" [create-or-buffer global-bname local-bname get-buffer-create global buffer-disable-undo erase-buffer font-lock-mode -1] 3] #[nil "\305!\206\305 !\206\306\n \"\211\205\307\f!\205\f)\207" [local-bname global-bname helm-source-name helm-candidate-buffer-alist it get-buffer assoc-default buffer-live-p] 4] bufferp global create-func return-func create-or-buffer] 5 (#$ . 130472)]) 1045c1169 < (defalias 'helm-init-candidates-in-buffer #[(buffer data) "\305;\204\f\306!\203\307!\202!r q\210\310 \210\n<\203=\n\311 :\2039 @\211\312Pc\210 A\211\202&*\202E\n;\203E\nc\210*\207" [buffer buf data #1=#:--cl-var-- i helm-candidate-buffer bufferp get-buffer-create erase-buffer nil "\n"] 4 (#$ . 126284)]) --- > (defalias 'helm-init-candidates-in-buffer #[(buffer data) "\305;\204\f\306!\203\307!\202!r q\210\310 \210\n<\203=\n\311 :\2039 @\211\312Pc\210 A\211\202&*\202E\n;\203E\nc\210*\207" [buffer buf data #1=#:--cl-var-- i helm-candidate-buffer bufferp get-buffer-create erase-buffer nil "\n"] 4 (#$ . 132143)]) 1048c1172 < (defalias 'helm-toggle-resplit-window #[nil "\306\307\310\"\210\311\216\312\313 !r\314\216\315@\316\"\210 \204\317\320!\203%\321\322!\202m\323 \324 \210\325\315\323 \nU\203P \326=\204@ \327=\203I\330\331 \310\326#\202K\332 \333\202i\334 \327=\204^ \326=\203g\330\331 \310\327#\202i\335 ! \"),\207" [save-selected-window--state helm-full-frame before-height helm-split-window-default-side helm-split-window-state helm-buffer helm-prevent-switching-other-window :enabled nil ((helm-prevent-switching-other-window)) internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord one-window-p t message "Error: Attempt to resplit a single window" window-height delete-window set-window-buffer above left split-window selected-window split-window-vertically vertical horizontal split-window-horizontally] 6 (#$ . 127116) nil]) --- > (defalias 'helm-toggle-resplit-window #[nil "\306\307\310\"\210\311\216\312 \313\314\315 \"r\316\216\317\320 \321\"\210\n\204#\322\323!\203)\324\325!\202r\326 \327 \210\330\317\326 U\203T\f\331=\204D\f\332=\203M\333\312 \310\331#\202O\334 \335\202m\336\f\332=\204b\f\331=\203k\333\312 \310\332#\202m\337 ! \")-\207" [save-selected-window-alist save-selected-window-window helm-full-frame before-height helm-split-window-default-side helm-split-window-state helm-prevent-switching-other-window :enabled nil ((helm-prevent-switching-other-window)) selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord one-window-p t message "Error: Attempt to resplit a single window" window-height delete-window set-window-buffer above left split-window split-window-vertically vertical horizontal split-window-horizontally helm-buffer] 6 (#$ . 132975) nil]) 1051c1175 < (defalias 'helm-enlarge-window-1 #[(n) "?\205 \305=\306\307 !r\310\216\311 @\312\"\210\313\f\n\",\207" [helm-full-frame helm-split-window-state horizontal-p save-selected-window--state n horizontal internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord enlarge-window] 3 (#$ . 128096)]) --- > (defalias 'helm-enlarge-window-1 #[(n) "?\205 \306=\307 \310\311\312 \"r\313\216\314\315 \316\"\210\317 \n\"-\207" [helm-full-frame helm-split-window-state horizontal-p save-selected-window-alist save-selected-window-window n horizontal selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord enlarge-window] 4 (#$ . 134286)]) 1053c1177 < (defalias 'helm-narrow-window #[nil "\300\301!\207" [helm-enlarge-window-1 -1] 2 (#$ . 128558) nil]) --- > (defalias 'helm-narrow-window #[nil "\300\301!\207" [helm-enlarge-window-1 -1] 2 (#$ . 135089) nil]) 1055c1179 < (defalias 'helm-enlarge-window #[nil "\300\301!\207" [helm-enlarge-window-1 1] 2 (#$ . 128685) nil]) --- > (defalias 'helm-enlarge-window #[nil "\300\301!\207" [helm-enlarge-window-1 1] 2 (#$ . 135216) nil]) 1057c1181 < (defalias 'helm-swap-windows #[nil "\203\306\307!\203\310\311!\207\312 \n\313=\314 \"\315 !\316 !\317 !\320 \321#\314 \"\315!\316!\322 \323 p!\"\324\216\325\317 !\326\"\210\327 #\210\327 #\210\fW\203y\f]\f^Z[\202\215\fV\203\214\f]\f^Z\202\215\322\211 \203\233\330 #\210\331 \307#\210\331\307#.\207" [helm-full-frame w1 helm-split-window-state split-state w1size b1 one-window-p t error "Error: Can't swap windows in a single window" helm-window horizontal window-total-size window-buffer window-start window-frame next-window 1 nil selected-frame ((byte-code "\302!\203 \303\304\"\210\305 !\203 q\210\302\207" [#1=#:old-frame #2=#:old-buffer frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord helm-replace-buffer-in-window window-resize set-window-start s1 cur-frame w2 w2size b2 s2 resize #2# #1#] 5 (#$ . 128813) nil]) --- > (defalias 'helm-swap-windows #[nil "\203\306\307!\203\310\311!\207\312 \n\313=\314 \"\315 !\316 !\317 !\320 \321#\314 \"\315!\316!\322 \323 p!\"\324\216\325\317 !\326\"\210\327 #\210\327 #\210\fW\203y\f]\f^Z[\202\215\fV\203\214\f]\f^Z\202\215\322\211 \203\233\330 #\210\331 \307#\210\331\307#.\207" [helm-full-frame w1 helm-split-window-state split-state w1size b1 one-window-p t error "Error: Can't swap windows in a single window" helm-window horizontal window-total-size window-buffer window-start window-frame next-window 1 nil selected-frame ((byte-code "\302!\203 \303\304\"\210\305 !\203 q\210\302\207" [#1=#:old-frame #2=#:old-buffer frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord helm-replace-buffer-in-window window-resize set-window-start s1 cur-frame w2 w2size b2 s2 resize #2# #1#] 5 (#$ . 135344) nil]) 1059c1183 < (defalias 'helm-replace-buffer-in-window #[(window buffer1 buffer2) "\303!\205\304 \"\210\305 \n\"\207" [buffer1 window buffer2 get-buffer-window unrecord-window-buffer set-window-buffer] 3 (#$ . 129792)]) --- > (defalias 'helm-replace-buffer-in-window #[(window buffer1 buffer2) "\303!\205\304 \"\210\305 \n\"\207" [buffer1 window buffer2 get-buffer-window unrecord-window-buffer set-window-buffer] 3 (#$ . 136323)]) 1061c1185 < (defalias 'helm-select-nth-action #[(n) "\303 \211\204 \304\305!\210\306 \307 \"\310 \207" [helm-saved-selection n helm-saved-action helm-get-selection error "Nothing is selected" helm-get-nth-action helm-get-action helm-exit-minibuffer] 4 (#$ . 130066)]) --- > (defalias 'helm-select-nth-action #[(n) "\303 \211\204 \304\305!\210\306 \307 \"\310 \207" [helm-saved-selection n helm-saved-action helm-get-selection error "Nothing is selected" helm-get-nth-action helm-get-action helm-exit-minibuffer] 4 (#$ . 136597)]) 1064c1188 < (defalias 'helm-select-2nd-action #[nil "\300\301!\207" [helm-select-nth-action 1] 2 (#$ . 130659) nil]) --- > (defalias 'helm-select-2nd-action #[nil "\300\301!\207" [helm-select-nth-action 1] 2 (#$ . 137190) nil]) 1066c1190 < (defalias 'helm-select-3rd-action #[nil "\300\301!\207" [helm-select-nth-action 2] 2 (#$ . 130830) nil]) --- > (defalias 'helm-select-3rd-action #[nil "\300\301!\207" [helm-select-nth-action 2] 2 (#$ . 137361) nil]) 1068c1192 < (defalias 'helm-select-4th-action #[nil "\300\301!\207" [helm-select-nth-action 3] 2 (#$ . 131001) nil]) --- > (defalias 'helm-select-4th-action #[nil "\300\301!\207" [helm-select-nth-action 3] 2 (#$ . 137532) nil]) 1072c1196 < (defalias 'helm-select-2nd-action-or-end-of-line #[nil "l\203\300\301!\207\302\207" [helm-select-nth-action 1 nil] 2 (#$ . 131173) nil]) --- > (defalias 'helm-select-2nd-action-or-end-of-line #[nil "l\203\300\301!\207\302\207" [helm-select-nth-action 1 nil] 2 (#$ . 137704) nil])(if macro-declaration-function (funcall macro-declaration-function (quote with-helm-display-same-window) (quote (declare (indent 0) (debug t))))) 1075,1076c1199 < (defalias 'with-helm-display-same-window '(macro . #[(&rest body) "\301\302BB\207" [body let ((display-buffer-function 'helm-persistent-action-display-buffer))] 3 (#$ . 131470)])) < (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put with-helm-display-same-window lisp-indent-function 0 edebug-form-spec t] 4) --- > (defalias 'with-helm-display-same-window '(macro . #[(&rest body) "\301\302BB\207" [body let ((display-buffer-function 'helm-persistent-action-display-buffer))] 3 (#$ . 138146)])) 1078c1201 < #@475 Perform the associated action ATTR without quitting helm. --- > #@482 Perform the associated action ATTR without quitting helm. 1088,1089c1211,1212 < (fn &optional (ATTR 'persistent-action) SPLIT-ONEWINDOW) < (defalias 'helm-execute-persistent-action #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \306\211A@\203\"\307\310\311\312G\\D\"\210\313\314!\210\315 \316 \"\211:\203<\317 !\204< @\202=  :\205L\317 !?\205L A\320\321 !'r\322\216\323'@\324\"\210\325 'r\326\216 \203n\327 \210\202w\327\n\206u(!\210\330\331!\210\332)\333*\334\335\f\206\211\336 \332#\210\337\340!\210)(\205\254\341 G\342V\205\254\343\344+!!\345 \232\205\254\346 .\f\207" [#1# attr split-onewindow attr-val fn no-split persistent-action signal wrong-number-of-arguments helm-execute-persistent-action 2 helm-log "executing persistent-action" assoc-default helm-get-current-source functionp internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) helm-select-persistent-action-window helm-log-eval-internal ((current-buffer)) t helm-persistent-action-display-buffer helm-execute-selection-action-1 nil helm-get-action helm-log-run-hook helm-after-persistent-action-hook window-list 1 buffer-name window-buffer helm-buffer-get delete-other-windows save-selected-window--state helm-onewindow-p helm-in-persistent-action display-buffer-function helm-persistent-action-display-window] 6 (#$ . 132068) nil]) --- > (fn &optional (ATTR (quote persistent-action)) SPLIT-ONEWINDOW) > (defalias 'helm-execute-persistent-action #[(&rest #1=#:--cl-rest--) "\203\f\211A@\202 \306\211A@\203\"\307\310\311\312G\\D\"\210\313\314!\210\315 \316 \"\211:\203<\317 !\204< @\202=  :\205L\317 !?\205L A\320 \321\322\323 \"*+r\324\216\325\326 \327\"\210\320 \321\330\323 \"*+r\331\216 \203y\332 \210\202\202\332\n\206\200,!\210\333\334!\210\335-\336.\337\340\f\206\224\341 \335#\210\342\343!\210),\205\267\344 G\345V\205\267\346\347/!!\350 \232\205\267\351 .\207" [#1# attr split-onewindow attr-val fn no-split persistent-action signal wrong-number-of-arguments helm-execute-persistent-action 2 helm-log "executing persistent-action" assoc-default helm-get-current-source functionp selected-window mapcar #[#3=(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #2=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord #[#3# "\301!B\207" [frame frame-selected-window] 3] ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt #4=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) helm-select-persistent-action-window helm-log-eval-internal ((current-buffer)) t helm-persistent-action-display-buffer helm-execute-selection-action-1 nil helm-get-action helm-log-run-hook helm-after-persistent-action-hook window-list 1 buffer-name window-buffer helm-buffer-get delete-other-windows save-selected-window-alist save-selected-window-window helm-onewindow-p helm-in-persistent-action display-buffer-function helm-persistent-action-display-window] 6 (#$ . 138607) nil]) 1092c1215 < (defalias 'helm-persistent-action-display-window #[(&optional split-onewindow) "\305\306 !r\307\216\310@\311\"\210\312 !\203 \313\n!\235\204 \2024 \203)\314 \2024\315\f!\2064\316\317 \320\"\211+\207" [save-selected-window--state helm-persistent-action-display-window helm-buffer split-onewindow helm-current-buffer internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord window-live-p get-buffer-window-list split-window get-buffer-window next-window selected-window 1] 3 (#$ . 133938)]) --- > (defalias 'helm-persistent-action-display-window #[(&optional split-onewindow) "\306 \307\310\311 \"r\312\216\313\314 \315\"\210\316\n!\203$\n\317 !\235\204$\n\2028\f\203-\320 \2028\321 !\2068\322\306 \323\"\211,\207" [save-selected-window-alist save-selected-window-window helm-persistent-action-display-window helm-buffer split-onewindow helm-current-buffer selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord window-live-p get-buffer-window-list split-window get-buffer-window next-window 1] 4 (#$ . 141096)]) 1095c1218 < (defalias 'helm-select-persistent-action-window #[(&optional split-onewindow) "\302\303\304 !!\210\302\305!\211!\207" [split-onewindow minibuffer-scroll-window select-window get-buffer-window helm-buffer-get helm-persistent-action-display-window] 3 (#$ . 134666)]) --- > (defalias 'helm-select-persistent-action-window #[(&optional split-onewindow) "\302\303\304 !!\210\302\305!\211!\207" [split-onewindow minibuffer-scroll-window select-window get-buffer-window helm-buffer-get helm-persistent-action-display-window] 3 (#$ . 142152)]) 1101,1102c1224,1225 < (defalias 'helm-persistent-action-display-buffer #[(buf &optional action) "\306!\307\211\307 \205 \205 \205a \310\311\"\235\206a\307\312\307:\203^@\313\242\206I \"\211?\211\203^A\211\2027,?\205f\314\315\204s\203x\316 \202z\317 !r\320\216\321@\322\"\210\323\324!\307\"\210\325\".\n\207" [buf name display-buffer-function pop-up-windows pop-up-frames helm-persistent-action-use-special-display buffer-name nil mapcar #[(x) "\242\206\207" [x] 1] t string-match (".") internal--before-with-selected-window minibuffer-window selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord set-window-dedicated-p get-buffer-window display-buffer special-display-buffer-names special-display-regexps #1=#:--cl-var-- x #2=#:--cl-flag-- #3=#:--cl-var-- same-window-regexps save-selected-window--state action] 5 (#$ . 135075)]) < (defalias 'helm-other-window-base #[(command &optional scroll-amount) "\304=?\205 \305\306 !r\307\216\310\n@\311\"\210 !+\207" [scroll-amount helm-scroll-amount save-selected-window--state command noscroll internal--before-with-selected-window helm-persistent-action-display-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord] 3]) --- > (defalias 'helm-persistent-action-display-buffer #[(buf &optional action) "\306!\307\211\307 \205 \205 \205a \310\311\"\235\206a\307\312\307:\203^@\313\242\206I \"\211?\211\203^A\211\2027,?\205f\314\315 \310\316\317 \"r\320\216\321\204\201\203\206\322 \202\210\315 \323\"\210\324\325!\307\"\210\326 \". \207" [buf name display-buffer-function pop-up-windows pop-up-frames helm-persistent-action-use-special-display buffer-name nil mapcar #[(x) "\242\206\207" [x] 1] t string-match (".") selected-window #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window minibuffer-window norecord set-window-dedicated-p get-buffer-window display-buffer special-display-buffer-names special-display-regexps #2=#:--cl-var-- x #3=#:--cl-flag-- #4=#:--cl-var-- same-window-regexps save-selected-window-alist save-selected-window-window action] 5 (#$ . 142561)]) > (defalias 'helm-other-window-base #[(command &optional scroll-amount) "\305=?\205 \306 \307\310\311 \"r\312\216\313\314 \315\"\210\f!,\207" [scroll-amount helm-scroll-amount save-selected-window-alist save-selected-window-window command noscroll selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-persistent-action-display-window norecord] 4]) 1104c1227 < (defalias 'helm-scroll-other-window #[nil "\300\301!\207" [helm-other-window-base scroll-up] 2 (#$ . 136760) nil]) --- > (defalias 'helm-scroll-other-window #[nil "\300\301!\207" [helm-other-window-base scroll-up] 2 (#$ . 144915) nil]) 1106c1229 < (defalias 'helm-scroll-other-window-down #[nil "\300\301!\207" [helm-other-window-base scroll-down] 2 (#$ . 136929) nil]) --- > (defalias 'helm-scroll-other-window-down #[nil "\300\301!\207" [helm-other-window-base scroll-down] 2 (#$ . 145084) nil]) 1108c1231 < (defalias 'helm-recenter-top-bottom-other-window #[nil "\300\301\302\"\207" [helm-other-window-base recenter-top-bottom noscroll] 3 (#$ . 137107) nil]) --- > (defalias 'helm-recenter-top-bottom-other-window #[nil "\300\301\302\"\207" [helm-other-window-base recenter-top-bottom noscroll] 3 (#$ . 145262) nil]) 1110c1233 < (defalias 'helm-reposition-window-other-window #[nil "\300\301\302\"\207" [helm-other-window-base reposition-window noscroll] 3 (#$ . 137324) nil]) --- > (defalias 'helm-reposition-window-other-window #[nil "\300\301\302\"\207" [helm-other-window-base reposition-window noscroll] 3 (#$ . 145479) nil]) 1117c1240 < (defalias 'helm-toggle-visible-mark #[nil "\302\303 !r\304\216\305@\306\"\210\307 \211\203\310 !\210\202\311 \210)\312 +\207" [save-selected-window--state it internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-this-visible-mark helm-delete-visible-mark helm-make-visible-mark helm-next-line] 4 (#$ . 138727) nil]) --- > (defalias 'helm-toggle-visible-mark #[nil "\303 \304\305\306 \"r\307\216\310\311 \312\"\210\313 \211\203 \314\n!\210\202#\315 \210)\316 ,\207" [save-selected-window-alist save-selected-window-window it selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-this-visible-mark helm-delete-visible-mark helm-make-visible-mark helm-next-line] 5 (#$ . 146882) nil]) 1119c1242 < (defalias 'helm-mark-all #[nil "\306\307!\210\310\311 !r\312\216\313@\314\"\210\212\315 b\210\316 \210\317 \211\205*\212 b\210\320y\210`)\211\2060d` W\203\214\321 \210\322\323 \324\"\325 \326 \205K\327 !'\330\331\332 \"(\333 \204\202\f\334\230\204\202\f\335\230\204\202\326 \204q(\336\232\203\337\340'\"\204\202\341 !\203\202\342 \210,\343y\210\344\210\2021,\321 \210\345\346)G\"+\207" [save-selected-window--state next-head end maxpoint prefix cand require helm-files internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-get-previous-header-pos helm-next-line helm-get-next-header-pos -1 helm-mark-current-line get-text-property point-at-bol display helm-get-selection helm-file-completion-source-p helm-basename assoc-default name helm-get-current-source helm-this-visible-mark "[?]" "[@]" "Files from Current Directory" string-match "^[.]?#.*#?$\\|[^#]*[.]\\{1,2\\}$" file-exists-p helm-make-visible-mark 1 nil message "%s candidates marked" bn src helm-marked-candidates] 4 (#$ . 139184) nil]) --- > (defalias 'helm-mark-all #[nil "\306\307!\210\310 \311\312\313 \"r\314\216\315\316 \317\"\210\212\320 b\210\321 \210\322 \211\205.\212\nb\210\323y\210`)\211\2064d`\fW\203\223\324 \210\325\326 \327\"\330 *\331 \205Q\332*!+\333\334\335 \",\336 \204\211 \337\230\204\211 \340\230\204\211\331 \204w,\341\232\203\206\342\343+\"\204\211\344*!\203\211\345 \210,\346y\210\347\210\2025,\324 \210\350\351-G\",\207" [save-selected-window-alist save-selected-window-window next-head end maxpoint prefix require helm-files selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-get-previous-header-pos helm-next-line helm-get-next-header-pos -1 helm-mark-current-line get-text-property point-at-bol display helm-get-selection helm-file-completion-source-p helm-basename assoc-default name helm-get-current-source helm-this-visible-mark "[?]" "[@]" "Files from Current Directory" string-match "^[.]?#.*#?$\\|[^#]*[.]\\{1,2\\}$" file-exists-p helm-make-visible-mark 1 nil message "%s candidates marked" cand bn src helm-marked-candidates] 5 (#$ . 147682) nil]) 1121c1244 < (defalias 'helm-unmark-all #[nil "\303\304 !r\305\216\306@\307\"\210 G\212\310 \210)\311\312 \210\313\314\n\",\207" [save-selected-window--state helm-marked-candidates len internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-clear-visible-mark nil helm-mark-current-line message "%s candidates unmarked"] 3 (#$ . 140364) nil]) --- > (defalias 'helm-unmark-all #[nil "\304 \305\306\307 \"r\310\216\311\312 \313\"\210\nG\212\314 \210)\315\316 \210\317\320 \"-\207" [save-selected-window-alist save-selected-window-window helm-marked-candidates len selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-clear-visible-mark nil helm-mark-current-line message "%s candidates unmarked"] 4 (#$ . 149210) nil]) 1125c1248 < (defalias 'helm-toggle-all-marks #[nil "\303 \211G\304Y\203\"\305\306 !r\307\216\310 @\311\"\210\n+\203\"\312 \202$\313 )\207" [marked save-selected-window--state helm-visible-mark-overlays helm-marked-candidates 1 internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord helm-unmark-all helm-mark-all] 4 (#$ . 140858) nil]) --- > (defalias 'helm-toggle-all-marks #[nil "\304 \211G\305Y\203&\306 \307\310\311 \"r\312\216\313\314 \315\"\210 ,\203&\316 \202(\317 )\207" [marked save-selected-window-alist save-selected-window-window helm-visible-mark-overlays helm-marked-candidates 1 selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord helm-unmark-all helm-mark-all] 5 (#$ . 150046) nil]) 1128c1251 < (defalias 'helm-display-all-visible-marks #[nil "\304\305 !r\306\216\307@\310\"\210\311\312!\211\211\313 !L\210)\314\315\316\317\320\321D\320 D\322FE!,\207" [save-selected-window--state #1=#:--cl-overlays-- #2=#:v helm-visible-mark-overlays internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord make-symbol "--overlays--" reverse helm-run-after-quit lambda (&rest --cl-rest--) apply quote #[(#3=#:G59427) "r\306\307!q\210p\310 \210 \311\211\312\211\312\313 \210\314\315!\210+\211J\311\211\205I@\316\317\320\"!\210A\211\2042\311*\321!\210+\207" [default-directory #4=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*helm visible marks*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ overlay-get string internal-temp-output-buffer-show inhibit-read-only #5=#:buf standard-output #3# o --dolist-tail--] 5] --cl-rest--] 8 (#$ . 141428) nil]) --- > (defalias 'helm-display-all-visible-marks #[nil "\304 \305\306\307 \"r\310\216\311\312 \313\"\210\314\315!\211\316 !L\210\317\320\321\322\323\324D\323\nD\325FE!-\207" [save-selected-window-alist save-selected-window-window #1=#:--cl-overlays-- helm-visible-mark-overlays selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #2=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord make-symbol "--overlays--" reverse helm-run-after-quit lambda (&rest --cl-rest--) apply quote #[(#3=#:G84930) "r\306\307!q\210p\310 \210 \311\211\312\211\312\313 \210\314\315!\210+\211J\311\211\205I@\316\317\320\"!\210A\211\2042\311*\321!\210+\207" [default-directory #4=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*helm visible marks*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ overlay-get string internal-temp-output-buffer-show inhibit-read-only #5=#:buf standard-output #3# o #6=#:--cl-dolist-temp--] 5] --cl-rest--] 8 (#$ . 150955) nil]) 1133c1256 < (defalias 'helm-marked-candidates #[nil "r\306 q\210\203>\307 \310!\311\211\311\n:\2038\n@\211\211A@ \f\232\2031\312 \f\" B\nA\211\202 \237-\202A\313 C\314\315!\210*\207" [helm-marked-candidates current-src #1=#:--cl-var-- real source #2=#:--cl-var-- helm-buffer-get helm-get-current-source reverse nil helm-coerce-selection helm-get-selection helm-log-eval-internal (cands) cands] 4 (#$ . 142560)]) --- > (defalias 'helm-marked-candidates #[nil "r\306 q\210\203>\307 \310!\311\211\311\n:\2038\n@\211\211A@ \f\232\2031\312 \f\" B\nA\211\202 \237-\202A\313 C\314\315!\210*\207" [helm-marked-candidates current-src #1=#:--cl-var-- real source #2=#:--cl-var-- helm-buffer-get helm-get-current-source reverse nil helm-coerce-selection helm-get-selection helm-log-eval-internal (cands) cands] 4 (#$ . 152425)]) 1138c1261 < (defalias 'helm-revive-visible-mark #[nil "rq\210 \305\211\205_ @eb\210\306\307\n\310\"\305\311#\203W\312\307\n\313\"!\203W\314\315\316!\317\"\211\203H\307\n\304\"\f\230\203S\320\n\315\316!\321\316!T#\210\202S\320\n\315\316!\321\316!T#\210)\202 A\211\204\f\305+\207" [helm-buffer helm-visible-mark-overlays o --dolist-tail-- real nil search-forward overlay-get string t helm-current-source-name= source get-text-property point-at-bol 0 helm-realvalue move-overlay point-at-eol] 6 (#$ . 143504)]) --- > (defalias 'helm-revive-visible-mark #[nil "rq\210 \305\211\205_ @eb\210\306\307\n\310\"\305\311#\203W\312\307\n\313\"!\203W\314\315\316!\317\"\211\203H\307\n\304\"\f\230\203S\320\n\315\316!\321\316!T#\210\202S\320\n\315\316!\321\316!T#\210)\202 A\211\204\f\305+\207" [helm-buffer helm-visible-mark-overlays o #1=#:--cl-dolist-temp-- real nil search-forward overlay-get string t helm-current-source-name= source get-text-property point-at-bol 0 helm-realvalue move-overlay point-at-eol] 6 (#$ . 153369)]) 1143c1266 < (defalias 'helm-next-visible-mark #[(&optional prev) "\301\302 !r\303\216\304@\305\"\210\306\307\310\217\210\311 +\207" [save-selected-window--state internal--before-with-selected-window helm-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord nil (byte-code "\302`\303\304\305\"\306\" #b\207" [helm-visible-mark-overlays prev helm-next-point-in-list sort mapcar overlay-start <] 6) ((error)) helm-mark-current-line] 3 (#$ . 144638) nil]) --- > (defalias 'helm-next-visible-mark #[(&optional prev) "\302 \303\304\305 \"r\306\216\307\310 \311\"\210\312\313\314\217\210\315 ,\207" [save-selected-window-alist save-selected-window-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030\n@\306 @!\203)\307 \211A@)!\203)\310 @ \211A@)\311#\210\nA\211\204*\307\f!\203<\312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window helm-window norecord nil (byte-code "\302`\303\304\305\"\306\" #b\207" [helm-visible-mark-overlays prev helm-next-point-in-list sort mapcar overlay-start <] 6) ((error)) helm-mark-current-line] 4 (#$ . 154511) nil]) 1145c1268 < (defalias 'helm-prev-visible-mark #[nil "\300\301!\207" [helm-next-visible-mark t] 2 (#$ . 145200) nil]) --- > (defalias 'helm-prev-visible-mark #[nil "\300\301!\207" [helm-next-visible-mark t] 2 (#$ . 155415) nil]) 1148c1271 < (defalias 'helm-yank-selection #[(arg) "\302\303?\"\304 !\210\305 !)\207" [arg str helm-get-selection nil kill-new helm-set-pattern] 3 (#$ . 145345) "P"]) --- > (defalias 'helm-yank-selection #[(arg) "\302\303?\"\304 !\210\305 !)\207" [arg str helm-get-selection nil kill-new helm-set-pattern] 3 (#$ . 155560) "P"]) 1151c1274 < (defalias 'helm-kill-selection-and-quit #[(arg) "\301\302\303\304?\"\"\207" [arg helm-run-after-quit #[(sel) "\301!\210\302\303\"\207" [sel kill-new message "Killed: %s"] 3] helm-get-selection nil] 5 (#$ . 145620) "P"]) --- > (defalias 'helm-kill-selection-and-quit #[(arg) "\301\302\303\304?\"\"\207" [arg helm-run-after-quit #[(sel) "\301!\210\302\303\"\207" [sel kill-new message "Killed: %s"] 3] helm-get-selection nil] 5 (#$ . 155835) "P"]) 1171c1294 < (defalias 'helm-follow-mode #[(&optional arg) "rq\210\306 \307\302 \" \310\211\311\310\f:\203J\f@\2119\205+\307\302 J\"\211\2059\n\230\2059 \211?\211\203J\fA\211\202-\312 \236\313W\206`A\314=A\315=\203q\316\317!\210\202\232\320\312\203|\321\202}\314 #\210\312 \236A\314=\316\322\203\223\323\202\224\324\"\210\325 !\210\205\252\205\252C@ L.\207" [helm-buffer src name helm-sources #1=#:--cl-var-- s helm-get-current-source assoc-default nil t follow 0 1 never message "helm-follow-mode not allowed in this source" helm-attrset -1 "helm-follow-mode is %s" "enabled" "disabled" helm-display-mode-line sname #2=#:--cl-flag-- #3=#:--cl-var-- sym fol-attr arg enabled helm-follow-mode helm-follow-mode-persistent] 5 (#$ . 145946) "p"]) --- > (defalias 'helm-follow-mode #[(&optional arg) "rq\210\306 \307\302 \" \310\211\311\310\f:\203J\f@\2119\205+\307\302 J\"\211\2059\n\230\2059 \211?\211\203J\fA\211\202-\312 \236\313W\206`A\314=A\315=\203q\316\317!\210\202\232\320\312\203|\321\202}\314 #\210\312 \236A\314=\316\322\203\223\323\202\224\324\"\210\325 !\210\205\252\205\252C@ L.\207" [helm-buffer src name helm-sources #1=#:--cl-var-- s helm-get-current-source assoc-default nil t follow 0 1 never message "helm-follow-mode not allowed in this source" helm-attrset -1 "helm-follow-mode is %s" "enabled" "disabled" helm-display-mode-line sname #2=#:--cl-flag-- #3=#:--cl-var-- sym fol-attr arg enabled helm-follow-mode helm-follow-mode-persistent] 5 (#$ . 156161) "p"]) 1174c1297 < (defalias 'helm-follow-execute-persistent-action-maybe #[nil "\302\303\"?\205,\304\305\306 \"\307=\205,\310 \205 \311]!\205,\312 \205,\313 \205,\212\314 )\207" [helm-action-buffer helm-input-idle-delay get-buffer-window visible assoc-default follow helm-get-current-source 1 sit-for 0.01 helm-window helm-get-selection helm-execute-persistent-action] 3 (#$ . 147706)]) --- > (defalias 'helm-follow-execute-persistent-action-maybe #[nil "\302\303\"?\205,\304\305\306 \"\307=\205,\310 \205 \311]!\205,\312 \205,\313 \205,\212\314 )\207" [helm-action-buffer helm-input-idle-delay get-buffer-window visible assoc-default follow helm-get-current-source 1 sit-for 0.01 helm-window helm-get-selection helm-execute-persistent-action] 3 (#$ . 157921)])