Commit 46be15a4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-type-properties): Use custom-asis instead of as-is.

(custom-asis): Set it to itself.
parent fcb51016
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment