Created
November 9, 2013 06:19
-
-
Save mgalgs/7382369 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Debugger entered--Lisp error: (arith-error) | |
| %(2 0) | |
| (search-backward "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number)) | |
| (progn (search-backward "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number)) (goto-char (point-at-bol))) | |
| (make-overlay (progn (search-backward "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number)) (goto-char (point-at-bol))) (save-excursion (goto-char (point-at-bol)) (or (search-forward "\n" nil t helm-swoop-last-prefix-number) (point-max)))) | |
| (setq helm-swoop-line-overlay (make-overlay (progn (search-backward "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number)) (goto-char (point-at-bol))) (save-excursion (goto-char (point-at-bol)) (or (search-forward "\n" nil t helm-swoop-last-prefix-number) (point-max))))) | |
| (overlay-put (setq helm-swoop-line-overlay (make-overlay (progn (search-backward "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number)) (goto-char (point-at-bol))) (save-excursion (goto-char (point-at-bol)) (or (search-forward "\n" nil t helm-swoop-last-prefix-number) (point-max))))) (quote face) (if (< 1 helm-swoop-last-prefix-number) (quote helm-swoop-target-line-block-face) (quote helm-swoop-target-line-face))) | |
| helm-swoop-target-line-overlay() | |
| (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer (set-buffer helm-swoop-target-buffer) (delete-overlay helm-swoop-line-overlay) (helm-swoop-target-line-overlay)) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t)) | |
| (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer (set-buffer helm-swoop-target-buffer) (delete-overlay helm-swoop-line-overlay) (helm-swoop-target-line-overlay)) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) | |
| (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer (set-buffer helm-swoop-target-buffer) (delete-overlay helm-swoop-line-overlay) (helm-swoop-target-line-overlay)) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) (internal--after-with-selected-window save-selected-window--state)) | |
| (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer (set-buffer helm-swoop-target-buffer) (delete-overlay helm-swoop-line-overlay) (helm-swoop-target-line-overlay)) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) (internal--after-with-selected-window save-selected-window--state))) | |
| (let ((save-selected-window--state (internal--before-with-selected-window helm-swoop-synchronizing-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer (set-buffer helm-swoop-target-buffer) (delete-overlay helm-swoop-line-overlay) (helm-swoop-target-line-overlay)) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) (internal--after-with-selected-window save-selected-window--state)))) | |
| (let* (($key (helm-swoop-get-string-at-line)) ($num (if (string-match "^[0-9]+" $key) (progn (string-to-number (match-string 0 $key)))))) (let ((save-selected-window--state (internal--before-with-selected-window helm-swoop-synchronizing-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn (helm-swoop-goto-line $num) (save-current-buffer ... ... ...) (recenter)) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) (internal--after-with-selected-window save-selected-window--state))))) | |
| (progn (select-window (car save-selected-window--state) (quote norecord)) (let* (($key (helm-swoop-get-string-at-line)) ($num (if (string-match "^[0-9]+" $key) (progn (string-to-number (match-string 0 $key)))))) (let ((save-selected-window--state (internal--before-with-selected-window helm-swoop-synchronizing-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (if helm-swoop-first-position (progn ... ... ...) (move-beginning-of-line 1) (helm-swoop-target-line-overlay) (recenter) (setq helm-swoop-first-position t))) (internal--after-with-selected-window save-selected-window--state)))))) | |
| (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (let* (($key (helm-swoop-get-string-at-line)) ($num (if (string-match "^[0-9]+" $key) (progn (string-to-number ...))))) (let ((save-selected-window--state (internal--before-with-selected-window helm-swoop-synchronizing-window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (if helm-swoop-first-position ... ... ... ... ...)) (internal--after-with-selected-window save-selected-window--state)))))) (internal--after-with-selected-window save-selected-window--state)) | |
| (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (let* (($key (helm-swoop-get-string-at-line)) ($num (if (string-match "^[0-9]+" $key) (progn ...)))) (let ((save-selected-window--state (internal--before-with-selected-window helm-swoop-synchronizing-window))) (save-current-buffer (unwind-protect (progn ... ...) (internal--after-with-selected-window save-selected-window--state)))))) (internal--after-with-selected-window save-selected-window--state))) | |
| (let ((save-selected-window--state (internal--before-with-selected-window (helm-window)))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (let* (($key (helm-swoop-get-string-at-line)) ($num (if ... ...))) (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...))))) (internal--after-with-selected-window save-selected-window--state)))) | |
| helm-swoop--synchronizing-position() | |
| run-hooks(helm-move-selection-after-hook) | |
| helm-log-run-hook(helm-move-selection-after-hook) | |
| (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn (helm-mark-current-line))) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) | |
| (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn (helm-mark-current-line))) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) (internal--after-with-selected-window save-selected-window--state)) | |
| (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn (helm-mark-current-line))) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) (internal--after-with-selected-window save-selected-window--state))) | |
| (let ((save-selected-window--state (internal--before-with-selected-window (helm-window)))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn (helm-mark-current-line))) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) (internal--after-with-selected-window save-selected-window--state)))) | |
| (if (or (helm-empty-buffer-p (helm-buffer-get)) (not (helm-window))) nil (let ((save-selected-window--state (internal--before-with-selected-window (helm-window)))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn (helm-mark-current-line))) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) (internal--after-with-selected-window save-selected-window--state))))) | |
| (let ((move-func (cond ((eql where (quote line)) (cond ((eql direction ...) (quote helm-move--previous-line-fn)) ((eql direction ...) (quote helm-move--next-line-fn)) ((error "cl-ecase failed: %s, %s" direction ...) nil))) ((eql where (quote page)) (cond ((eql direction ...) (quote helm-move--previous-page-fn)) ((eql direction ...) (quote helm-move--next-page-fn)) ((error "cl-ecase failed: %s, %s" direction ...) nil))) ((eql where (quote edge)) (cond ((eql direction ...) (quote helm-move--beginning-of-buffer-fn)) ((eql direction ...) (quote helm-move--end-of-buffer-fn)) ((error "cl-ecase failed: %s, %s" direction ...) nil))) ((eql where (quote source)) (cond ((eql direction ...) (quote helm-move--previous-source-fn)) ((eql direction ...) (quote helm-move--next-source-fn)) (t (function ...))))))) (if (or (helm-empty-buffer-p (helm-buffer-get)) (not (helm-window))) nil (let ((save-selected-window--state (internal--before-with-selected-window (helm-window)))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (helm-log-run-hook (quote helm-move-selection-before-hook)) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if (helm-get-previous-header-pos) (progn ...)) (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-move-selection-after-hook))) (internal--after-with-selected-window save-selected-window--state)))))) | |
| (progn (let ((move-func (cond ((eql where (quote line)) (cond (... ...) (... ...) (... nil))) ((eql where (quote page)) (cond (... ...) (... ...) (... nil))) ((eql where (quote edge)) (cond (... ...) (... ...) (... nil))) ((eql where (quote source)) (cond (... ...) (... ...) (t ...)))))) (if (or (helm-empty-buffer-p (helm-buffer-get)) (not (helm-window))) nil (let ((save-selected-window--state (internal--before-with-selected-window (helm-window)))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (helm-log-run-hook ...) (funcall move-func) (helm-skip-noncandidate-line direction) (helm-display-source-at-screen-top-maybe where) (if ... ...) (helm-display-mode-line ...) (helm-log-run-hook ...)) (internal--after-with-selected-window save-selected-window--state))))))) | |
| (let* ((where (car (cdr (memq (quote :where) --cl-rest--)))) (direction (car (cdr (memq (quote :direction) --cl-rest--))))) (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:where :direction :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:where :direction)" (car --cl-keys--)))))) (progn (let ((move-func (cond ((eql where ...) (cond ... ... ...)) ((eql where ...) (cond ... ... ...)) ((eql where ...) (cond ... ... ...)) ((eql where ...) (cond ... ... ...))))) (if (or (helm-empty-buffer-p (helm-buffer-get)) (not (helm-window))) nil (let ((save-selected-window--state (internal--before-with-selected-window ...))) (save-current-buffer (unwind-protect (progn ... ... ... ... ... ... ... ...) (internal--after-with-selected-window save-selected-window--state)))))))) | |
| helm-move-selection-common(:where line :direction next) | |
| helm-next-line() | |
| helm-update-move-first-line() | |
| (cond ((and preselect delayed-sources normal-sources) (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (if (assoc (quote candidates-process) source) nil (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-after-update-hook))) (if preselect (progn (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source))) (setq helm-force-updating-p nil))) | |
| (unwind-protect (progn (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (ds nil) (ns nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (setq ds (nconc ds ...))) (setq ns (nconc ns (list source))) (helm-process-source source)) (setq --cl-var-- (cdr --cl-var--))) (setq delayed-sources ds normal-sources ns) nil)) (helm-log-eval-internal (quote ((mapcar (lambda (s) (assoc-default (quote name) s)) delayed-sources)))) (cond ((and preselect delayed-sources normal-sources) (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (if (assoc (quote candidates-process) source) nil (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-after-update-hook))) (if preselect (progn (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source))) (setq helm-force-updating-p nil))) (if delayed-sources (progn (let ((helm-idle-delay (progn (let* ... ... delay)))) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.01) nil (quote helm-process-delayed-sources) delayed-sources preselect source)))) (helm-log "end update")) | |
| (let (delayed-sources normal-sources) (unwind-protect (progn (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (ds nil) (ns nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (setq ds ...)) (setq ns (nconc ns ...)) (helm-process-source source)) (setq --cl-var-- (cdr --cl-var--))) (setq delayed-sources ds normal-sources ns) nil)) (helm-log-eval-internal (quote ((mapcar (lambda (s) (assoc-default ... s)) delayed-sources)))) (cond ((and preselect delayed-sources normal-sources) (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (if (assoc (quote candidates-process) source) nil (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-after-update-hook))) (if preselect (progn (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source))) (setq helm-force-updating-p nil))) (if delayed-sources (progn (let ((helm-idle-delay (progn ...))) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.01) nil (quote helm-process-delayed-sources) delayed-sources preselect source)))) (helm-log "end update"))) | |
| (save-current-buffer (set-buffer (helm-buffer-get)) (set (make-local-variable (quote helm-input-local)) helm-pattern) (erase-buffer) (let (delayed-sources normal-sources) (unwind-protect (progn (let* ((--cl-var-- (remove-if-not ... ...)) (source nil) (ds nil) (ns nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn ...) (setq ns ...) (helm-process-source source)) (setq --cl-var-- (cdr --cl-var--))) (setq delayed-sources ds normal-sources ns) nil)) (helm-log-eval-internal (quote ((mapcar (lambda ... ...) delayed-sources)))) (cond ((and preselect delayed-sources normal-sources) (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (if (assoc (quote candidates-process) source) nil (helm-display-mode-line (helm-get-current-source)) (helm-log-run-hook (quote helm-after-update-hook))) (if preselect (progn (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect source))) (setq helm-force-updating-p nil))) (if delayed-sources (progn (let ((helm-idle-delay ...)) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.01) nil (quote helm-process-delayed-sources) delayed-sources preselect source)))) (helm-log "end update")))) | |
| helm-update("^2 ") | |
| (if (and (helm-resume-p any-resume) (helm-get-current-source)) (helm-mark-current-line t) (helm-update any-preselect)) | |
| helm-read-pattern-maybe("Swoop: " "stuff" "^2 " nil nil nil nil) | |
| (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup)) | |
| (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))) | |
| (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car (prog1 value (setq value ...)))) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (helm-log "restore variables")) | |
| (let ((orig-vars (mapcar (function (lambda (v) (cons v (symbol-value v)))) helm-restored-variables))) (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car (prog1 value ...))) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (helm-log "restore variables"))) | |
| (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((orig-vars (mapcar (function (lambda (v) (cons v ...))) helm-restored-variables))) (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history ...) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car ...)) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (progn (defalias (quote helm-hook20205) (function (lambda nil (unwind-protect ... ...)))) (add-hook (quote helm-cleanup-hook) (quote helm-hook20205))) (helm-execute-selection-action)) (helm-log (concat "[End session] " (make-string 41 45))))) | |
| (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((orig-vars (mapcar (function (lambda ... ...)) helm-restored-variables))) (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if ... ...)) (helm-cleanup))) (progn (let* ((--cl-var-- orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value ... var ...) (set var value) (setq --cl-var-- ...)) nil)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (progn (defalias (quote helm-hook20205) (function (lambda nil ...))) (add-hook (quote helm-cleanup-hook) (quote helm-hook20205))) (helm-execute-selection-action)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) | |
| (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((orig-vars (mapcar (function ...) helm-restored-variables))) (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default ...) (helm-cleanup))) (progn (let* (... ... ...) (while ... ... ... ...) nil)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (progn (defalias (quote helm-hook20205) (function ...)) (add-hook (quote helm-cleanup-hook) (quote helm-hook20205))) (helm-execute-selection-action)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (setq helm-alive-p nil) (setq helm-in-file-completion-p nil) (helm-log-save-maybe)) | |
| (let ((old-overridding-local-map overriding-local-map) (cursor-in-echo-area t) (non-essential t) (helm-maybe-use-default-as-input (or helm-maybe-use-default-as-input (progn (let* ((--cl-var-- ...) (s nil) (--cl-flag-- t) --cl-var--) (while (and ... ...) (setq --cl-var-- ...)) --cl-var--))))) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((orig-vars (mapcar ... helm-restored-variables))) (unwind-protect (progn (helm-initialize any-resume any-input any-default any-sources) (helm-display-buffer helm-buffer) (helm-log "show prompt") (unwind-protect ... ...)) (progn (let* ... ... nil)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (progn (defalias ... ...) (add-hook ... ...)) (helm-execute-selection-action)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (setq helm-alive-p nil) (setq helm-in-file-completion-p nil) (helm-log-save-maybe))) | |
| (catch (quote exit) (helm-log (concat "[Start session] " (make-string 41 43))) (helm-log-eval-internal (quote (any-prompt any-preselect any-buffer any-keymap any-default))) (let ((old-overridding-local-map overriding-local-map) (cursor-in-echo-area t) (non-essential t) (helm-maybe-use-default-as-input (or helm-maybe-use-default-as-input (progn (let* (... ... ... --cl-var--) (while ... ...) --cl-var--))))) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((orig-vars ...)) (unwind-protect (progn ... ... ... ...) (progn ...) (helm-log "restore variables"))) (prog1 (if helm-quit nil (progn ... ...) (helm-execute-selection-action)) (helm-log (concat "[End session] " ...)))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (setq helm-alive-p nil) (setq helm-in-file-completion-p nil) (helm-log-save-maybe)))) | |
| helm-internal(((name . "Helm Swoop") (init lambda nil (unless helm-swoop-cache (with-current-buffer (helm-candidate-buffer (quote local)) (insert "1 things\n2 stuff\n3 pizza\n4 stuff is good\n")) (setq helm-swoop-cache t))) (candidates-in-buffer) (keymap keymap (3 keymap (5 . helm-swoop-edit)) keymap (94 . helm-swoop-caret-match) (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (4 . helm-debug-output)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (2 . helm-resume-list-buffers-after-quit) (98 . helm-resume-previous-session-after-quit) (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (115 . undefined) (5 . helm-display-all-sources) (1 . helm-show-all-in-this-source-only) (117 . helm-unmark-all) (97 . helm-mark-all) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (24 keymap (14 . evil-complete-previous-line) (16 . evil-complete-next-line)) (14 . evil-complete-previous) (16 . evil-complete-next) (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence " " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) ...) (header-line . "[C-c C-e] Edit mode") (action lambda ($line) (helm-swoop-goto-line (when (string-match "^[0-9]+" $line) (string-to-number (match-string 0 $line)))) (when (re-search-forward (mapconcat (quote identity) (split-string helm-pattern " ") "\\|") nil t) (goto-char (match-beginning 0))) (recenter)) (migemo)) "stuff" "Swoop: " nil "^2 " "*Helm Swoop*" nil nil nil) | |
| apply(helm-internal (((name . "Helm Swoop") (init lambda nil (unless helm-swoop-cache (with-current-buffer (helm-candidate-buffer (quote local)) (insert "1 things\n2 stuff\n3 pizza\n4 stuff is good\n")) (setq helm-swoop-cache t))) (candidates-in-buffer) (keymap keymap (3 keymap (5 . helm-swoop-edit)) keymap (94 . helm-swoop-caret-match) (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (4 . helm-debug-output)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (2 . helm-resume-list-buffers-after-quit) (98 . helm-resume-previous-session-after-quit) (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (115 . undefined) (5 . helm-display-all-sources) (1 . helm-show-all-in-this-source-only) (117 . helm-unmark-all) (97 . helm-mark-all) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (24 keymap (14 . evil-complete-previous-line) (16 . evil-complete-next-line)) (14 . evil-complete-previous) (16 . evil-complete-next) (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence " " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) ...) (header-line . "[C-c C-e] Edit mode") (action lambda ($line) (helm-swoop-goto-line (when (string-match "^[0-9]+" $line) (string-to-number (match-string 0 $line)))) (when (re-search-forward (mapconcat (quote identity) (split-string helm-pattern " ") "\\|") nil t) (goto-char (match-beginning 0))) (recenter)) (migemo)) "stuff" "Swoop: " nil "^2 " "*Helm Swoop*" nil nil nil)) | |
| (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function (lambda ... ...)) helm-argument-keys))))) (apply fn plist)) | |
| (if (and helm-alive-p (eq fn (function helm))) (if (helm-alive-p) (error "Error: Trying to run helm within a running helm session") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function ...) helm-argument-keys))))) (apply fn plist))) | |
| (let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq ... plist))) (function helm-nest)) ((keywordp (car plist)) (function helm)) (t (function helm-internal))))) (if (and helm-alive-p (eq fn (function helm))) (if (helm-alive-p) (error "Error: Trying to run helm within a running helm session") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar ... helm-argument-keys))))) (apply fn plist)))) | |
| helm(((name . "Helm Swoop") (init lambda nil (unless helm-swoop-cache (with-current-buffer (helm-candidate-buffer (quote local)) (insert "1 things\n2 stuff\n3 pizza\n4 stuff is good\n")) (setq helm-swoop-cache t))) (candidates-in-buffer) (keymap keymap (3 keymap (5 . helm-swoop-edit)) keymap (94 . helm-swoop-caret-match) (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (4 . helm-debug-output)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (2 . helm-resume-list-buffers-after-quit) (98 . helm-resume-previous-session-after-quit) (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (115 . undefined) (5 . helm-display-all-sources) (1 . helm-show-all-in-this-source-only) (117 . helm-unmark-all) (97 . helm-mark-all) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (24 keymap (14 . evil-complete-previous-line) (16 . evil-complete-next-line)) (14 . evil-complete-previous) (16 . evil-complete-next) (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence " " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) ...) (header-line . "[C-c C-e] Edit mode") (action lambda ($line) (helm-swoop-goto-line (when (string-match "^[0-9]+" $line) (string-to-number (match-string 0 $line)))) (when (re-search-forward (mapconcat (quote identity) (split-string helm-pattern " ") "\\|") nil t) (goto-char (match-beginning 0))) (recenter)) (migemo)) "stuff" "Swoop: " nil "^2 " "*Helm Swoop*" nil nil nil) | |
| apply(helm (((name . "Helm Swoop") (init lambda nil (unless helm-swoop-cache (with-current-buffer (helm-candidate-buffer (quote local)) (insert "1 things\n2 stuff\n3 pizza\n4 stuff is good\n")) (setq helm-swoop-cache t))) (candidates-in-buffer) (keymap keymap (3 keymap (5 . helm-swoop-edit)) keymap (94 . helm-swoop-caret-match) (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (4 . helm-debug-output)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (2 . helm-resume-list-buffers-after-quit) (98 . helm-resume-previous-session-after-quit) (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (115 . undefined) (5 . helm-display-all-sources) (1 . helm-show-all-in-this-source-only) (117 . helm-unmark-all) (97 . helm-mark-all) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (24 keymap (14 . evil-complete-previous-line) (16 . evil-complete-next-line)) (14 . evil-complete-previous) (16 . evil-complete-next) (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence " " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) ...) (header-line . "[C-c C-e] Edit mode") (action lambda ($line) (helm-swoop-goto-line (when (string-match "^[0-9]+" $line) (string-to-number (match-string 0 $line)))) (when (re-search-forward (mapconcat (quote identity) (split-string helm-pattern " ") "\\|") nil t) (goto-char (match-beginning 0))) (recenter)) (migemo)) "stuff" "Swoop: " nil "^2 " "*Helm Swoop*" nil nil nil)) | |
| (lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))() | |
| funcall((lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))) | |
| (unwind-protect (funcall bodyfunc) (setq helm-let-variables nil)) | |
| helm-let-internal(((helm-candidate-number-limit . 19999)) (lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))) | |
| (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function (lambda ... ...)) helm-argument-keys))))) (apply fn plist)) | |
| (if (and helm-alive-p (eq fn (function helm))) (if (helm-alive-p) (error "Error: Trying to run helm within a running helm session") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function ...) helm-argument-keys))))) (apply fn plist))) | |
| (let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq ... plist))) (function helm-nest)) ((keywordp (car plist)) (function helm)) (t (function helm-internal))))) (if (and helm-alive-p (eq fn (function helm))) (if (helm-alive-p) (error "Error: Trying to run helm within a running helm session") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar ... helm-argument-keys))))) (apply fn plist)))) | |
| helm(:sources ((name . "Helm Swoop") (init lambda nil (unless helm-swoop-cache (with-current-buffer (helm-candidate-buffer (quote local)) (insert "1 things\n2 stuff\n3 pizza\n4 stuff is good\n")) (setq helm-swoop-cache t))) (candidates-in-buffer) (keymap keymap (3 keymap (5 . helm-swoop-edit)) keymap (94 . helm-swoop-caret-match) (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (4 . helm-debug-output)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (2 . helm-resume-list-buffers-after-quit) (98 . helm-resume-previous-session-after-quit) (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (115 . undefined) (5 . helm-display-all-sources) (1 . helm-show-all-in-this-source-only) (117 . helm-unmark-all) (97 . helm-mark-all) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (24 keymap (14 . evil-complete-previous-line) (16 . evil-complete-next-line)) (14 . evil-complete-previous) (16 . evil-complete-next) (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence " " :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) ...) (header-line . "[C-c C-e] Edit mode") (action lambda ($line) (helm-swoop-goto-line (when (string-match "^[0-9]+" $line) (string-to-number (match-string 0 $line)))) (when (re-search-forward (mapconcat (quote identity) (split-string helm-pattern " ") "\\|") nil t) (goto-char (match-beginning 0))) (recenter)) (migemo)) :buffer "*Helm Swoop*" :input "stuff" :prompt "Swoop: " :preselect "^2 " :candidate-number-limit 19999) | |
| (let (($line (helm-swoop-get-string-at-line))) (setq helm-display-function helm-swoop-split-window-function) (add-hook (quote helm-move-selection-after-hook) (quote helm-swoop--synchronizing-position)) (add-hook (quote helm-update-hook) (quote helm-swoop--pattern-match)) (helm :sources (if (> helm-swoop-last-prefix-number 1) (helm-c-source-swoop-multiline helm-swoop-last-prefix-number) (helm-c-source-swoop)) :buffer "*Helm Swoop*" :input (cond ($input (if (string-match "\\(\\^\\[0\\-9\\]\\+\\.\\)\\(.*\\)" $input) $input $input)) (mark-active (let (($st (buffer-substring-no-properties ... ...))) (if (string-match "\n" $st) (message "Multi line region is not allowed") $st))) ((thing-at-point (quote symbol)) (thing-at-point (quote symbol))) (t "")) :prompt "Swoop: " :preselect (if (string-match "^[ \n ]*$" $line) (save-excursion (if (re-search-forward "[^ \n ]" nil t) (format "^%s " (line-number-at-pos)) (re-search-backward "[^ \n ]" nil t) (format "^%s " (line-number-at-pos)))) (format "^%s " (line-number-at-pos))) :candidate-number-limit 19999)) | |
| (unwind-protect (let (($line (helm-swoop-get-string-at-line))) (setq helm-display-function helm-swoop-split-window-function) (add-hook (quote helm-move-selection-after-hook) (quote helm-swoop--synchronizing-position)) (add-hook (quote helm-update-hook) (quote helm-swoop--pattern-match)) (helm :sources (if (> helm-swoop-last-prefix-number 1) (helm-c-source-swoop-multiline helm-swoop-last-prefix-number) (helm-c-source-swoop)) :buffer "*Helm Swoop*" :input (cond ($input (if (string-match "\\(\\^\\[0\\-9\\]\\+\\.\\)\\(.*\\)" $input) $input $input)) (mark-active (let (($st ...)) (if (string-match "\n" $st) (message "Multi line region is not allowed") $st))) ((thing-at-point (quote symbol)) (thing-at-point (quote symbol))) (t "")) :prompt "Swoop: " :preselect (if (string-match "^[ \n ]*$" $line) (save-excursion (if (re-search-forward "[^ \n ]" nil t) (format "^%s " (line-number-at-pos)) (re-search-backward "[^ \n ]" nil t) (format "^%s " (line-number-at-pos)))) (format "^%s " (line-number-at-pos))) :candidate-number-limit 19999)) (progn (remove-hook (quote helm-move-selection-after-hook) (quote helm-swoop--synchronizing-position)) (remove-hook (quote helm-update-hook) (quote helm-swoop--pattern-match)) (setq helm-display-function helm-swoop-display-tmp) (setq helm-swoop-first-position nil) (setq helm-swoop-last-query helm-pattern) (delete-overlay helm-swoop-line-overlay) (setq helm-display-source-at-screen-top helm-swoop-at-screen-top) (setq helm-completion-window-scroll-margin helm-swoop-store-scroll-margin) (helm-swoop-delete-overlay) (deactivate-mark t))) | |
| helm-swoop(0 "stuff") | |
| (let (($input (if isearch-regexp isearch-string (regexp-quote isearch-string)))) (helm-swoop 0 $input)) | |
| helm-swoop-from-isearch() | |
| call-interactively(helm-swoop-from-isearch nil nil) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment