Hi,
Environments:
win2k, cygwin, xemacs 21.5.11
Mandrake Linux, xemacs 21.5.9
Evaluating this snipplet from session.el dumps core:
(defun session-yank-string (string half-len-str callback active)
"Return menu item STRING with callback CALLBACK.
If ACTIVE is non-nil, the item is active. HALF-LEN-STR is the length of
the two parts of a abbreviated menu item name."
(let ((beg (or (and session-compact-yank-gap-regexp
(string-match "\\`[ \t\n]+" string)
(match-end 0))
0))
(end (or (and session-compact-yank-gap-regexp
(string-match "[ \t\n]+\\'" string))
(length string))))
(vector (if (> (- end beg) session-edit-menu-max-string)
(let ((gap (and session-compact-yank-gap-regexp
(string-match session-compact-yank-gap-regexp
string (- end half-len-str))
(match-end 0))))
(if (and gap (< gap (- end 3)))
(setq half-len-str (- (+ half-len-str half-len-str gap)
end))
(setq gap (- end half-len-str)))
(concat (session-subst-char-in-string
?\t ?\ (substring string beg (+ beg half-len-str)) t)
" ... "
(session-subst-char-in-string
?\t ?\ (substring string gap end) t)))
(session-subst-char-in-string ?\t ?\
(substring string beg end) t))
callback
active)))
--
Le