Changeset c7a817 in git for emacs

Timestamp:

Oct 22, 1999, 4:03:56 PM (25 years ago)

Author:

Tim Wichmann <wichmann@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

4d0e521e40a994c941d5b933887d5e708a7149f9

Parents:

ce3f53e5e9c4815830dde0ecd7da7be3f7505eb2

Message:

+ Added some more defaults (cursor-key model, sections, ...)


git-svn-id: file:///usr/local/Singular/svn/trunk@3770 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.5 1999-10-22 11:43:57 obachman Exp $
+;;; $Id: .emacs-singular,v 1.6 1999-10-22 14:03:56 wichmann Exp $
 
 ;;;
@@ -81 +81 @@
 
 ;; other, "non-customizable" settings
+(add-hook 'font-lock-mode-hook 'lazy-lock-mode)
+(setq font-lock-support-mode 'lazy-lock-mode)
+
 (add-hook 'singular-interactive-mode-hook
           (function (lambda () (font-lock-mode 1))))
+
+;; turn on c++-mode for files ending in ".sing"
+(setq auto-mode-alist (cons '("\\.sing\\'" . c++-mode) auto-mode-alist))
 
 ;; this is a work-around for early version of Font Lock mode
@@ -103 +109 @@
  '(show-paren-mode t nil (paren))
  '(singular-help-same-window t)
- '(transient-mark-mode t))
+ '(singular-cursor-key-model (quote terminal))
+ '(transient-mark-mode t)
+ '(singular-section-face-alist (quote ((input . singular-section-input-face) (output)))))
 (custom-set-faces
- '(font-lock-comment-face ((t (:bold nil :foreground "Grey50"))) t)
+ '(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)
@@ -125 +135 @@
 ;; add global menus for Singular, Emacs version
 (unless (fboundp 'add-submenu)
-  (setq singular-start-map (make-sparse-keymap "Singular"))
-  (define-key singular-start-map [singular-other]
+  (setq singular-start-map (make-sparse-keymap))
+  (define-key singular-start-map [menu-bar singular]
+    (cons "Singular" (make-sparse-keymap "Singular")))
+  (define-key singular-start-map [menu-bar singular restart]
     '("Start..." . singular-other))
-  (define-key singular-start-map [singular-default]
+  (define-key singular-start-map [menu-bar singular start-default]
     '("Start default" . singular))
-  (setq menu-bar-final-items (append '(singular) menu-bar-final-items))
-  (define-key global-map [menu-bar singular] 
-    (cons "Singular" singular-start-map)))
+  (setq menu-bar-final-item (append '(singular) menu-bar-final-items))
+  (use-local-map singular-start-map))
 
 ;; add global menus for Singular, XEmacs version