customize-face default value

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) ;;;;;; _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta