(customize-face): Default to face at point.

(hook): Use functionp, not fboundp.
(custom-hook-convert-widget): Allow symbols as well as (defined)
functions.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index d69e051e8ced3e816f87788fb3442690b9b0af4d..fa68f53a06fc8ca91bd9527b89c4d94462cd97b3 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1446,7 +1446,8 @@ item in another window.\n\n"))
 
 (defun custom-browse-insert-prefix (prefix)
   "Insert PREFIX.  On XEmacs convert it to line graphics."
-  ;; Fixme: do graphics.
+  ;; Fixme: do graphics.  Better: use box-drawing characters from
+  ;; Unicode or jisx.
   (if nil ; (string-match "XEmacs" emacs-version)
       (progn
        (insert "*")