branch: elpa/helm
commit dcaa8fb45d4f7d08390d80351a4204f848f2ec90
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add minibuffer local vars to debug output
---
helm-core.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 55e13467dc1..771dc2265f3 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6723,12 +6723,16 @@ This is the default function for `helm-debug-function'."
(let ((local-vars (buffer-local-variables (get-buffer helm-buffer)))
(count 1))
(insert (format "* Helm debug from `%s' buffer\n\n" helm-buffer))
- (insert "** Local variables\n\n#+begin_src elisp\n"
+ (insert "** Helm local variables\n\n#+begin_src elisp\n"
(pp-to-string (remove (assq 'helm-sources local-vars) local-vars))
"\n#+end_src\n")
+ (insert "** Minibuffer local variables\n\n#+begin_src elisp\n"
+ (pp-to-string (with-selected-window (minibuffer-window)
+ (buffer-local-variables)))
+ "\n#+end_src\n")
(dolist-with-progress-reporter (v (helm-interpret-value
helm-debug-function))
"Calculating all helm-related values..."
- (insert (format "** Value%s\n" count)
+ (insert (format "** Source%s value\n" count)
"#+begin_src elisp\n" (pp-to-string v) "\n#+end_src\n")
(cl-incf count))))
