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 | 271befa2b9beb21e7057d22e7ec477a5b9a53ee5 (patch) | |
| tree | 3f4b225378feb27e856e6275cba5392f48bfa257 /lisp | |
| parent | bbb9bcbc60c6dd723c4c0cb7c41b08932c44f190 (diff) | |
| download | emacs-271befa2b9beb21e7057d22e7ec477a5b9a53ee5.tar.gz | |
(custom-type-properties): Use custom-asis instead of as-is.
(custom-asis): Set it to itself.
Diffstat (limited to 'lisp')
| -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))) |