(custom:asis): Renamed from custom-asis.

diff --git a/lisp/custom.el b/lisp/custom.el
index 78b2323..e965753 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1,6 +1,6 @@
 ;;; custom.el --- User friendly customization support.
 
-;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
 ;; Keywords: help
@@ -524,7 +524,7 @@ hierarchy the new entry should be added.  CUSTOM is the entry to add."
                    (default . nil))
                   ((type . const)
                    (tag . "Def")
-                   (default . custom-asis))))
+                   (default . custom:asis))))
     (choice (type . default)
            ;; See `custom-match'.
            (query . custom-choice-query)
@@ -632,16 +632,16 @@ Select the properties you want this face to have.")
                        (type . string))
                       "\n"
                       ((tag . "Bold")
-                       (default . custom-asis)
+                       (default . custom:asis)
                        (type . triggle))
                       "              "
                       ((tag . "Italic")
-                       (default . custom-asis)
+                       (default . custom:asis)
                        (type . triggle))
                       "             "
                       ((tag . "Underline")
                        (hidden . t)
-                       (default . custom-asis)
+                       (default . custom:asis)
                        (type . triggle)))
                 (default . (custom-face-lookup "default" "default" "default"
                                                nil nil nil))
@@ -733,7 +733,7 @@ Entries in this list take precedence over `custom-type-properties'.")
 (defconst custom-invalid '__invalid__
   "Special value representing an invalid field.")
 
-(defconst custom-asis 'custom-asis)
+(defconst custom:asis 'custom:asis)
 ;; Bad, ugly, and horrible kludge.
 
 (defun custom-property (custom property)