Lines Matching +defs:list +defs:entry
95 (defcustom cpp-edit-list nil
97 Each entry is a list with the following elements:
102 :type '(repeat (list (string :tag "Macro")
110 (defvar cpp-overlay-list nil)
112 (make-variable-buffer-local 'cpp-overlay-list)
117 (defconst cpp-face-type-list
124 (defconst cpp-writable-list
136 (defconst cpp-branch-list
142 (defcustom cpp-face-default-list nil
151 (defcustom cpp-face-light-name-list
159 (defcustom cpp-face-dark-name-list
167 (defcustom cpp-face-light-list nil
173 (defcustom cpp-face-dark-list nil
179 (defcustom cpp-face-mono-list
188 (defcustom cpp-face-none-list
195 (defvar cpp-face-all-list
196 (append cpp-face-light-list
197 cpp-face-dark-list
198 cpp-face-mono-list
199 cpp-face-none-list)
227 (if (null cpp-edit-list)
269 (let ((entry (list (not (nth 0 (car cpp-state-stack)))
273 (setq cpp-state-stack (cons entry cpp-state-stack))))
302 (setq cpp-state-stack (cons (list branch expr begin end) cpp-state-stack))
306 (if (assoc expr cpp-edit-list)
312 (let ((entry (assoc (nth 1 (car cpp-state-stack)) cpp-edit-list))
317 (if entry
318 (let ((face (nth (if branch 1 2) entry))
319 (read-only (eq (not branch) (nth 3 entry)))
323 (setq cpp-overlay-list (cons overlay cpp-overlay-list))
342 (while cpp-overlay-list
343 (delete-overlay (car cpp-overlay-list))
344 (setq cpp-overlay-list (cdr cpp-overlay-list))))
371 (setq cpp-overlay-list (cons overlay cpp-overlay-list))))
385 (setq cpp-overlay-list (cons overlay cpp-overlay-list))))
513 (cpp-make-button (car (rassq cpp-face-type cpp-face-type-list))
519 (cpp-make-button (car (rassq cpp-known-writable cpp-writable-list))
525 (cpp-make-button (car (rassq cpp-unknown-writable cpp-writable-list))
533 (entry (assoc symbol cpp-edit-list))
534 (true (nth 1 entry))
535 (false (nth 2 entry))
536 (write (if entry (nth 3 entry) 'both)))
539 (if (and entry ; Make default entries unknown.
543 (setq cpp-edit-list (delq entry cpp-edit-list)
544 entry nil))
556 (cpp-make-button (car (rassq write cpp-branch-list))
585 (pp (list 'setq 'cpp-known-face
586 (list 'quote cpp-known-face)) buffer)
587 (pp (list 'setq 'cpp-unknown-face
588 (list 'quote cpp-unknown-face)) buffer)
589 (pp (list 'setq 'cpp-face-type
590 (list 'quote cpp-face-type)) buffer)
591 (pp (list 'setq 'cpp-known-writable
592 (list 'quote cpp-known-writable)) buffer)
593 (pp (list 'setq 'cpp-unknown-writable
594 (list 'quote cpp-unknown-writable)) buffer)
595 (pp (list 'setq 'cpp-edit-list
596 (list 'quote cpp-edit-list)) buffer)
648 (list symbol
650 (nth 1 (assoc symbol cpp-edit-list))))))
651 (setcar (nthcdr 1 (cpp-edit-list-entry-get-or-create symbol)) face)
658 (list symbol
660 (nth 2 (assoc symbol cpp-edit-list))))))
661 (setcar (nthcdr 2 (cpp-edit-list-entry-get-or-create symbol)) face)
667 (interactive (list (cpp-choose-symbol) (cpp-choose-branch)))
668 (setcar (nthcdr 3 (cpp-edit-list-entry-get-or-create symbol)) branch)
671 (defun cpp-edit-list-entry-get-or-create (symbol)
672 ;; Return the entry for SYMBOL in `cpp-edit-list'.
674 (let ((entry (assoc symbol cpp-edit-list)))
675 (or entry
676 (setq entry (list symbol nil nil 'both nil)
677 cpp-edit-list (cons entry cpp-edit-list)))
678 entry))
692 (list "Branch" (cons "Branch" cpp-branch-list)))
693 (cdr (assoc (completing-read "Branch: " cpp-branch-list nil t)
694 cpp-branch-list))))
697 ;; Choose a face from cpp-face-default-list.
702 (list prompt (cons prompt cpp-face-default-list)))
703 (let ((name (car (rassq default cpp-face-default-list))))
708 cpp-face-default-list nil t)
709 cpp-face-all-list))))
713 ;; Choose default face list for screen of TYPE.
714 ;; Type must be one of the types defined in `cpp-face-type-list'.
715 (interactive (list (if cpp-button-event
717 (list "Screen type"
719 cpp-face-type-list)))
721 cpp-face-type-list
723 cpp-face-type-list)))))
726 (if cpp-face-light-list
728 (setq cpp-face-light-list
729 (mapcar 'cpp-create-bg-face cpp-face-light-name-list))
730 (setq cpp-face-all-list
731 (append cpp-face-all-list cpp-face-light-list)))
733 (setq cpp-face-default-list
734 (append cpp-face-light-list cpp-face-none-list)))
736 (if cpp-face-dark-list
738 (setq cpp-face-dark-list
739 (mapcar 'cpp-create-bg-face cpp-face-dark-name-list))
740 (setq cpp-face-all-list
741 (append cpp-face-all-list cpp-face-dark-list)))
743 (setq cpp-face-default-list
744 (append cpp-face-dark-list cpp-face-none-list)))
747 (setq cpp-face-default-list
748 (append cpp-face-mono-list cpp-face-none-list)))
751 (setq cpp-face-default-list cpp-face-none-list))))
761 ;; FACE means that NAME is the name of a face in `cpp-face-all-list'.
778 (let ((check (cdr (assoc name cpp-face-all-list))))
784 (append (list 'face face)
787 (list 'cpp-callback callback)
788 (if data (list 'cpp-data data))))))
806 ;; Create entry for face with background COLOR.
813 ;; Return the name of FACE from `cpp-face-all-list'.
814 (let ((entry (rassq (if face face 'default) cpp-face-all-list)))
815 (if entry
816 (car entry)