emacs-pretest-bug
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

describe-mode problem if called with minibuffer window selected

From: Drew Adams
Subject: describe-mode problem if called with minibuffer window selected
Date: Sat, 13 Jan 2007 09:06:06 -0800 
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
reply via email to
[Prev in Thread] Current Thread [Next in Thread]