GNU bug report logs - #8266
:complete-function in define-widget does not work as it used to

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 8266 in the body.
You can then email your comments to 8266 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Lennart Borgman <lennart.borgman <at> gmail.com>
To: Emacs Bugs <bug-gnu-emacs <at> gnu.org>
Subject: :complete-function in define-widget does not work as it used to
Date: Thu, 17 Mar 2011 00:39:06 +0100

I have used constructs like this many times, but now the
:complete-function does not work any more. It gives me "idx" (which I
expect) but insert it in the wrong place.

To show it evaluate the code below and do "M-x customize-option RET
idxsearch-engine RET" and try to complete the choice.


(defvar idxsearch-engines
  '((idxdocidxer-search "DocIndexer")
    (idxgds-search "Google Desktop Search")
    (idxwds-search "Windows Desktop Search"))
  "Search engines.")

(defun idxsearch-funp (fun)
  (assoc fun idxsearch-engines))

(define-widget 'idxsearch-function 'function
  "A index search function known by `idxsearch."
  :complete-function (lambda ()
                       (interactive)
                       (lisp-complete-symbol 'idxsearch-funp))
  :prompt-match 'idxsearch-funp
  :prompt-history 'widget-function-prompt-value-history
  :match-alternatives '(idxsearch-funp)
  :validate (lambda (widget)
              (unless (idxsearch-funp (widget-value widget))
                (widget-put widget :error (format "Unknown index
search function: %S"
                                                  (widget-value widget)))
                widget))
  :value 'fundamental-mode
  :tag "Index search specific function")

(defcustom idxsearch-engine (cond
                             ((idxgds-query-url-p) 'idxgds-search)
                             (t (if (eq system-type 'windows-nt)
                                    'idxwds-search
                                  'idxdocidxer-search)))
  "Desktop search engine for `idxsearch' to use."
  :type 'idxsearch-function
  :group 'idxsearch)

Message #8 received at 8266 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: Lennart Borgman <lennart.borgman <at> gmail.com>
Cc: 8266 <at> debbugs.gnu.org
Subject: Re: bug#8266: :complete-function in define-widget does not work as it
	used to
Date: Wed, 22 Feb 2012 16:46:56 -0500

Lennart Borgman wrote:

> I have used constructs like this many times, but now the
> :complete-function does not work any more. It gives me "idx" (which I
> expect) but insert it in the wrong place.

I don't see anything like this in the current trunk on GNU/Linux.

I added

(defalias 'idxgds-query-url-p 'ignore)

because the example is incomplete.

I used entered "idx" in the customize and field and used M-x
widget-complete.



> To show it evaluate the code below and do "M-x customize-option RET
> idxsearch-engine RET" and try to complete the choice.
>
>
> (defvar idxsearch-engines
>   '((idxdocidxer-search "DocIndexer")
>     (idxgds-search "Google Desktop Search")
>     (idxwds-search "Windows Desktop Search"))
>   "Search engines.")
>
> (defun idxsearch-funp (fun)
>   (assoc fun idxsearch-engines))
>
> (define-widget 'idxsearch-function 'function
>   "A index search function known by `idxsearch."
>   :complete-function (lambda ()
>                        (interactive)
>                        (lisp-complete-symbol 'idxsearch-funp))
>   :prompt-match 'idxsearch-funp
>   :prompt-history 'widget-function-prompt-value-history
>   :match-alternatives '(idxsearch-funp)
>   :validate (lambda (widget)
>               (unless (idxsearch-funp (widget-value widget))
>                 (widget-put widget :error (format "Unknown index
> search function: %S"
>                                                   (widget-value widget)))
>                 widget))
>   :value 'fundamental-mode
>   :tag "Index search specific function")
>
> (defcustom idxsearch-engine (cond
>                              ((idxgds-query-url-p) 'idxgds-search)
>                              (t (if (eq system-type 'windows-nt)
>                                     'idxwds-search
>                                   'idxdocidxer-search)))
>   "Desktop search engine for `idxsearch' to use."
>   :type 'idxsearch-function
>   :group 'idxsearch)

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.