(setq intangible 'intangible)
(setq intangible 'intangible-if-it-had-been-working))
+(defvar custom-modified-list nil)
+
;;; Faces:
;;
;; The following variables define the faces used in the customization
(setq alist (cons (cons (custom-tag-or-type current) current) alist)))
(let ((answer (if (listp last-input-event)
(x-popup-menu last-input-event
- (list tag (cons "" (reverse alist))))
+ (list tag (cons "" (reverse alist))))
(let ((choice (completing-read (concat tag " (default "
default "): ")
alist nil t)))