diff options
-rw-r--r-- | coq/coq-db.el | 4 | ||||
-rw-r--r-- | lib/holes.el | 43 |
2 files changed, 18 insertions, 29 deletions
diff --git a/coq/coq-db.el b/coq/coq-db.el index 627ec241..4a62c30f 100644 --- a/coq/coq-db.el +++ b/coq/coq-db.el @@ -220,8 +220,8 @@ See `coq-syntax-db' for DB structure." ;;A new face for tactics which fail when they don't kill the current goal (defface coq-solve-tactics-face (proof-face-specs - (:foreground "red" t) ; pour les fonds clairs - (:foreground "red" t) ; pour les fond foncés + (:foreground "red") ; pour les fonds clairs + (:foreground "red") ; pour les fond foncés ()) ; pour le noir et blanc "Face for names of closing tactics in proof scripts." :group 'proof-faces) diff --git a/lib/holes.el b/lib/holes.el index 65b1cc18..3f52f057 100644 --- a/lib/holes.el +++ b/lib/holes.el @@ -164,61 +164,50 @@ which should be removed when making the text into a hole.") ;; ) (defface active-hole-face - '((((class grayscale) (background light)) (:background "dimgrey")) - (((class grayscale) (background dark)) (:background "LightGray")) + '((((class grayscale) (background light)) :background "dimgrey") + (((class grayscale) (background dark)) :background "LightGray") (((class color) (background dark)) - (:background "darkred") (:foreground "white")) + :background "darkred" :foreground "white") (((class color) (background light)) - (:background "paleVioletRed" (:foreground "black"))) - ;;??(t (:background t)) - ) - "Font Lock face used to highlight the active hole." - ) + :background "paleVioletRed" :foreground "black")) + "Font Lock face used to highlight the active hole.") (defface inactive-hole-face - '((((class grayscale) (background light)) (:background "lightgrey")) - (((class grayscale) (background dark)) (:background "Grey")) + '((((class grayscale) (background light)) :background "lightgrey") + (((class grayscale) (background dark)) :background "Grey") (((class color) (background dark)) - (:background "mediumblue") (:foreground "white")) + :background "mediumblue" :foreground "white") (((class color) (background light)) - (:background "lightsteelblue" (:foreground "black"))) - ;;??(t (:background t)) - ) - "Font Lock face used to highlight the active hole." - ) + :background "lightsteelblue" :foreground "black")) + "Font Lock face used to highlight the active hole.") ;;; end customizable - + (defun holes-region-beginning-or-nil () "Internal." - (and mark-active (region-beginning)) - ) + (and mark-active (region-beginning))) (defun holes-region-end-or-nil () "Internal." - (and mark-active (region-end)) - ) + (and mark-active (region-end))) (defun holes-copy-active-region () "Internal." (assert mark-active nil "the region is not active now.") (copy-region-as-kill (region-beginning) (region-end)) - (car kill-ring) - ) + (car kill-ring)) (defun holes-is-hole-p (SPAN) ;; checkdoc-params: (SPAN) "Internal." - (span-property SPAN 'hole) - ) + (span-property SPAN 'hole)) (defun holes-hole-start-position (HOLE) ;; checkdoc-params: (HOLE) "Internal." (assert (holes-is-hole-p HOLE) t "holes-hole-start-position: %s is not a hole") - (span-start HOLE) - ) + (span-start HOLE)) (defun holes-hole-end-position (HOLE) ;; checkdoc-params: (HOLE) |