minibufferp

In an attempt to claim success using recent CEDET and XEmacs, I figured that we are missing the function #'minibufferp from FSF Emacs. ,---- | minibufferp is a built-in function in `C source code'. | (minibufferp &optional buffer) | | Return t if buffer is a minibuffer. | No argument or nil as argument means use current buffer as buffer. | buffer can be a buffer or a buffer name. `---- A cheap imitation would be this: (defun minibufferp (&optional buf) "Return t if buffer is a minibuffer. No argument or nil as argument means use current buffer as buffer. buffer can be a buffer or a buffer name." (if (string-match "^ \\*Minibuf-[0-9]+\\*$" (if (stringp buf) buf (buffer-name buf))) t)) On the web I found this, which I am not sure is fully compatible to FSF's version, since I believe it wouldn't work with multiple minibuffers. (eq (window-buffer (minibuffer-window)) <buffer argument>) Would any implementation best placed in fsf-compat or do we have any plans to officially support anything like this? Regards Marcus _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta