Re: Read-buffer lossage?
eric dahlman <dahlman(a)cs.colostate.edu> writes:
The behavior of (read-buffer "Buffer: "
"*common-lisp*") has changed
and is breaking Franz's ACL interface. Some how the default name is
getting passed buffer-name which then chokes on the type. A sample
backtrace is:
Sorry, I'm the one to be blamed. This patch should fix the
bug.
1999-12-17 Yoshiki Hayashi <t90553(a)mail.ecc.u-tokyo.ac.jp>
* minibuf.el (read-buffer): Check default is buffer object.
Index: minibuf.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/minibuf.el,v
retrieving revision 1.14.2.10
diff -u -r1.14.2.10 minibuf.el
--- minibuf.el 1999/12/04 19:07:57 1.14.2.10
+++ minibuf.el 1999/12/17 06:00:13
＠＠ -1445,7 +1445,9 ＠＠
(while (progn
(setq result (completing-read prompt alist nil require-match
nil 'buffer-history
- (if default (buffer-name default))))
+ (if (bufferp default)
+ (buffer-name default)
+ default)))
(cond ((not (equal result ""))
nil)
((not require-match)
--
Yoshiki Hayashi