Changeset 841181 in git

Timestamp:

Nov 1, 1999, 5:14:21 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

09d74fe32549b29b79a4914b54c31135c0ec128a

Parents:

9e64e2384885d3a295833c1b6b89b032a2521b96

Message:

* played around with default faces (more font-locking)


git-svn-id: file:///usr/local/Singular/svn/trunk@3803 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• emacs/.emacs-singular (modified) (4 diffs)

emacs/.emacs-singular

@@ -1 +1 @@
 ;;; Emacs edit mode for this file is  -*- Emacs-Lisp -*-
-;;; $Id: .emacs-singular,v 1.6 1999-10-22 14:03:56 wichmann Exp $
+;;; $Id: .emacs-singular,v 1.7 1999-11-01 16:14:21 obachman Exp $
 
 ;;;
@@ -89 +89 @@
 ;; turn on c++-mode for files ending in ".sing"
 (setq auto-mode-alist (cons '("\\.sing\\'" . c++-mode) auto-mode-alist))
+(setq auto-mode-alist (cons '("\\.lib\\'" .  c++-mode) auto-mode-alist))
+(add-hook 'c++-mode-hook
+          (function (lambda () (font-lock-mode 1))))
 
 ;; this is a work-around for early version of Font Lock mode
@@ -104 +107 @@
 ;; pre-customized settings
 (custom-set-variables
- '(font-lock-maximum-decoration nil t)
+ '(font-lock-maximum-decoration t t)
  '(next-line-add-newlines nil)
  '(paren-mode (quote paren) nil (paren))
@@ -112 +115 @@
  '(transient-mark-mode t)
  '(singular-section-face-alist (quote ((input . singular-section-input-face) (output)))))
+
 (custom-set-faces
+ '(show-paren-match-face ((((class color)) (:foreground "Red"))))
+ '(font-lock-string-face ((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue"))) t)
+ '(font-lock-variable-name-face ((t (:foreground "black"))) t)
+ '(paren-match ((t (:foreground "Red"))) t)
  '(singular-section-input-face ((t (:bold t))))
+ '(font-lock-keyword-face ((t (:bold t :foreground "violet"))) t)
  '(singular-section-output-face ((t (:bold nil))))
- '(font-lock-comment-face ((t (:bold nil :foreground "Grey30"))) t)
- '(font-lock-string-face ((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue"))) t)
- '(paren-match ((t (:foreground "Red"))) t)
- '(show-paren-match-face ((((class color)) (:foreground "Red")))))
+ '(font-lock-type-face ((t (:bold t :foreground "violet"))) t)
+ '(font-lock-comment-face ((t (:bold nil :foreground "Red"))) t)
+ '(font-lock-function-name-face ((t (:bold t :foreground "blue3"))) t))
+;; obachman: played around a little bit, found this better
+;;  '(singular-section-input-face ((t (:bold t))))
+;;  '(singular-section-output-face ((t (:bold nil))))
+;;  '(font-lock-comment-face ((t (:bold nil :foreground "Grey30"))) t)
+;;  '(font-lock-string-face ((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue"))) t)
+;;  '(paren-match ((t (:foreground "Red"))) t)
+;;  '(show-paren-match-face ((((class color)) (:foreground "Red")))))
 
 )