diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-23 14:38:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-23 14:38:37 +0000 |
commit | 46be15a43d496e035d719b592216062f1e44aceb (patch) | |
tree | 8c435ad858b34539c5116e8f6f6185c7e2df78c9 /lisp/custom.el | |
parent | fcb51016d24922251acfbce354499b32374f9f91 (diff) | |
download | emacs-46be15a43d496e035d719b592216062f1e44aceb.tar.gz |
(custom-type-properties): Use custom-asis instead of as-is.
(custom-asis): Set it to itself.
Diffstat (limited to 'lisp/custom.el')
-rw-r--r-- | lisp/custom.el | 11 |
1 files changed, 7 insertions, 4 deletions
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))) |