crash of 21.5-b27 during C-x 0 on split windows into LCD planner project page. Fatal error. Your files have been auto-saved. Use `M-x recover-session' to recover them. Your version of XEmacs was distributed with a PROBLEMS file that may describe your crash, and with luck a workaround. Please check it first, but do report the crash anyway. Please report this bug by invoking M-x report-emacs-bug, or by selecting `Send Bug Report' from the Help menu. If that won't work, send ordinary email to `xemacs-beta@xemacs.org'. *MAKE SURE* to include this entire output from this crash, especially including the Lisp backtrace, as well as the XEmacs configuration from M-x describe-installation (or equivalently, the file `Installation' in the top of the build tree). If you are fortunate enough to have some sort of debugging aid installed on your system, for example Visual C++, and you can get a C stack backtrace, *please* include it, as it will make our life far easier. Lisp backtrace follows: # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) (if (and muse-colors-inline-images (muse-colors-resolve-image-file link)) (mus e-colors-insert-image link (match-beginning 0) (match-end 0) invis-props) (if de sc (progn (add-text-properties (match-beginning 0) (match-beginning 2) invis-pro ps) (add-text-properties (match-beginning 2) (match-end 2) props) (add-text-prop erties (match-end 2) (match-end 0) invis-props)) (add-text-properties (match-beg inning 0) (match-beginning 1) invis-props) (add-text-properties (match-beginning 1) (match-end 0) props) (add-text-properties (match-end 1) (match-end 0) invis- props)) (goto-char (match-end 0)) (add-text-properties (match-beginning 0) (matc h-end 0) (muse-link-properties (muse-match-string-no-properties 0) (muse-link-fa ce link t)))) # bind (invis-props props desc link) (let* ((link (muse-get-link)) (desc (muse-get-link-desc)) (props (muse-link-pr operties desc (muse-link-face link t))) (invis-props (append props (muse-link-pr operties desc)))) (if (and muse-colors-inline-images (muse-colors-resolve-image- file link)) (muse-colors-insert-image link (match-beginning 0) (match-end 0) inv is-props) (if desc (progn (add-text-properties (match-beginning 0) (match-beginn ing 2) invis-props) (add-text-properties (match-beginning 2) (match-end 2) props ) (add-text-properties (match-end 2) (match-end 0) invis-props)) (add-text-prope rties (match-beginning 0) (match-beginning 1) invis-props) (add-text-properties (match-beginning 1) (match-end 0) props) (add-text-properties (match-end 1) (mat ch-end 0) invis-props)) (goto-char (match-end 0)) (add-text-properties (match-be ginning 0) (match-end 0) (muse-link-properties (muse-match-string-no-properties 0) (muse-link-face link t))))) (progn (when (fboundp (quote flyspell-unhighlight-at)) (let ((cur (match-begin ning 0))) (while (> (match-end 0) cur) (flyspell-unhighlight-at cur) (setq cur ( 1+ cur))))) (save-excursion (goto-char (match-beginning 0)) (looking-at muse-exp licit-link-regexp)) (let* ((link (muse-get-link)) (desc (muse-get-link-desc)) (p rops (muse-link-properties desc (muse-link-face link t))) (invis-props (append p rops (muse-link-properties desc)))) (if (and muse-colors-inline-images (muse-col ors-resolve-image-file link)) (muse-colors-insert-image link (match-beginning 0) (match-end 0) invis-props) (if desc (progn (add-text-properties (match-beginnin g 0) (match-beginning 2) invis-props) (add-text-properties (match-beginning 2) ( match-end 2) props) (add-text-properties (match-end 2) (match-end 0) invis-props )) (add-text-properties (match-beginning 0) (match-beginning 1) invis-props) (ad d-text-properties (match-beginning 1) (match-end 0) props) (add-text-properties (match-end 1) (match-end 0) invis-props)) (goto-char (match-end 0)) (add-text-pr operties (match-beginning 0) (match-end 0) (muse-link-properties (muse-match-str ing-no-properties 0) (muse-link-face link t)))))) (if (eq ?\[ (char-after (match-beginning 0))) (progn (when (fboundp (quote fly spell-unhighlight-at)) (let ((cur (match-beginning 0))) (while (> (match-end 0) cur) (flyspell-unhighlight-at cur) (setq cur (1+ cur))))) (save-excursion (goto- char (match-beginning 0)) (looking-at muse-explicit-link-regexp)) (let* ((link ( muse-get-link)) (desc (muse-get-link-desc)) (props (muse-link-properties desc (m use-link-face link t))) (invis-props (append props (muse-link-properties desc))) ) (if (and muse-colors-inline-images (muse-colors-resolve-image-file link)) (mus e-colors-insert-image link (match-beginning 0) (match-end 0) invis-props) (if de sc (progn (add-text-properties (match-beginning 0) (match-beginning 2) invis-pro ps) (add-text-properties (match-beginning 2) (match-end 2) props) (add-text-prop erties (match-end 2) (match-end 0) invis-props)) (add-text-properties (match-beg inning 0) (match-beginning 1) invis-props) (add-text-properties (match-beginning 1) (match-end 0) props) (add-text-properties (match-end 1) (match-end 0) invis- props)) (goto-char (match-end 0)) (add-text-properties (match-beginning 0) (matc h-end 0) (muse-link-properties (muse-match-string-no-properties 0) (muse-link-fa ce link t))))))) (when (eq ?\[ (char-after (match-beginning 0))) (when (fboundp (quote flyspell -unhighlight-at)) (let ((cur (match-beginning 0))) (while (> (match-end 0) cur) (flyspell-unhighlight-at cur) (setq cur (1+ cur))))) (save-excursion (goto-char (match-beginning 0)) (looking-at muse-explicit-link-regexp)) (let* ((link (muse- get-link)) (desc (muse-get-link-desc)) (props (muse-link-properties desc (muse-l ink-face link t))) (invis-props (append props (muse-link-properties desc)))) (if (and muse-colors-inline-images (muse-colors-resolve-image-file link)) (muse-col ors-insert-image link (match-beginning 0) (match-end 0) invis-props) (if desc (p rogn (add-text-properties (match-beginning 0) (match-beginning 2) invis-props) ( add-text-properties (match-beginning 2) (match-end 2) props) (add-text-propertie s (match-end 2) (match-end 0) invis-props)) (add-text-properties (match-beginnin g 0) (match-beginning 1) invis-props) (add-text-properties (match-beginning 1) ( match-end 0) props) (add-text-properties (match-end 1) (match-end 0) invis-props )) (goto-char (match-end 0)) (add-text-properties (match-beginning 0) (match-end 0) (muse-link-properties (muse-match-string-no-properties 0) (muse-link-face li nk t)))))) muse-colors-explicit-link() funcall(muse-colors-explicit-link) (if markup-func (funcall markup-func)) (when markup-func (funcall markup-func)) (while (and (< (point) end) (re-search-forward muse-colors-regexp end t)) (if verbose (message "Highlighting buffer...%d%%" (* (/ (float (- (point) beg)) len) 100))) (setq markup-func (aref muse-colors-vector (char-after (match-beginning 0)))) (when markup-func (funcall markup-func))) # bind (markup-func case-fold-search len) (let ((len (float (- end beg))) (case-fold-search nil) markup-func) (goto-char beg) (while (and (< (point) end) (re-search-forward muse-colors-regexp end t)) (if verbose (message "Highlighting buffer...%d%%" (* (/ (float (- (point) beg)) len) 100))) (setq markup-func (aref muse-colors-vector (char-after (match-beginn ing 0)))) (when markup-func (funcall markup-func))) (run-hook-with-args (quote m use-colors-buffer-hook) beg end verbose) (if verbose (message "Highlighting buff er...done"))) # (unwind-protect ...) (save-restriction (widen) (when (and font-lock-multiline (> beg (point-min)) ( get-text-property (1- beg) (quote font-lock-multiline))) (setq beg (or (previous -single-property-change beg (quote font-lock-multiline)) (point-min))) (goto-cha r beg) (setq beg (muse-line-beginning-position))) (when font-lock-multiline (set q end (or (text-property-any end (point-max) (quote font-lock-multiline) nil) (p oint-max)))) (goto-char end) (setq end (muse-line-beginning-position 2)) (font-l ock-unfontify-region beg end) (let ((len (float (- end beg))) (case-fold-search nil) markup-func) (goto-char beg) (while (and (< (point) end) (re-search-forward muse-colors-regexp end t)) (if verbose (message "Highlighting buffer...%d%%" (* (/ (float (- (point) beg)) len) 100))) (setq markup-func (aref muse-colors-vect or (char-after (match-beginning 0)))) (when markup-func (funcall markup-func))) (run-hook-with-args (quote muse-colors-buffer-hook) beg end verbose) (if verbose (message "Highlighting buffer...done")))) # (unwind-protect ...) (save-excursion (save-restriction (widen) (when (and font-lock-multiline (> be g (point-min)) (get-text-property (1- beg) (quote font-lock-multiline))) (setq b eg (or (previous-single-property-change beg (quote font-lock-multiline)) (point- min))) (goto-char beg) (setq beg (muse-line-beginning-position))) (when font-loc k-multiline (setq end (or (text-property-any end (point-max) (quote font-lock-mu ltiline) nil) (point-max)))) (goto-char end) (setq end (muse-line-beginning-posi tion 2)) (font-lock-unfontify-region beg end) (let ((len (float (- end beg))) (c ase-fold-search nil) markup-func) (goto-char beg) (while (and (< (point) end) (r e-search-forward muse-colors-regexp end t)) (if verbose (message "Highlighting b uffer...%d%%" (* (/ (float (- (point) beg)) len) 100))) (setq markup-func (aref muse-colors-vector (char-after (match-beginning 0)))) (when markup-func (funcall markup-func))) (run-hook-with-args (quote muse-colors-buffer-hook) beg end verb ose) (if verbose (message "Highlighting buffer...done"))))) # (unwind-protect ...) (unwind-protect (save-excursion (save-restriction (widen) (when (and font-lock -multiline (> beg (point-min)) (get-text-property (1- beg) (quote font-lock-mult iline))) (setq beg (or (previous-single-property-change beg (quote font-lock-mul tiline)) (point-min))) (goto-char beg) (setq beg (muse-line-beginning-position)) ) (when font-lock-multiline (setq end (or (text-property-any end (point-max) (qu ote font-lock-multiline) nil) (point-max)))) (goto-char end) (setq end (muse-lin e-beginning-position 2)) (font-lock-unfontify-region beg end) (let ((len (float (- end beg))) (case-fold-search nil) markup-func) (goto-char beg) (while (and (< (point) end) (re-search-forward muse-colors-regexp end t)) (if verbose (message "Highlighting buffer...%d%%" (* (/ (float (- (point) beg)) len) 100))) (setq ma rkup-func (aref muse-colors-vector (char-after (match-beginning 0)))) (when mark up-func (funcall markup-func))) (run-hook-with-args (quote muse-colors-buffer-ho ok) beg end verbose) (if verbose (message "Highlighting buffer...done"))))) (set -buffer-modified-p modified-p)) # bind (deactivate-mark muse-colors-fontifying-p modified-p inhibit-modificati on-hooks inhibit-point-motion-hooks inhibit-read-only buffer-undo-list) (let ((buffer-undo-list t) (inhibit-read-only t) (inhibit-point-motion-hooks t ) (inhibit-modification-hooks t) (modified-p (buffer-modified-p)) (muse-colors-f ontifying-p t) deactivate-mark) (unwind-protect (save-excursion (save-restrictio n (widen) (when (and font-lock-multiline (> beg (point-min)) (get-text-property (1- beg) (quote font-lock-multiline))) (setq beg (or (previous-single-property-c hange beg (quote font-lock-multiline)) (point-min))) (goto-char beg) (setq beg ( muse-line-beginning-position))) (when font-lock-multiline (setq end (or (text-pr operty-any end (point-max) (quote font-lock-multiline) nil) (point-max)))) (goto -char end) (setq end (muse-line-beginning-position 2)) (font-lock-unfontify-regi on beg end) (let ((len (float (- end beg))) (case-fold-search nil) markup-func) (goto-char beg) (while (and (< (point) end) (re-search-forward muse-colors-regex p end t)) (if verbose (message "Highlighting buffer...%d%%" (* (/ (float (- (poi nt) beg)) len) 100))) (setq markup-func (aref muse-colors-vector (char-after (ma tch-beginning 0)))) (when markup-func (funcall markup-func))) (run-hook-with-arg s (quote muse-colors-buffer-hook) beg end verbose) (if verbose (message "Highlig hting buffer...done"))))) (set-buffer-modified-p modified-p))) # bind (verbose end beg) muse-colors-region(1613 2874 nil) # bind (loudly end beg) font-lock-fontify-region(1613 2874) byte-code("..." [end next beg text-property-any lazy-lock t 0 nil font-lock-fo ntify-region lazy-lock-put-text-property] 6) # (condition-case ... . (((error quit) (message "Fontifying region...%s" data) ))) # bind (next) # (unwind-protect ...) # bind (match-data) # (unwind-protect ...) # (unwind-protect ...) # bind (end beg) lazy-lock-fontify-region(1 2869) # bind (ws we point modiff) # (unwind-protect ...) # bind (buffer we-are-screwed check-text-props window) lazy-lock-fontify-window(#) # bind (walk-windows-current walk-windows-start arg which-devices which-frames minibuf function) walk-windows(lazy-lock-fontify-window no-minibuf #) # (unwind-protect ...) # bind (ssf74902 tick frame) lazy-lock-maybe-fontify-frame(#) # bind (frame starting-frame) byte-code("..." [starting-frame frame selected-frame frame-visible-p frame-min ibuffer-only-p next-frame visible-nomini throw lazy-lock-frame-loop-done t lazy- lock-maybe-fontify-frame] 4) # (catch lazy-lock-frame-loop-done ...) lazy-lock-pre-idle-fontify-windows() # (unwind-protect ...) # (catch # ...) # (unwind-protect ...) # (unwind-protect ...) # bind (inhibit-quit) # (unwind-protect ...) # (unwind-protect ...) # bind (inhibit-quit) # (condition-case ... . error) # (catch top-level ...) ---- lispdesc_indirect_count_1(long 17751397, const memory_description * 0x00000000, const void * 0x011f3a50 glyph_block_dynarr_description_1) line 364 kkcc_marking(int 17759461) line 1148 + 19 bytes gc_incremental() line 1971 + 421 bytes Feval(long 87719752) line 3570 Fif(long 87719740) line 872 + 55 bytes Feval(long 87718816) line 3618 + 7 bytes FletX(long 17356682) line 1054 + 62 bytes Feval(long 87674976) line 3603 + 11 bytes 053a7a74()