[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] externals/caml 39cfb2e 049/197: define only if needed
From: |
Stefan Monnier |
Subject: |
[nongnu] externals/caml 39cfb2e 049/197: define only if needed |
Date: |
Sat, 21 Nov 2020 01:19:36 -0500 (EST) |
branch: externals/caml
commit 39cfb2e7922532a625024dd36454127500eb1274
Author: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Commit: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
define only if needed
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4536
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
caml-font.el | 51 ++++++++++++++++++++++++++-------------------------
1 file changed, 26 insertions(+), 25 deletions(-)
diff --git a/caml-font.el b/caml-font.el
index 61968eb..aca7894 100644
--- a/caml-font.el
+++ b/caml-font.el
@@ -2,36 +2,37 @@
(cond
((x-display-color-p)
-;
-; (not (memq 'font-lock-type-face (face-list))))
- ; make the necessary faces
- (make-face 'Firebrick)
- (set-face-foreground 'Firebrick "Firebrick")
- (make-face 'RosyBrown)
- (set-face-foreground 'RosyBrown "RosyBrown")
- (make-face 'Purple)
- (set-face-foreground 'Purple "Purple")
- (make-face 'MidnightBlue)
- (set-face-foreground 'MidnightBlue "MidnightBlue")
- (make-face 'DarkGoldenRod)
- (set-face-foreground 'DarkGoldenRod "DarkGoldenRod")
- (make-face 'DarkOliveGreen)
- (set-face-foreground 'DarkOliveGreen "DarkOliveGreen4")
- (make-face 'CadetBlue)
- (set-face-foreground 'CadetBlue "CadetBlue")
+ (cond
+ ((not (memq 'font-lock-type-face (face-list)))
+ ; make the necessary faces
+ (make-face 'Firebrick)
+ (set-face-foreground 'Firebrick "Firebrick")
+ (make-face 'RosyBrown)
+ (set-face-foreground 'RosyBrown "RosyBrown")
+ (make-face 'Purple)
+ (set-face-foreground 'Purple "Purple")
+ (make-face 'MidnightBlue)
+ (set-face-foreground 'MidnightBlue "MidnightBlue")
+ (make-face 'DarkGoldenRod)
+ (set-face-foreground 'DarkGoldenRod "DarkGoldenRod")
+ (make-face 'DarkOliveGreen)
+ (set-face-foreground 'DarkOliveGreen "DarkOliveGreen4")
+ (make-face 'CadetBlue)
+ (set-face-foreground 'CadetBlue "CadetBlue")
+ ; assign them as standard faces
+ (setq font-lock-comment-face 'Firebrick)
+ (setq font-lock-string-face 'RosyBrown)
+ (setq font-lock-keyword-face 'Purple)
+ (setq font-lock-function-name-face 'MidnightBlue)
+ (setq font-lock-variable-name-face 'DarkGoldenRod)
+ (setq font-lock-type-face 'DarkOliveGreen)
+ (setq font-lock-reference-face 'CadetBlue)))
+ ; extra faces for documention
(make-face 'Stop)
(set-face-foreground 'Stop "White")
(set-face-background 'Stop "Red")
(make-face 'Doc)
(set-face-foreground 'Doc "Red")
- ; assign them as standard faces
- (setq font-lock-comment-face 'Firebrick)
- (setq font-lock-string-face 'RosyBrown)
- (setq font-lock-keyword-face 'Purple)
- (setq font-lock-function-name-face 'MidnightBlue)
- (setq font-lock-variable-name-face 'DarkGoldenRod)
- (setq font-lock-type-face 'DarkOliveGreen)
- (setq font-lock-reference-face 'CadetBlue)
(setq font-lock-stop-face 'Stop)
(setq font-lock-doccomment-face 'Doc)
))
- [nongnu] externals/caml 5c2d3d7 015/197: Enlever caml-emacs-twenty, pas necessaire, (continued)
- [nongnu] externals/caml 5c2d3d7 015/197: Enlever caml-emacs-twenty, pas necessaire, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 53fb026 016/197: MAJ avec ocaml-mode 2.01 de Jacques Garrigue, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 2694442 023/197: MAJ avec la derniere version de Jacques, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 9fd72d7 029/197: nouvelle syntaxe avec tilde, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 51403bf 028/197: MacOS: ajout macosunix; portage bigarray et systhreads; tabs, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 7b99dbc 030/197: update labels, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 479db1e 031/197: changes, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 0a919f4 034/197: patch par Didier le Botlan pour les commentaires, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 6af733d 036/197: passage aux labels stricts, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 2eeca2e 039/197: xemacs keybind (PR#631), Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 39cfb2e 049/197: define only if needed,
Stefan Monnier <=
- [nongnu] externals/caml 9d5668c 051/197: fix caml-help, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml d2f1cc7 052/197: better interaction with toplevel, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 495ee65 053/197: caml-find-phrase, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 9b77f6d 054/197: spurious newline, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 28d1a1d 033/197: indentation of else, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 1652c4e 035/197: detabisation, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml d75a12b 038/197: process ;; correctly, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml 2f6c6ce 042/197: Changement du mode inf-caml, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml ff4b9e8 043/197: gestion des commentaires de doc, Stefan Monnier, 2020/11/21
- [nongnu] externals/caml bf92fed 010/197: Creer EMACSDIR si non existant, Stefan Monnier, 2020/11/21