Paul Kinnucan <[EMAIL PROTECTED]> writes:
> Jon Schewe writes:
> > Can you please not override efc-query-options-function with a function
> > that creates a dialog box even if the user has asked XEmacs not to
> > display them under any circumstances? Please rewrite this to pay
> > attention to the use-dialog-box variable.
> >
> > `use-dialog-box' is a variable declared in Lisp.
> > -- loaded from "/usr/share/xemacs/21.4.15/lisp/minibuf.elc"
> >
> > Value: nil
> >
> > Documentation:
> > *Variable controlling usage of the dialog box.
> > If nil, the dialog box will never be used, even in response to mouse
> > events.
I've been using the following.
Index: efc.el
===================================================================
RCS file: /p/sss/cvs/jde/lisp/efc.el,v
retrieving revision 1.1.1.1
diff -c -c -r1.1.1.1 efc.el
*** efc.el 31 Oct 2004 23:58:41 -0000 1.1.1.1
--- efc.el 4 Nov 2004 20:14:14 -0000
***************
*** 40,45 ****
--- 40,64 ----
"If non-nil the function to use for interactively querying options.
If nil then the default efc custom-based dialogs will be used.")
+ ;;; Minibuffer interface
+ (defvar efc-query-options-history nil
+ "History of efc option values selected through the minibuffer")
+
+ (defun efc-query-options-with-minibuffer (&optional disable)
+ "Choose whether to enter efc options through a dialog box or the minibuffer.
+ By default this function sets `efc-query-options-function' to use read
+ input from the minibuffer. With a prefix argument, this function clears
+ `efc-query-option-function' to re-enable dialog boxes."
+ (interactive "P")
+ (setq efc-query-options-function
+ (if disable
+ nil
+ (lambda (options prompt title)
+ (completing-read prompt
+ (mapcar (lambda (x) (cons x t)) options)
+ nil t nil
+ 'efc-query-options-history)))))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;
;; Dialog Class
;;
and calling efc-query-options-with-minibuffer from .xemacs/init.el.
I did not submit this to the patches list because I don't think it is
the best solution for many efc-query-options clients.
I have an idea for speeding up jde-open-source and
jde-find-and-import. I'd like to see them read classes of the form
<simple-name>:<qualifier> from the minibuffer with standard emacs
completion.
Suppose you are trying to import the name C where p1.p2.p3.C and
p1.p4.p5.C are defined. jde-find-and-import should prompt with.
`Choose a class to import: C:' From there, one can type the first
letter of p1, <tab>, the first letter of p4, <tab>, <return>, and get
an import of p1.p4.p5.C. This is a lot faster than reaching for a
mouse, or any other option jde currently provides.
Jason
