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:asis): Renamed from custom-asis.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-03-27 00:01:14 +00:00
parent 11e314fa73
commit d0cb3f6010
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/custom.el
View File

@ -1,6 +1,6 @@
;;; custom.el --- User friendly customization support.
;; Copyright (C) 1995 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
;; Keywords: help
@ -524,7 +524,7 @@ hierarchy the new entry should be added. CUSTOM is the entry to add."
(default . nil))
((type . const)
(tag . "Def")
(default . custom-asis))))
(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 . custom-asis)
(default . custom:asis)
(type . triggle))
" "
((tag . "Italic")
(default . custom-asis)
(default . custom:asis)
(type . triggle))
" "
((tag . "Underline")
(hidden . t)
(default . custom-asis)
(default . custom:asis)
(type . triggle)))
(default . (custom-face-lookup "default" "default" "default"
nil nil nil))
@ -733,7 +733,7 @@ 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)
(defconst custom:asis 'custom:asis)
;; Bad, ugly, and horrible kludge.
(defun custom-property (custom property)