session.el (session-yank-string): fails to evaluate in XEmacs beta
I just stumbled over the function session-yank-string in session.el°,
which XEmacs 21.4¹ evals fine, and so does GNU Emacs 24, while XEmacs
21.5 beta³ fails with "Invalid read syntax: #<buffer
"session.el">":
(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)))
If I remove the linefeed in the fourth-last line (so it does not end
with "...string ?\t ?\") XEmacs 21.5 beta evals the expression fine.
I wonder if this is this a bug in the elisp code or in XEmacs 21.5 beta?
Best regards,
Adam
° From the emacs-goodies-el package in Debian unstable.
¹ XEmacs 21.4 (patch 22) "Instant Classic" [Lucid] (x86_64-linux-gnu,
Mule) of Tue Jul 27 2010 on coredump
² GNU Emacs 24.0.50.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.3) of
2011-03-23 on cigue, modified by Debian
³ XEmacs 21.5 (beta29) "garbanzo" 3889ef128488+ [Lucid]
(x86_64-pc-linux, Mule) of Sun Mar 27 2011 on topper
--
"Ge mig en vinterdrog, ge mig allt du har Adam Sjøgren
Kom nu jag är kroniskt låg, bara mörkret hörs" asjo(a)koldfront.dk
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta