From d0cb3f601055fcd341767831043d707ca8c8215f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Mar 1996 00:01:14 +0000 Subject: [PATCH] (custom:asis): Renamed from custom-asis. --- lisp/custom.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index 78b2323dd87..e9657538ecf 100644 --- 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 ;; 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) -- 2.39.2