search

Malabarba / elisp-bug-hunter

Hunt down errors in elisp files.
275 stars 15 forks source link

no file or directory "/home/jorge/emacsd" #26

Closed shackra closed 4 years ago

shackra commented 4 years ago

Attempted to hut a bug on my init.el file but somehow the package tries to do something with a directory called ~/emacsd instead of ~/.emacs.d; something is magically deleting the dots...

Here is the backtrace:

Debugger entered--Lisp error: (file-missing "Searching for program" "No existe el fichero o el directorio" "/home/jorge/emacsd")
  call-process("/home/jorge/emacsd" nil #<buffer *Bug-Hunter Command*<2>> nil "-Q" "-l" "/tmp/bug-hunterJhQWV9")
  apply(call-process "/home/jorge/emacsd" nil #<buffer *Bug-Hunter Command*<2>> nil ("-Q" "-l" "/tmp/bug-hunterJhQWV9"))
  bug-hunter--run-emacs("/tmp/bug-hunterJhQWV9" "-Q")
  bug-hunter--run-form-interactively((let ((server-name (make-temp-file "bug-hunter-temp-server-file"))) (delete-file server-name) (if site-run-file (load site-run-file t t)) (run-hooks 'before-init-hook) (define-coding-system-alias 'cp65001 'utf-8) (when (eq window-system 'ns) (setenv "DICPATH" (concat (getenv "HOME") "/Library/Spelling"))) (setf straight-use-package-by-default t straight-repository-branch "develop") (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/s..." 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (setf straight-check-for-modifications '(check-on-save find-when-checking)) (straight-use-package '(org-plus-contrib :repo "https://code.orgmode.org/bzg/org-mode.git" :local-repo "org" :files (:defaults "contrib/lisp/*.el") :includes (org))) (setq inhibit-startup-screen t) (setq network-security-level 'medium) (defun find-config nil "Abre el archivo de configuración de Emacs" (interactive) (find-file "~/.emacs.d/README.org")) (global-set-key (kbd "C-c I") 'find-config) (straight-use-package 'use-package) (setf straight-use-package-by-default t) (use-package use-package-hydra) (use-package hydra :config (require 'hydra-examples)) (use-package diminish) (use-package bind-key) (use-package f) (use-package exec-path-from-shell) (when (eq system-type 'darwin) (setf exec-path (append exec-path '("/Library/TeX/texbin")))) (unless (memq system-type '(ms-dos windos-nt cygwin)) (require 'exec-path-from-shell) (exec-path-from-shell-initialize)) (when (eq system-type 'darwin) (setenv "PATH" "Library/TeX/texbin/:$PATH" t)) (when (file-exists-p "/usr/share/emacs/site-lisp/mu4e") (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")) (eval-when-compile (require 'use-package)) (require 'diminish) (require 'bind-key) (defun shackra-org-confirm-babel-evaluate (lang body) (not (or (string= lang "emacs-lisp") (string= lang "ditaa")))) (setf org-confirm-babel-evaluate #'shackra-org-confirm-babel-evaluate) (put 'narrow-to-region 'disabled nil) (put 'narrow-to-page 'disabled nil) (setf user-full-name "Jorge Javier Araya Navarro" user-mail-address "jorge@esavara.cr" calendar-location-name "Siquirres, CR" calendar-latitude 9.935607 calendar-longitude -84.1833856 calendar-christian-all-holidays-flag t calendar-date-style 'european) (setf custom-file (expand-file-name (format "custom-%s.el" (format-time-string "%s")) (temporary-file-directory))) (load-file (expand-file-name "codigo elisp adicional.el" user-emacs-directory)) (use-package noflet) (setf tramp-default-method "ssh") (setf tramp-encoding-shell "/bin/zsh") (use-package bug-hunter) (use-package better-defaults :init (setq-default cursor-type 'box) (set-default 'indicate-empty-lines t) (setq-default truncate-lines t) (if (boundp 'buffer-file-coding-system) (setq-default buffer-file-coding-system 'utf-8) (setf buffer-file-coding-system 'utf-8)) :custom (blink-cursor-blinks 1) (blink-cursor-interval 1) (x-underline-at-descent-line t) (save-interprogram-paste-before-kill t) (bookmark-save-flag 1) (inhibit-startup-message t) (initial-scratch-message nil) (line-spacing 0) (make-backup-files nil) (global-auto-revert-non-file-buffers t) (auto-revert-verbose nil) (echo-keystrokes 0.1) (shift-select-mode nil) (fill-column 80) (blink-matching-paren t) (history-length 1000) (x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) (enable-recursive-minibuffers t) (gc-cons-percentage 0.125) (ediff-diff-options "-w") (ediff-split-window-function 'split-window-horizontally) (buffer-file-coding-system 'utf-8) (x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) :config (transient-mark-mode 1) (blink-cursor-mode) (ido-mode nil) (tooltip-mode -1) (recentf-mode 1) (savehist-mode 1) (fset 'yes-or-no-p 'y-or-n-p) (global-auto-revert-mode 1) (column-number-mode 1) (global-subword-mode 1) (global-font-lock-mode 1) (delete-selection-mode 1) ...) (defun fira-code-mode--make-alist (list) "Generate prettify-symbols alist from LIST." (let ((idx -1)) (mapcar (lambda (s) (setq idx ...) (let* ... ... ...)) list))) ...))
  bug-hunter--run-and-test(((define-coding-system-alias 'cp65001 'utf-8) (when (eq window-system 'ns) (setenv "DICPATH" (concat (getenv "HOME") "/Library/Spelling"))) (setf straight-use-package-by-default t straight-repository-branch "develop") (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.e..." user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxo..." ... ...) (goto-char ...) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (setf straight-check-for-modifications '(check-on-save find-when-checking)) (straight-use-package '(org-plus-contrib :repo "https://code.orgmode.org/bzg/org-mode...." :local-repo "org" :files (:defaults "contrib/lisp/*.el") :includes (org))) (setq inhibit-startup-screen t) (setq network-security-level 'medium) (defun find-config nil "Abre el archivo de configuración de Em..." (interactive) (find-file "~/.emacs.d/README.org")) (global-set-key (kbd "C-c I") 'find-config) (straight-use-package 'use-package) (setf straight-use-package-by-default t) (use-package use-package-hydra) (use-package hydra :config (require 'hydra-examples)) (use-package diminish) (use-package bind-key) (use-package f) (use-package exec-path-from-shell) (when (eq system-type 'darwin) (setf exec-path (append exec-path '...))) (unless (memq system-type '(ms-dos windos-nt cygwin)) (require 'exec-path-from-shell) (exec-path-from-shell-initialize)) (when (eq system-type 'darwin) (setenv "PATH" "Library/TeX/texbin/:$PATH" t)) (when (file-exists-p "/usr/share/emacs/site-lisp/mu4e") (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")) (eval-when-compile (require 'use-package)) (require 'diminish) (require 'bind-key) (defun shackra-org-confirm-babel-evaluate (lang body) (not (or (string= lang "emacs-lisp") (string= lang "ditaa")))) (setf org-confirm-babel-evaluate #'shackra-org-confirm-babel-evaluate) (put 'narrow-to-region 'disabled nil) (put 'narrow-to-page 'disabled nil) (setf user-full-name "Jorge Javier Araya Navarro" user-mail-address "jorge@esavara.cr" calendar-location-name "Siquirres, CR" calendar-latitude 9.935607 calendar-longitude -84.1833856 calendar-christian-all-holidays-flag t calendar-date-style 'european) (setf custom-file (expand-file-name (format "custom-%s.el" (format-time-string "%s")) (temporary-file-directory))) (load-file (expand-file-name "codigo elisp adicional.el" user-emacs-directory)) (use-package noflet) (setf tramp-default-method "ssh") (setf tramp-encoding-shell "/bin/zsh") (use-package bug-hunter) (use-package better-defaults :init (setq-default cursor-type 'box) (set-default 'indicate-empty-lines t) (setq-default truncate-lines t) (if (boundp 'buffer-file-coding-system) (setq-default buffer-file-coding-system 'utf-8) (setf buffer-file-coding-system 'utf-8)) :custom (blink-cursor-blinks 1) (blink-cursor-interval 1) (x-underline-at-descent-line t) (save-interprogram-paste-before-kill t) (bookmark-save-flag 1) (inhibit-startup-message t) (initial-scratch-message nil) (line-spacing 0) (make-backup-files nil) (global-auto-revert-non-file-buffers t) (auto-revert-verbose nil) (echo-keystrokes 0.1) (shift-select-mode nil) (fill-column 80) (blink-matching-paren t) (history-length 1000) (x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) (enable-recursive-minibuffers t) (gc-cons-percentage 0.125) (ediff-diff-options "-w") (ediff-split-window-function 'split-window-horizontally) (buffer-file-coding-system 'utf-8) (x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) :config (transient-mark-mode 1) (blink-cursor-mode) (ido-mode nil) (tooltip-mode -1) (recentf-mode 1) (savehist-mode 1) ...) ...) interactive)
  bug-hunter-hunt((((define-coding-system-alias 'cp65001 'utf-8) 4 2) ((when (eq window-system 'ns) (setenv "DICPATH" (concat ... "/Library/Spelling"))) 7 2) ((setf straight-use-package-by-default t straight-repository-branch "develop") 10 2) ((defvar bootstrap-version) 13 2) ((let ((bootstrap-file ...) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer ... ... ...)) (load bootstrap-file nil 'nomessage)) 14 2) ((setf straight-check-for-modifications '(check-on-save find-when-checking)) 26 2) ((straight-use-package '(org-plus-contrib :repo "https://code.orgmode.org/bzg/org-mode...." :local-repo "org" :files ... :includes ...)) 28 2) ((setq inhibit-startup-screen t) 35 2) ((setq network-security-level 'medium) 38 2) ((defun find-config nil "Abre el archivo de configuración de Em..." (interactive) (find-file "~/.emacs.d/README.org")) 41 2) ((global-set-key (kbd "C-c I") 'find-config) 46 2) ((straight-use-package 'use-package) 49 2) ((setf straight-use-package-by-default t) 53 2) ((use-package use-package-hydra) 55 2) ((use-package hydra :config (require 'hydra-examples)) 57 2) ((use-package diminish) 59 2) ((use-package bind-key) 61 2) ((use-package f) 63 2) ((use-package exec-path-from-shell) 65 2) ((when (eq system-type 'darwin) (setf exec-path (append exec-path ...))) 68 2) ((unless (memq system-type '...) (require 'exec-path-from-shell) (exec-path-from-shell-initialize)) 71 2) ((when (eq system-type 'darwin) (setenv "PATH" "Library/TeX/texbin/:$PATH" t)) 76 2) ((when (file-exists-p "/usr/share/emacs/site-lisp/mu4e") (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")) 80 2) ((eval-when-compile (require 'use-package)) 83 2) ((require 'diminish) 85 2) ((require 'bind-key) 86 2) ((defun shackra-org-confirm-babel-evaluate (lang body) (not (or ... ...))) 88 2) ((setf org-confirm-babel-evaluate #'shackra-org-confirm-babel-evaluate) 90 2) ((put 'narrow-to-region 'disabled nil) 92 2) ((put 'narrow-to-page 'disabled nil) 93 2) ((setf user-full-name "Jorge Javier Araya Navarro" user-mail-address "jorge@esavara.cr" calendar-location-name "Siquirres, CR" calendar-latitude 9.935607 calendar-longitude -84.1833856 calendar-christian-all-holidays-flag t calendar-date-style 'european) 94 2) ((setf custom-file (expand-file-name (format "custom-%s.el" ...) (temporary-file-directory))) 101 2) ((load-file (expand-file-name "codigo elisp adicional.el" user-emacs-directory)) 102 2) ((use-package noflet) 103 2) ((setf tramp-default-method "ssh") 104 2) ((setf tramp-encoding-shell "/bin/zsh") 105 2) ((use-package bug-hunter) 106 2) ((use-package better-defaults :init (setq-default cursor-type 'box) (set-default 'indicate-empty-lines t) (setq-default truncate-lines t) (if (boundp ...) (setq-default buffer-file-coding-system ...) (setf buffer-file-coding-system ...)) :custom (blink-cursor-blinks 1) (blink-cursor-interval 1) (x-underline-at-descent-line t) (save-interprogram-paste-before-kill t) (bookmark-save-flag 1) (inhibit-startup-message t) (initial-scratch-message nil) (line-spacing 0) (make-backup-files nil) (global-auto-revert-non-file-buffers t) (auto-revert-verbose nil) (echo-keystrokes 0.1) (shift-select-mode nil) (fill-column 80) (blink-matching-paren t) (history-length 1000) (x-select-request-type '...) (enable-recursive-minibuffers t) (gc-cons-percentage 0.125) (ediff-diff-options "-w") (ediff-split-window-function 'split-window-horizontally) (buffer-file-coding-system 'utf-8) (x-select-request-type '...) :config (transient-mark-mode 1) (blink-cursor-mode) (ido-mode nil) (tooltip-mode -1) (recentf-mode 1) (savehist-mode 1) ...) 107 2) ...) interactive)
  bug-hunter-file("/home/jorge/.emacs.d/init.el" interactive)
  bug-hunter-init-file(interactive)
  #<subr funcall-interactively>(bug-hunter-init-file interactive)
  apply(#<subr funcall-interactively> (bug-hunter-init-file interactive))
  funcall-interactively(bug-hunter-init-file interactive)
  #<subr call-interactively>(bug-hunter-init-file record nil)
  apply(#<subr call-interactively> (bug-hunter-init-file record nil))
  explain-pause--wrap-call-interactively(#<subr call-interactively> bug-hunter-init-file record nil)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> (bug-hunter-init-file record nil))
  call-interactively(bug-hunter-init-file record nil)
  command-execute(bug-hunter-init-file record)
  counsel-M-x-action("bug-hunter-init-file")
  #f(compiled-function (x) #<bytecode -0x1ddfbf095879c63>)("bug-hunter-init-file")
  funcall(#f(compiled-function (x) #<bytecode -0x1ddfbf095879c63>) "bug-hunter-init-file")
  (if ivy-marked-candidates (ivy--call-marked action) (funcall action x))
  (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore))
  (prog1 (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore)) (if (or (eq ivy-exit 'done) (minibuffer-window-active-p (selected-window)) (null (active-minibuffer-window))) nil (select-window (active-minibuffer-window))))
  (cond ((null action) current) (t (select-window (ivy--get-window ivy-last)) (set-buffer (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 13))) (prog1 (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore)) (if (or (eq ivy-exit 'done) (minibuffer-window-active-p (selected-window)) (null (active-minibuffer-window))) nil (select-window (active-minibuffer-window))))))
  (let* ((action (if (functionp ivy-inhibit-action) ivy-inhibit-action (and (not ivy-inhibit-action) (ivy--get-action ivy-last)))) (current (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 23))) (x (ivy--call-cand current)) (res (cond ((null action) current) (t (select-window (ivy--get-window ivy-last)) (set-buffer (progn (or ... ...) (aref ivy-last 13))) (prog1 (unwind-protect (if ivy-marked-candidates ... ...) (ivy-recursive-restore)) (if (or ... ... ...) nil (select-window ...))))))) (if ivy-inhibit-action res current))
  ivy-call()
  (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not (window-minibuffer-p))) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil (let (...) (save-current-buffer ...))) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist ...) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height ...) (resize-mini-windows ...)) (if (and ivy-auto-select-single-candidate ivy--all-candidates ...) (progn ... ...) (condition-case err ... ...)) (if (eq ivy-exit ...) (progn ...)))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if (or ... ... ...) nil caller)))) (if session (progn (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 27 ...))) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup)) (ivy-call))
  (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not (window-minibuffer-p))) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil (let ... ...)) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook ... setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* (... ... ... ... ...) (if ... ... ...) (if ... ...))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if ... nil caller)))) (if session (progn (progn (or ... ...) (let* ... ...)) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup)) (ivy-call)))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :multi-action :unwind :re-builder :matcher :dynamic-collection :extra-props :caller :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 (:predicate :requir..." (car --cl-keys--)))))) (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not ...)) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil ...) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil ... ...)) (unwind-protect (progn (add-hook ... setup-hook) (let* ... ... ...)) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or ... ...))) (if session (progn (progn ... ...) (ivy--alist-set ... session ivy-last)))) (ivy--cleanup)) (ivy-call))))
  (let* ((predicate (car (cdr (plist-member --cl-rest-- ':predicate)))) (require-match (car (cdr (plist-member --cl-rest-- ':require-match)))) (initial-input (car (cdr (plist-member --cl-rest-- ':initial-input)))) (history (car (cdr (plist-member --cl-rest-- ':history)))) (preselect (car (cdr (plist-member --cl-rest-- ':preselect)))) (def (car (cdr (plist-member --cl-rest-- ':def)))) (keymap (car (cdr (plist-member --cl-rest-- ':keymap)))) (update-fn (car (cdr (plist-member --cl-rest-- ':update-fn)))) (sort (car (cdr (plist-member --cl-rest-- ':sort)))) (action (car (cdr (plist-member --cl-rest-- ':action)))) (multi-action (car (cdr (plist-member --cl-rest-- ':multi-action)))) (unwind (car (cdr (plist-member --cl-rest-- ':unwind)))) (re-builder (car (cdr (plist-member --cl-rest-- ':re-builder)))) (matcher (car (cdr (plist-member --cl-rest-- ':matcher)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ':dynamic-collection)))) (extra-props (car (cdr (plist-member --cl-rest-- ':extra-props)))) (caller (car (cdr (plist-member --cl-rest-- ':caller))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:predicate :requir..." (car --cl-keys--)))))) (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last ...) (progn ...)))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn ...) #'... update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun ...) setup-hook) (setq setup-hook #'...) (unwind-protect (progn ... ...) (remove-hook ... setup-hook))) (let ((session ...)) (if session (progn ... ...))) (ivy--cleanup)) (ivy-call)))))
  (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr (plist-member --cl-rest-- ...)))) (require-match (car (cdr (plist-member --cl-rest-- ...)))) (initial-input (car (cdr (plist-member --cl-rest-- ...)))) (history (car (cdr (plist-member --cl-rest-- ...)))) (preselect (car (cdr (plist-member --cl-rest-- ...)))) (def (car (cdr (plist-member --cl-rest-- ...)))) (keymap (car (cdr (plist-member --cl-rest-- ...)))) (update-fn (car (cdr (plist-member --cl-rest-- ...)))) (sort (car (cdr (plist-member --cl-rest-- ...)))) (action (car (cdr (plist-member --cl-rest-- ...)))) (multi-action (car (cdr (plist-member --cl-rest-- ...)))) (unwind (car (cdr (plist-member --cl-rest-- ...)))) (re-builder (car (cdr (plist-member --cl-rest-- ...)))) (matcher (car (cdr (plist-member --cl-rest-- ...)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ...)))) (extra-props (car (cdr (plist-member --cl-rest-- ...)))) (caller (car (cdr (plist-member --cl-rest-- ...))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond (... ...) (... ...) (t ...)))) (progn (let ((init-fn ...)) (if init-fn (progn ...))) (if (equal overriding-local-map '...) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last ...) (ivy--display-function ...)) (setq update-fn (or update-fn ...)) (setq unwind (or unwind ...)) (setq ivy-last (make-ivy-state :prompt ... :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn ... :sort sort :action ... :multi-action multi-action :frame ... :window ... :buffer ... :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn ... :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ... ... ...) (let ... ...) (ivy--cleanup)) (ivy-call))))))("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x :sort t)
  apply((closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr (plist-member --cl-rest-- ...)))) (require-match (car (cdr (plist-member --cl-rest-- ...)))) (initial-input (car (cdr (plist-member --cl-rest-- ...)))) (history (car (cdr (plist-member --cl-rest-- ...)))) (preselect (car (cdr (plist-member --cl-rest-- ...)))) (def (car (cdr (plist-member --cl-rest-- ...)))) (keymap (car (cdr (plist-member --cl-rest-- ...)))) (update-fn (car (cdr (plist-member --cl-rest-- ...)))) (sort (car (cdr (plist-member --cl-rest-- ...)))) (action (car (cdr (plist-member --cl-rest-- ...)))) (multi-action (car (cdr (plist-member --cl-rest-- ...)))) (unwind (car (cdr (plist-member --cl-rest-- ...)))) (re-builder (car (cdr (plist-member --cl-rest-- ...)))) (matcher (car (cdr (plist-member --cl-rest-- ...)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ...)))) (extra-props (car (cdr (plist-member --cl-rest-- ...)))) (caller (car (cdr (plist-member --cl-rest-- ...))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond (... ...) (... ...) (t ...)))) (progn (let ((init-fn ...)) (if init-fn (progn ...))) (if (equal overriding-local-map '...) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last ...) (ivy--display-function ...)) (setq update-fn (or update-fn ...)) (setq unwind (or unwind ...)) (setq ivy-last (make-ivy-state :prompt ... :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn ... :sort sort :action ... :multi-action multi-action :frame ... :window ... :buffer ... :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn ... :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ... ... ...) (let ... ...) (ivy--cleanup)) (ivy-call)))))) ("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x :sort t))
  #f(advice-wrapper :filter-args (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n\nPROMPT is a string, normally ending in a colon and a space.\n`ivy-count-format' is prepended to PROMPT during completion.\n\nCOLLECTION is either a list of strings, a function, an alist, or\na hash table, supplied for `minibuffer-completion-table'.\n\nPREDICATE is applied to filter out the COLLECTION immediately.\nThis argument is for compatibility with `completing-read'.\n\nWhen REQUIRE-MATCH is non-nil, only members of COLLECTION can be\nselected.\n\nIf INITIAL-INPUT is non-nil, then insert that input in the\nminibuffer initially.\n\nHISTORY is a name of a variable to hold the completion session\nhistory.\n\nKEYMAP is composed with `ivy-minibuffer-map'.\n\nPRESELECT, when non-nil, determines which one of the candidates\nmatching INITIAL-INPUT to select initially.  An integer stands\nfor the position of the desired candidate in the collection,\ncounting from zero.  Otherwise, use the first occurrence of\nPRESELECT in the collection.  Comparison is first done with\n`equal'.  If that fails, and when applicable, match PRESELECT as\na regular expression.\n\nDEF is for compatibility with `completing-read'.\n\nUPDATE-FN is called each time the candidate list is re-displayed.\n\nWhen SORT is non-nil, `ivy-sort-functions-alist' determines how\nto sort candidates before displaying them.\n\nACTION is a function to call after selecting a candidate.\nIt takes one argument, the selected candidate. If COLLECTION is\nan alist, the argument is a cons cell, otherwise it's a string.\n\nMULTI-ACTION, when non-nil, is called instead of ACTION when\nthere are marked candidates. It takes the list of candidates as\nits only argument. When it's nil, ACTION is called on each marked\ncandidate.\n\nUNWIND is a function of no arguments to call before exiting.\n\nRE-BUILDER is a function transforming input text into a regex\npattern.\n\nMATCHER is a function which can override how candidates are\nfiltered based on user input.  It takes a regex pattern and a\nlist of candidates, and returns the list of matching candidates.\n\nDYNAMIC-COLLECTION is a boolean specifying whether the list of\ncandidates is updated after each input by calling COLLECTION.\n\nEXTRA-PROPS is a plist that can be used to store\ncollection-specific session-specific data.\n\nCALLER is a symbol to uniquely identify the caller to `ivy-read'.\nIt is used, along with COLLECTION, to determine which\ncustomizations apply to the current completion session.\n\n(fn PROMPT COLLECTION &key PREDICATE REQUIRE-MATCH INITIAL-INPUT HISTORY PRESELECT DEF KEYMAP UPDATE-FN SORT ACTION MULTI-ACTION UNWIND RE-BUILDER MATCHER DYNAMIC-COLLECTION EXTRA-PROPS CALLER)" (let* ((predicate (car (cdr (plist-member --cl-rest-- ':predicate)))) (require-match (car (cdr (plist-member --cl-rest-- ':require-match)))) (initial-input (car (cdr (plist-member --cl-rest-- ':initial-input)))) (history (car (cdr (plist-member --cl-rest-- ':history)))) (preselect (car (cdr (plist-member --cl-rest-- ':preselect)))) (def (car (cdr (plist-member --cl-rest-- ':def)))) (keymap (car (cdr (plist-member --cl-rest-- ':keymap)))) (update-fn (car (cdr (plist-member --cl-rest-- ':update-fn)))) (sort (car (cdr (plist-member --cl-rest-- ':sort)))) (action (car (cdr (plist-member --cl-rest-- ':action)))) (multi-action (car (cdr (plist-member --cl-rest-- ':multi-action)))) (unwind (car (cdr (plist-member --cl-rest-- ':unwind)))) (re-builder (car (cdr (plist-member --cl-rest-- ':re-builder)))) (matcher (car (cdr (plist-member --cl-rest-- ':matcher)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ':dynamic-collection)))) (extra-props (car (cdr (plist-member --cl-rest-- ':extra-props)))) (caller (car (cdr (plist-member --cl-rest-- ':caller))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :multi-action :unwind :re-builder :matcher :dynamic-collection :extra-props :caller :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :multi-action :unwind :re-builder :matcher :dynamic-collection :extra-props :caller)" (car --cl-keys--)))))) (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not (window-minibuffer-p))) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil (let ((save-selected-window--state (internal--before-with-selected-window (ivy--get-window ivy-last)))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) 'norecord) (funcall (ivy--get-action ivy-last) (if (consp (car-safe (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 2)))) (assoc (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 23)) (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 2))) (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 23))))) (internal--after-with-selected-window save-selected-window--state))))) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist (or history 'ivy-history)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if (display-graphic-p) nil 'grow-only))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (let* ((v ivy-last)) (aset v 23 (car ivy--all-candidates)))) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err '(error "Selecting deleted buffer")) nil (signal (car err) (cdr err)))))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist))))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if (or (minibufferp) (null (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 15))) (eq (ivy--get-action ivy-last) #'identity)) nil caller)))) (if session (progn (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (let* ((v ivy-last)) (aset v 27 (plist-put extra-props :ivy-data (list ':all-candidates ivy--all-candidates ':text ivy-text))))) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup)) (ivy-call)))))) ivy-prescient--enable-sort-commands)("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file ...] :predicate (closure ... ... ...) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap ... ...) :initial-input nil :caller counsel-M-x)
  apply(#f(advice-wrapper :filter-args (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr ...))) (require-match (car (cdr ...))) (initial-input (car (cdr ...))) (history (car (cdr ...))) (preselect (car (cdr ...))) (def (car (cdr ...))) (keymap (car (cdr ...))) (update-fn (car (cdr ...))) (sort (car (cdr ...))) (action (car (cdr ...))) (multi-action (car (cdr ...))) (unwind (car (cdr ...))) (re-builder (car (cdr ...))) (matcher (car (cdr ...))) (dynamic-collection (car (cdr ...))) (extra-props (car (cdr ...))) (caller (car (cdr ...)))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ... ... ...))) (progn (let (...) (if init-fn ...)) (if (equal overriding-local-map ...) (progn ...)) (setq caller (or caller this-command)) (let* (... ...) (setq update-fn ...) (setq unwind ...) (setq ivy-last ...) (ivy--reset-state ivy-last) (unwind-protect ... ... ...) (ivy-call)))))) ivy-prescient--enable-sort-commands) ("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x))
  ivy-posframe--read(#f(advice-wrapper :filter-args (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr ...))) (require-match (car (cdr ...))) (initial-input (car (cdr ...))) (history (car (cdr ...))) (preselect (car (cdr ...))) (def (car (cdr ...))) (keymap (car (cdr ...))) (update-fn (car (cdr ...))) (sort (car (cdr ...))) (action (car (cdr ...))) (multi-action (car (cdr ...))) (unwind (car (cdr ...))) (re-builder (car (cdr ...))) (matcher (car (cdr ...))) (dynamic-collection (car (cdr ...))) (extra-props (car (cdr ...))) (caller (car (cdr ...)))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ... ... ...))) (progn (let (...) (if init-fn ...)) (if (equal overriding-local-map ...) (progn ...)) (setq caller (or caller this-command)) (let* (... ...) (setq update-fn ...) (setq unwind ...) (setq ivy-last ...) (ivy--reset-state ivy-last) (unwind-protect ... ... ...) (ivy-call)))))) ivy-prescient--enable-sort-commands) "M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  apply(ivy-posframe--read #f(advice-wrapper :filter-args (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr ...))) (require-match (car (cdr ...))) (initial-input (car (cdr ...))) (history (car (cdr ...))) (preselect (car (cdr ...))) (def (car (cdr ...))) (keymap (car (cdr ...))) (update-fn (car (cdr ...))) (sort (car (cdr ...))) (action (car (cdr ...))) (multi-action (car (cdr ...))) (unwind (car (cdr ...))) (re-builder (car (cdr ...))) (matcher (car (cdr ...))) (dynamic-collection (car (cdr ...))) (extra-props (car (cdr ...))) (caller (car (cdr ...)))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ... ... ...))) (progn (let (...) (if init-fn ...)) (if (equal overriding-local-map ...) (progn ...)) (setq caller (or caller this-command)) (let* (... ...) (setq update-fn ...) (setq unwind ...) (setq ivy-last ...) (ivy--reset-state ivy-last) (unwind-protect ... ... ...) (ivy-call)))))) ivy-prescient--enable-sort-commands) ("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x))
  ivy-read("M-x " [## soap-bound-operation-soap-headers diary-included-files epg-context-signers org-babel-C-utility-header-to-C tex-chktex-program package-lint--sane-prefixes vc-git-stash-snapshot iimage-locate-file notify-method webmail-encode-8bit magit-reflog-commit octave-close-block gnus-sync lsp-folding-range-limit company-box--add-icon gnus-delete-overlay flymake-ler-set-full-file viper-deactivate-input-method-action ad-Orig-outline-end-of-subtree js--expression-in-sgml-indent-line chart-axis--eieio-childp lsp-solargraph-references delphi-column-of Pop-from-Ring org-publish-sanitize-plist eieio-class-tag--ede-target :examined c-standard-font-lock-fontify-region-function bibtex-SuppCollection --cl-block-epl-requirement-name-- Grep-Files checkdoc-package-keywords-flag gdscript-indent-shift-right checkdoc-output-mode-map org-man-fixed-width :current-file org-odt-end-table transient:docker-compose-run:-T \' tramp-rename-files lispy-braces-barf-to-point-or-jump-nostring :exclude-subtypes gnus-registry-user-format-function-M muletibetan-2 batch-update-authors todo-categories-mode log-edit-set-header doom-modeline-format--personal tramp-gw-open-connection ...] :predicate (closure ((externs) (initial-input) smex-ido-cache smex-initialized-p amx-cache amx-initialized info-lookup-mode find-tag-marker-ring company-prefix company-common company-candidates t) (sym) (and (commandp sym) (not (get sym 'byte-obsolete-info)) (not (get sym 'no-counsel-M-x)))) :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  (let ((externs (counsel--M-x-externs))) (ivy-read (counsel--M-x-prompt) (or externs obarray) :predicate (if externs #'(lambda (x) (not (get (intern x) 'no-counsel-M-x))) #'(lambda (sym) (and (commandp sym) (not (get sym ...)) (not (get sym ...))))) :require-match t :history 'counsel-M-x-history :action #'counsel-M-x-action :keymap counsel-describe-map :initial-input initial-input :caller 'counsel-M-x))
  counsel-M-x()
  #<subr funcall-interactively>(counsel-M-x)
  apply(#<subr funcall-interactively> counsel-M-x)
  funcall-interactively(counsel-M-x)
  #<subr call-interactively>(counsel-M-x nil nil)
  apply(#<subr call-interactively> (counsel-M-x nil nil))
  explain-pause--wrap-call-interactively(#<subr call-interactively> counsel-M-x nil nil)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> (counsel-M-x nil nil))
  call-interactively(counsel-M-x nil nil)
  command-execute(counsel-M-x)
shackra commented 4 years ago

imagen

just noticed that the title of my Emacs frame is emacsd

shackra commented 4 years ago

turns out that the systemd file had the following

[Service]
Type=notify
ExecStart=@/usr/bin/emacs emacsd --fg-daemon
ExecStop=/usr/bin/emacsclient --eval "(kill-emacs)"

so I took the liberty to change things around:

[Service]
Type=forking
ExecStart=/usr/bin/emacs --daemon
ExecStop=/usr/bin/emacsclient --eval "(kill-emacs)"
shackra commented 4 years ago

alternatively, we can overwrite the value of invocation-name to point to the correct emacs binary:

(let ((invocation-name "emacs"))
  (bug-hunter-init-file))