cgit.sxemacs.org Git - gnus/blob - lisp/custom-edit.el

   1 ;;; custom-edit.el --- Tools for customization Emacs.
   2 ;;
   3 ;; Copyright (C) 1996 Free Software Foundation, Inc.
   4 ;;
   5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
   6 ;; Keywords: help, faces
   7 ;; Version: 0.96
   8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
   9
  10 ;;; Commentary:
  11 ;;
  12 ;; See `custom.el'.
  13
  14 ;;; Code:
  15
  16 (require 'custom)
  17 (require 'widget-edit)
  18
  19 (define-widget-keywords :custom-show :custom-magic
  20   :custom-state :custom-level :custom-form
  21   :custom-apply :custom-set-default :custom-reset)
  22
  23 ;;; Utilities.
  24
  25 (defun custom-quote (sexp)
  26   "Quote SEXP iff it is not self quoting."
  27   (if (or (memq sexp '(t nil))
  28           (and (symbolp sexp)
  29                (eq (aref (symbol-name sexp) 0) ?:))