gistfile1.el

Debugger entered--Lisp error: (error "Candidates must either be a function,  a variable or a list: (lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete  (helm-fast-remove-dups (if (and default (not (string= default ))) (delq nil (cons default (delete default all))) all) :test (quote equal)))))")
  signal(error ("Candidates must either be a function,  a variable or a list: (lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete  (helm-fast-remove-dups (if (and default (not (string= default ))) (delq nil (cons default (delete default all))) all) :test (quote equal)))))"))
  error("Candidates must either be a function,  a variable or a list: %s" (lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not (string= default ""))) (delq nil (cons default (delete default all))) all) :test (quote equal))))))
  (lambda nil (error (concat "Candidates must either be a function, " " a variable or a list: %s") candidate-source))()
  funcall((lambda nil (error (concat "Candidates must either be a function, " " a variable or a list: %s") candidate-source)))
  (condition-case err (helm-interpret-value candidate-source source) (error (funcall type-error)))
  (let* ((candidate-source (assoc-default (quote candidates) source)) (type-error (lambda nil (error (concat "Candidates must either be a function, " " a variable or a list: %s") candidate-source))) (candidates (condition-case err (helm-interpret-value candidate-source source) (error (funcall type-error))))) (cond ((processp candidates) candidates) ((listp candidates) (helm-transform-candidates candidates source)) (t (funcall type-error))))
  helm-get-candidates(((match helm-mp-exact-match helm-mp-3-match) (search helm-mp-exact-search helm-mp-3-search) (name . "helm-gtags-find-tag History") (candidates lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) all) :test (quote equal))))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothing") (mode-line . "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") (action lambda (candidate) (if marked-candidates (helm-marked-candidates) (identity candidate))) (header-line . helm-persistent-help-string)))
  (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (push (cons candidates (append source (list (cons ... 0) (cons ... "")))) helm-async-processes) (set-process-filter candidates (quote helm-output-filter)) (setq candidates nil)) ((not (assoc (quote volatile) source)) (setq candidate-cache (cons name candidates)) (push candidate-cache helm-candidate-cache))) candidates)
  (cond (candidate-cache (helm-log "use cached candidates") (cdr candidate-cache)) (t (helm-log "calculate candidates") (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (push (cons candidates (append source ...)) helm-async-processes) (set-process-filter candidates (quote helm-output-filter)) (setq candidates nil)) ((not (assoc (quote volatile) source)) (setq candidate-cache (cons name candidates)) (push candidate-cache helm-candidate-cache))) candidates)))
  (let* ((name (assoc-default (quote name) source)) (candidate-cache (assoc name helm-candidate-cache))) (cond (candidate-cache (helm-log "use cached candidates") (cdr candidate-cache)) (t (helm-log "calculate candidates") (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (push (cons candidates ...) helm-async-processes) (set-process-filter candidates (quote helm-output-filter)) (setq candidates nil)) ((not (assoc ... source)) (setq candidate-cache (cons name candidates)) (push candidate-cache helm-candidate-cache))) candidates))))
  helm-get-cached-candidates(((match helm-mp-exact-match helm-mp-3-match) (search helm-mp-exact-search helm-mp-3-search) (name . "helm-gtags-find-tag History") (candidates lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) all) :test (quote equal))))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothing") (mode-line . "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") (action lambda (candidate) (if marked-candidates (helm-marked-candidates) (identity candidate))) (header-line . helm-persistent-help-string)))
  (helm-take-first-elements (helm-get-cached-candidates source) limit)
  (if (or (equal helm-pattern "") (equal matchfns (quote (identity)))) (helm-take-first-elements (helm-get-cached-candidates source) limit) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns limit))
  (helm-process-filtered-candidate-transformer (if (or (equal helm-pattern "") (equal matchfns (quote (identity)))) (helm-take-first-elements (helm-get-cached-candidates source) limit) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns limit)) source)
  (let ((matchfns (helm-match-functions source)) (helm-source-name (assoc-default (quote name) source)) (limit (helm-candidate-number-limit source)) (helm-pattern (helm-process-pattern-transformer helm-pattern source))) (helm-process-filtered-candidate-transformer (if (or (equal helm-pattern "") (equal matchfns (quote (identity)))) (helm-take-first-elements (helm-get-cached-candidates source) limit) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns limit)) source))
  (save-current-buffer (let ((matchfns (helm-match-functions source)) (helm-source-name (assoc-default (quote name) source)) (limit (helm-candidate-number-limit source)) (helm-pattern (helm-process-pattern-transformer helm-pattern source))) (helm-process-filtered-candidate-transformer (if (or (equal helm-pattern "") (equal matchfns (quote (identity)))) (helm-take-first-elements (helm-get-cached-candidates source) limit) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns limit)) source)))
  helm-compute-matches-internal(((match helm-mp-exact-match helm-mp-3-match) (search helm-mp-exact-search helm-mp-3-search) (name . "helm-gtags-find-tag History") (candidates lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) all) :test (quote equal))))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothing") (mode-line . "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") (action lambda (candidate) (if marked-candidates (helm-marked-candidates) (identity candidate))) (header-line . helm-persistent-help-string)))
  (if debug-on-error (helm-compute-matches-internal source) (condition-case v (helm-compute-matches-internal source) (error (helm-log-error "helm-compute-matches: error when processing source: %s" (assoc-default (quote name) source)) nil)))
  helm-compute-matches(((match helm-mp-exact-match helm-mp-3-match) (search helm-mp-exact-search helm-mp-3-search) (name . "helm-gtags-find-tag History") (candidates lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) all) :test (quote equal))))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothing") (mode-line . "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") (action lambda (candidate) (if marked-candidates (helm-marked-candidates) (identity candidate))) (header-line . helm-persistent-help-string)))
  (let ((matches (helm-compute-matches source))) (when matches (helm-insert-header-from-source source) (if (not (assq (quote multiline) source)) (mapc (function (lambda (m) (helm-insert-match m (quote insert) source))) matches) (let ((start (point)) separate) (dolist (match matches) (if separate (helm-insert-candidate-separator) (setq separate t)) (helm-insert-match match (quote insert) source)) (put-text-property start (point) (quote helm-multiline) t)))))
  (if (assq (quote direct-insert-match) source) (helm-process-source--direct-insert-match source) (let ((matches (helm-compute-matches source))) (when matches (helm-insert-header-from-source source) (if (not (assq (quote multiline) source)) (mapc (function (lambda (m) (helm-insert-match m ... source))) matches) (let ((start (point)) separate) (dolist (match matches) (if separate (helm-insert-candidate-separator) (setq separate t)) (helm-insert-match match (quote insert) source)) (put-text-property start (point) (quote helm-multiline) t))))))
  helm-process-source(((match helm-mp-exact-match helm-mp-3-match) (search helm-mp-exact-search helm-mp-3-search) (name . "helm-gtags-find-tag History") (candidates lambda nil (let ((all (helm-comp-read-get-candidates history test nil nil))) (delete "" (helm-fast-remove-dups (if (and default (not ...)) (delq nil (cons default ...)) all) :test (quote equal))))) (filtered-candidate-transformer lambda (candidates sources) (loop for i in candidates do (set-text-properties 0 (length i) nil i) collect i)) (persistent-action) (persistent-help . "DoNothing") (mode-line . "\\<helm-comp-read-map>\\[helm-cr-empty-string]:Empty \\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct") (action lambda (candidate) (if marked-candidates (helm-marked-candidates) (identity candidate))) (header-line . helm-persistent-help-string)))
  (progn (push source normal-sources) (helm-process-source source))
  (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source)))
  (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))
  (catch (quote --cl-block-nil--) (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))
  (block nil (let* ((--cl-var-- (remove-if-not (quote helm-update-source-p) (helm-get-sources))) (source nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (if (helm-delayed-source-p source) (progn (push source --cl-var--)) (progn (push source normal-sources) (helm-process-source source))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
  (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source)))
  (setq delayed-sources (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source))))
  (unwind-protect (setq delayed-sources (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source)))) (helm-log-eval (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)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (helm-log-run-hook (quote helm-after-update-hook)) (when preselect (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect)))) (when delayed-sources (let ((helm-idle-delay (loop with delay = helm-idle-delay for s in delayed-sources for d = (assoc-default (quote delayed) s) when d do (setq delay (max delay d)) finally return delay))) (helm-new-timer (quote helm-process-delayed-sources-timer) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.1) nil (quote helm-process-delayed-sources) delayed-sources preselect)))) (helm-log "end update"))
  (let (delayed-sources normal-sources) (unwind-protect (setq delayed-sources (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source)))) (helm-log-eval (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)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (helm-log-run-hook (quote helm-after-update-hook)) (when preselect (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect)))) (when delayed-sources (let ((helm-idle-delay (loop with delay = helm-idle-delay for s in delayed-sources for d = (assoc-default ... s) when d do (setq delay ...) finally return delay))) (helm-new-timer (quote helm-process-delayed-sources-timer) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.1) nil (quote helm-process-delayed-sources) delayed-sources preselect)))) (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 (setq delayed-sources (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source)))) (helm-log-eval (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)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (helm-log-run-hook (quote helm-after-update-hook)) (when preselect (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect)))) (when delayed-sources (let ((helm-idle-delay (loop with delay = helm-idle-delay for s in delayed-sources for d = ... when d do ... finally return delay))) (helm-new-timer (quote helm-process-delayed-sources-timer) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.1) nil (quote helm-process-delayed-sources) delayed-sources preselect)))) (helm-log "end update"))))
  (with-current-buffer (helm-buffer-get) (set (make-local-variable (quote helm-input-local)) helm-pattern) (erase-buffer) (let (delayed-sources normal-sources) (unwind-protect (setq delayed-sources (loop for source in (remove-if-not (quote helm-update-source-p) (helm-get-sources)) if (helm-delayed-source-p source) collect source else do (progn (push source normal-sources) (helm-process-source source)))) (helm-log-eval (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)) (delayed-sources (helm-update-move-first-line (quote without-hook))) (t (helm-update-move-first-line) (helm-log-run-hook (quote helm-after-update-hook)) (when preselect (helm-log "Update preselect candidate %s" preselect) (helm-preselect preselect)))) (when delayed-sources (let ((helm-idle-delay (loop with delay = helm-idle-delay for s in delayed-sources for d = ... when d do ... finally return delay))) (helm-new-timer (quote helm-process-delayed-sources-timer) (run-with-idle-timer (max helm-idle-delay helm-input-idle-delay 0.1) nil (quote helm-process-delayed-sources) delayed-sources preselect)))) (helm-log "end update"))))
  helm-update(nil)
  (if (and (helm-resume-p any-resume) (not (helm-empty-buffer-p))) (helm-mark-current-line t) (helm-update any-preselect))
  helm-read-pattern-maybe(nil nil nil nil nil nil nil)
  (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup))
  (progn (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup)))
  (unwind-protect (progn (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup))) (loop for (var . value) in --orig-vars do (set var value)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))
  (let ((--orig-vars (mapcar (lambda (v) (cons v (symbol-value v))) helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook (default-value (quote post-command-hook))))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup))) (loop for (var . value) in --orig-vars do (set var value)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables")))
  (with-helm-restore-variables (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup)))
  (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (with-helm-restore-variables (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup))) (prog1 (unless helm-quit (helm-execute-selection-action-1)) (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))) (with-helm-restore-variables (helm-initialize any-resume any-input 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 (when (and any-history (symbolp any-history)) any-history)) (helm-cleanup))) (prog1 (unless helm-quit (helm-execute-selection-action-1)) (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))) (with-helm-restore-variables (helm-initialize any-resume any-input 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 (when (and any-history ...) any-history)) (helm-cleanup))) (prog1 (unless helm-quit (helm-execute-selection-action-1)) (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)) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe))
  (let ((old-overridding-local-map overriding-local-map)) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (with-helm-restore-variables (helm-initialize any-resume any-input 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 (when ... any-history)) (helm-cleanup))) (prog1 (unless helm-quit (helm-execute-selection-action-1)) (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)) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe)))
  (catch (quote exit) (helm-log (concat "[Start session] " (make-string 41 43))) (helm-log-eval any-prompt any-preselect any-buffer any-keymap any-default) (let ((old-overridding-local-map overriding-local-map)) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (with-helm-restore-variables (helm-initialize any-resume any-input 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))) (prog1 (unless helm-quit (helm-execute-selection-action-1)) (helm-log (concat "[End session] " ...)))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe))))
  helm-internal((helm-c-source-gtags-tags) nil nil nil nil #<buffer *helm gtags*> nil nil nil)
  apply(helm-internal ((helm-c-source-gtags-tags) nil nil nil nil #<buffer *helm gtags*> nil nil nil))
  (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))) (apply fn plist))
  (if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (lambda nil (apply fn (mapcar (function (lambda ... ...)) 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))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (lambda nil (apply fn (mapcar (function ...) helm-argument-keys)))) (apply fn plist))))
  helm((helm-c-source-gtags-tags) nil nil nil nil #<buffer *helm gtags*> nil nil nil)
  apply(helm ((helm-c-source-gtags-tags) nil nil nil nil #<buffer *helm gtags*> 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(nil (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) (lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))) (apply fn plist))
  (if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (lambda nil (apply fn (mapcar (function (lambda ... ...)) 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))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (lambda nil (apply fn (mapcar (function ...) helm-argument-keys)))) (apply fn plist))))
  helm(:sources (helm-c-source-gtags-tags) :buffer #<buffer *helm gtags*>)
  (let ((helm-quit-if-no-candidate t) (helm-execute-action-at-once-if-one t) (buf (get-buffer-create helm-c-gtags-buffer))) (helm :sources srcs :buffer buf))
  helm-c-gtags-common((helm-c-source-gtags-tags))
  helm-gtags-find-tag()
  call-interactively(helm-gtags-find-tag)
  (if helm-M-x-always-save-history nil (call-interactively sym-com))
  (unless helm-M-x-always-save-history (call-interactively sym-com))
  (let* ((history (loop with hist for i in extended-command-history for com = (intern i) when (commandp com) collect i into hist finally return hist)) command sym-com in-help help-cand helm-persistent-action-use-special-display (pers-help (function (lambda (candidate) (let ((hbuf ...) special-display-buffer-names special-display-regexps) (if (and in-help ...) (progn ... ...) (set-window-dedicated-p ... nil) (describe-function ...) (message nil) (setq in-help t)) (setq help-cand candidate)))))) (setq command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action pers-help :persistent-help "Describe this command" :history history :del-input nil :mode-line helm-mode-line-string :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (setq sym-com (intern command)) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (unless helm-M-x-always-save-history (call-interactively sym-com)) (setq extended-command-history (cons command (delete command history))) (when helm-M-x-always-save-history (call-interactively sym-com)))
  helm-M-x()
  call-interactively(helm-M-x nil nil)