customize-face default value

[Andreas Röhler]

With M-x `customize-face', diff below delivers face at
point per default for customization.

One strange thing remains: to accept default, user
can't use num-pads "Enter"-key, keyboard-return must be
pressed.

Does this indicate a bug?

Thanks


Andreas Röhler

diff -u MY-PATH/xemacs/20080203/xemacs-21.5/lisp/cus-edit.el 
MY-PATH/cus-edit.el
--- MY-PATH/xemacs/20080203/xemacs-21.5/lisp/cus-edit.el	2008-02-03 
17:44:41.000000000 +0100
+++ MY-PATH/cus-edit.el	2008-02-03 17:44:41.000000000 +0100
@@ -874,8 +874,8 @@
 (defun customize-face (&optional symbol)
   "Customize SYMBOL, which should be a face name or nil.
 If SYMBOL is nil, customize all faces."
-  (interactive (list (completing-read "Customize face: (default all) "
-				      obarray 'find-face)))
+  (interactive (list (completing-read (concat "Customize face: ")
+				      obarray 'find-face nil (if (get-char-property (point) 'face) 
(format "%s" (get-char-property (point) 'face) nil))))) 
   (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
       (custom-buffer-create (custom-sort-items
 			     (mapcar (lambda (symbol)



;;;;;;