mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(custom-asis): Set it to itself.
This commit is contained in:
Richard M. Stallman 1996-03-23 14:38:37 +00:00
parent fcb51016d2
commit 46be15a43d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/custom.el
View File

@ -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)))