RE: No such program, egrep error in Customize

[Drew Adams]

> emacs -Q
>
> Define a defcustom with a color value.
> M-x customize-variable for the option.
> Edit the color value field a bit and use `M-TAB' to try to complete.
>
> I get these messages (error):
>
>  Starting "egrep" process...
>  apply: Searching for program: no such file or directory, egrep
>
>
> In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
>  of 2007-06-02 on RELEASE
> Windowing system distributor `Microsoft Corp.', version 5.1.2600
> configured using `configure --with-gcc (3.4) --cflags
> -Ic:/gnuwin32/include'

The backtrace is below. `widget-complete' (`M-TAB') is calling
`ispell-complete-word' instead of `widget-color-complete', which is the
:complete value of the `color' widget.

When I do debug-on-entry widget-complete, I see that it does this:

Debugger entered--returning value: ispell-complete-word
  widget-get((string :format " %v" :value "lightgoldenrod2" :parent
(custom-variable :documentation-shown t :custom-state modified :tag "Icicle
Region Background" :value icicle-region-background :custom-form edit
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children ...
:from #<marker (moves after insertion) at 565 in *Customize Option: Icicle
Region Background*> :to #<marker at 642 in *Customize Option: Icicle Region
Background*> :buttons nil :value nil) :buttons (... ... ... ... ...)
:comment-widget (custom-comment :parent #1 :value "" :indent 0 :from
#<marker at 1084 in *Customize Option: Icicle Region Background*> :to
#<marker at 1084 in *Customize Option: Icicle Region Background*>) :children
(#0 ...) :from #<marker (moves after insertion) at 524 in *Customize Option:
Icicle Region Background*> :to #<marker at 1126 in *Customize Option: Icicle
Region Background*>) :indent 0 :field-overlay #<overlay from 561 to 564 in
*Customize Option: Icicle Region Background*> :from #<marker (moves after
insertion) at 560 in *Customize Option: Icicle Region Background*> :to
#<marker at 565 in *Customize Option: Icicle Region Background*>)
:complete-function)
* (or (widget-get widget :complete-function) widget-complete-field)
* (call-interactively (or (widget-get widget :complete-function)
widget-complete-field))
* widget-default-complete((string :format " %v" :value "lightgoldenrod2"
:parent (custom-variable :documentation-shown t :custom-state modified :tag
"Icicle Region Background" :value icicle-region-background :custom-form edit
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children ...
:from #<marker (moves after insertion) at 565 in *Customize Option: Icicle
Region Background*> :to #<marker at 642 in *Customize Option: Icicle Region
Background*> :buttons nil :value nil) :buttons (... ... ... ... ...)
:comment-widget (custom-comment :parent #1 :value "" :indent 0 :from
#<marker at 1084 in *Customize Option: Icicle Region Background*> :to
#<marker at 1084 in *Customize Option: Icicle Region Background*>) :children
(#0 ...) :from #<marker (moves after insertion) at 524 in *Customize Option:
Icicle Region Background*> :to #<marker at 1126 in *Customize Option: Icicle
Region Background*>) :indent 0 :field-overlay #<overlay from 561 to 564 in
*Customize Option: Icicle Region Background*> :from #<marker (moves after
insertion) at 560 in *Customize Option: Icicle Region Background*> :to
#<marker at 565 in *Customize Option: Icicle Region Background*>))
* widget-apply((string :format " %v" :value "lightgoldenrod2" :parent
(custom-variable :documentation-shown t :custom-state modified :tag "Icicle
Region Background" :value icicle-region-background :custom-form edit
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children ...
:from #<marker (moves after insertion) at 565 in *Customize Option: Icicle
Region Background*> :to #<marker at 642 in *Customize Option: Icicle Region
Background*> :buttons nil :value nil) :buttons (... ... ... ... ...)
:comment-widget (custom-comment :parent #1 :value "" :indent 0 :from
#<marker at 1084 in *Customize Option: Icicle Region Background*> :to
#<marker at 1084 in *Customize Option: Icicle Region Background*>) :children
(#0 ...) :from #<marker (moves after insertion) at 524 in *Customize Option:
Icicle Region Background*> :to #<marker at 1126 in *Customize Option: Icicle
Region Background*>) :indent 0 :field-overlay #<overlay from 561 to 564 in
*Customize Option: Icicle Region Background*> :from #<marker (moves after
insertion) at 560 in *Customize Option: Icicle Region Background*> :to
#<marker at 565 in *Customize Option: Icicle Region Background*>) :complete)
* (save-restriction (widget-narrow-to-field) (widget-apply field :complete))
* (if field (save-restriction (widget-narrow-to-field) (widget-apply field
:complete)) (error "Not in an editable field"))
* (let ((field ...)) (if field (save-restriction ... ...) (error "Not in an
editable field")))
* widget-complete()
  call-interactively(widget-complete)

IOW, the :complete value of the `color' widget, `widget-color-complete',
never gets used. Both parts of the `or' in `widget-default-complete' are
inappropriate here:

 (or (widget-get widget :complete-function) widget-complete-field)

The first part returns `ispell-complete-word'. The second part returns
`complete-symbol'. My guess would be that (widget-apply... :complete) is not
picking up the :complete value from widget `color'.


---8<---- error backtrace ----

  call-process("egrep" nil t nil "-i" "^blu.*$" "/usr/dict/words")
  apply(call-process ("egrep" nil t nil "-i" "^blu.*$" "/usr/dict/words"))
  ispell-call-process("egrep" nil t nil "-i" "^blu.*$" "/usr/dict/words")
  apply(ispell-call-process "egrep" nil t nil ("-i" "^blu.*$"
"/usr/dict/words"))
  byte-code(...)
  lookup-words("blu*" "/usr/dict/words")
  ispell-complete-word(nil)
  call-interactively(ispell-complete-word)
  widget-default-complete((string :format " %v" :value "lightgoldenrod2"
:parent (custom-variable :documentation-shown t :custom-state modified :tag
"Icicle Region Background" :value icicle-region-background :custom-form edit
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children ...
:from #<marker (moves after insertion) at 565 in *Customize Option: Icicle
Region Background*> :to #<marker at 642 in *Customize Option: Icicle Region
Background*> :buttons nil :value nil) :buttons (... ... ... ... ...)
:comment-widget (custom-comment :parent #1 :value "" :indent 0 :from
#<marker at 1084 in *Customize Option: Icicle Region Background*> :to
#<marker at 1084 in *Customize Option: Icicle Region Background*>) :children
(#0 ...) :from #<marker (moves after insertion) at 524 in *Customize Option:
Icicle Region Background*> :to #<marker at 1126 in *Customize Option: Icicle
Region Background*>) :indent 0 :field-overlay #<overlay from 561 to 564 in
*Customize Option: Icicle Region Background*> :from #<marker (moves after
insertion) at 560 in *Customize Option: Icicle Region Background*> :to
#<marker at 565 in *Customize Option: Icicle Region Background*>))
  widget-apply((string :format " %v" :value "lightgoldenrod2" :parent
(custom-variable :documentation-shown t :custom-state modified :tag "Icicle
Region Background" :value icicle-region-background :custom-form edit
:custom-magic (custom-magic :args ... :parent #1 :indent 0 :children ...
:from #<marker (moves after insertion) at 565 in *Customize Option: Icicle
Region Background*> :to #<marker at 642 in *Customize Option: Icicle Region
Background*> :buttons nil :value nil) :buttons (... ... ... ... ...)
:comment-widget (custom-comment :parent #1 :value "" :indent 0 :from
#<marker at 1084 in *Customize Option: Icicle Region Background*> :to
#<marker at 1084 in *Customize Option: Icicle Region Background*>) :children
(#0 ...) :from #<marker (moves after insertion) at 524 in *Customize Option:
Icicle Region Background*> :to #<marker at 1126 in *Customize Option: Icicle
Region Background*>) :indent 0 :field-overlay #<overlay from 561 to 564 in
*Customize Option: Icicle Region Background*> :from #<marker (moves after
insertion) at 560 in *Customize Option: Icicle Region Background*> :to
#<marker at 565 in *Customize Option: Icicle Region Background*>) :complete)
  widget-complete()
  call-interactively(widget-complete)