Not sure if it is describe-mode that needs to be fixed or fill-paragraph. emacs -Q M-: (progn (select-window (minibuffer-window)) (describe-mode "*Help*"))
Produces this backtrace: Debugger entered--Lisp error: (error "Lisp nesting exceeds `max-lisp-eval-depth'") (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-restriction (narrow-to-region (minibuffer-prompt-end) (point-max)) (fill-paragraph arg)) fill-minibuffer-function(nil) funcall(fill-minibuffer-function nil) (let ((function ...) (fill-paragraph-handle-comment nil) fill-paragraph-function) (funcall function arg)) (and (or fill-paragraph-function (and ... ...)) (let (... ... fill-paragraph-function) (funcall function arg))) (or (and (or fill-paragraph-function ...) (let ... ...)) (and fill-paragraph-handle-comment comment-start (equal comment-end "") (let ... ...)) (let (... ... fill-pfx) (when ... ...) (save-excursion ... ...) fill-pfx)) fill-paragraph(nil) (save-current-buffer (set-buffer standard-output) (message "1. buf: %S, win: %S" (current-buffer) (selected-window)) (sleep-for 2) (dolist (mode minor-modes) (let ... ... ... ... ...)) (forward-line -1) (message "2. buf: %S, win: %S" (current-buffer) (selected-window)) (sleep-for 2) (fill-paragraph nil) (forward-line 1)) (with-current-buffer standard-output (message "1. buf: %S, win: %S" (current-buffer) (selected-window)) (sleep-for 2) (dolist (mode minor-modes) (let ... ... ... ... ...)) (forward-line -1) (message "2. buf: %S, win: %S" (current-buffer) (selected-window)) (sleep-for 2) (fill-paragraph nil) (forward-line 1)) (progn (princ "Enabled minor modes:\n") (make-local-variable (quote help-button-cache)) (with-current-buffer standard-output (message "1. buf: %S, win: %S" ... ...) (sleep-for 2) (dolist ... ...) (forward-line -1) (message "2. buf: %S, win: %S" ... ...) (sleep-for 2) (fill-paragraph nil) (forward-line 1)) (princ "\n(Information about these minor modes follows the major mode info.)\n\n")) (if minor-modes (progn (princ "Enabled minor modes:\n") (make-local-variable ...) (with-current-buffer standard-output ... ... ... ... ... ... ... ...) (princ "\n(Information about these minor modes follows the major mode info.)\n\n"))) (when minor-modes (princ "Enabled minor modes:\n") (make-local-variable (quote help-button-cache)) (with-current-buffer standard-output (message "1. buf: %S, win: %S" ... ...) (sleep-for 2) (dolist ... ...) (forward-line -1) (message "2. buf: %S, win: %S" ... ...) (sleep-for 2) (fill-paragraph nil) (forward-line 1)) (princ "\n(Information about these minor modes follows the major mode info.)\n\n")) (let (minor-modes) (dolist (x minor-mode-alist) (setq x ...) (unless ... ...)) (dolist (mode minor-mode-list) (let ... ...)) (setq minor-modes (sort minor-modes ...)) (when minor-modes (princ "Enabled minor modes:\n") (make-local-variable ...) (with-current-buffer standard-output ... ... ... ... ... ... ... ...) (princ "\n(Information about these minor modes follows the major mode info.)\n\n")) (let (...) (with-current-buffer standard-output ...)) (princ " mode:\n") (princ (documentation major-mode))) (save-current-buffer (set-buffer buffer) (let (minor-modes) (dolist ... ... ...) (dolist ... ...) (setq minor-modes ...) (when minor-modes ... ... ... ...) (let ... ...) (princ " mode:\n") (princ ...)) (print-help-return-message)) (with-current-buffer buffer (let (minor-modes) (dolist ... ... ...) (dolist ... ...) (setq minor-modes ...) (when minor-modes ... ... ... ...) (let ... ...) (princ " mode:\n") (princ ...)) (print-help-return-message)) (with-output-to-temp-buffer (help-buffer) (with-current-buffer buffer (let ... ... ... ... ... ... ... ...) (print-help-return-message))) describe-mode("*Help*") (progn (select-window (minibuffer-window)) (describe-mode "*Help*")) eval((progn (select-window (minibuffer-window)) (describe-mode "*Help*"))) eval-expression((progn (select-window (minibuffer-window)) (describe-mode "*Help*")) nil) call-interactively(eval-expression) In GNU Emacs 22.0.91.1 (i386-mingw-nt5.1.2600) of 2006-12-11 on LENNART-69DE564 X server distributor `Microsoft Corp.', version 5.1.2600 configured using `configure --with-gcc (3.4) --cflags -Id:/g/include' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: ENU locale-coding-system: cp1252 default-enable-multibyte-characters: t Major mode: Debugger Minor modes in effect: encoded-kbd-mode: t tooltip-mode: t tool-bar-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t unify-8859-on-encoding-mode: t utf-translate-cjk-mode: t auto-compression-mode: t line-number-mode: t Recent input: C-g C-g C-h f m i n C-g C-g <down-mouse-1> <mouse-1> M-: ( s e t q <backspace> <backspace> <backspace> <backspace> p r o g n SPC ( s e l e c t - w i n d o w SPC ( m i n i b u f f e r - w i n d o w ) ) SPC ( d e s c r i b e - m o d e SPC " * H e l p * " ) ) <return> <help-echo> <help-echo> <help-echo> <help-echo> <help-echo> <help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> <re port-emacs-bug> Recent messages: 2. buf: #<buffer *Help*>, win: #<window 3 on *scratch*> Type C-x 1 to remove help window. "Type C-x 1 to remove help window. " Quit [2 times] Loading help-fns...done Quit [2 times] 1. buf: #<buffer *Help*>, win: #<window 4 on *Minibuf-0*> 2. buf: #<buffer *Help*>, win: #<window 4 on *Minibuf-0*> Entering debugger... Loading emacsbug...done _______________________________________________ emacs-pretest-bug mailing list emacs-pretest-bug@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug