From 271befa2b9beb21e7057d22e7ec477a5b9a53ee5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Mar 1996 14:38:37 +0000 Subject: (custom-type-properties): Use custom-asis instead of as-is. (custom-asis): Set it to itself. --- lisp/=custom.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/=custom.el b/lisp/=custom.el index 7234cbeae5d..78b2323dd87 100644 --- a/lisp/=custom.el +++ b/lisp/=custom.el @@ -524,7 +524,7 @@ hierarchy the new entry should be added. CUSTOM is the entry to add." (default . nil)) ((type . const) (tag . "Def") - (default . as-is)))) + (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 . as-is) + (default . custom-asis) (type . triggle)) " " ((tag . "Italic") - (default . as-is) + (default . custom-asis) (type . triggle)) " " ((tag . "Underline") (hidden . t) - (default . as-is) + (default . custom-asis) (type . triggle))) (default . (custom-face-lookup "default" "default" "default" nil nil nil)) @@ -733,6 +733,9 @@ 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) +;; Bad, ugly, and horrible kludge. + (defun custom-property (custom property) "Extract from CUSTOM property PROPERTY." (let ((entry (assq property custom))) -- cgit v1.2.1