# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827884874 0
# Node ID f05c21f41b134852e6182c8aabfa2fd23d961c56
# Parent  f8a7a08fb9dd1d573481a21d3dbefc997685553d
(custom:asis): Renamed from custom-asis.

diff -r f8a7a08fb9dd -r f05c21f41b13 lisp/=custom.el
--- a/lisp/=custom.el	Tue Mar 26 23:57:49 1996 +0000
+++ b/lisp/=custom.el	Wed Mar 27 00:01:14 1996 +0000
@@ -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 @@
 		    (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 @@
 			(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 @@
 (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)