From: Jack Lange <jarusl@cs.northwestern.edu>
Date: Tue, 3 Mar 2009 22:45:36 +0000 (-0600)
Subject: added xemacs initialization files
X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=commitdiff_plain;h=28b4bd98896e55ce9f148d6b2c2a768bf847f65f

added xemacs initialization files
---

diff --git a/misc/custom.el b/misc/custom.el
new file mode 100644
index 0000000..05d4948
--- /dev/null
+++ b/misc/custom.el
@@ -0,0 +1,12 @@
+(custom-set-variables
+ '(paren-mode (quote sexp) nil (paren))
+ '(column-number-mode t)
+ '(pending-delete-mode nil nil (pending-del))
+ '(line-number-mode t)
+ '(mouse-yank-at-point t)
+ '(font-lock-mode t nil (font-lock))
+)
+(custom-set-faces
+ '(cperl-nonoverridable-face ((((class color) (background light)) (:foreground "steelblue"))))
+ '(cperl-array-face ((((class color) (background light)) (:foreground "Blue" :background "black" :bold t))))
+ '(cperl-hash-face ((((class color) (background light)) (:foreground "Red" :background "black" :bold t :italic t)))))
diff --git a/misc/init.el b/misc/init.el
new file mode 100644
index 0000000..e98b37b
--- /dev/null
+++ b/misc/init.el
@@ -0,0 +1,68 @@
+;; .emacs
+
+;;; uncomment this line to disable loading of "default.el" at startup
+;; (setq inhibit-default-init t)
+
+(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
+
+;; turn on font-lock mode
+(when (fboundp 'global-font-lock-mode)
+  (global-font-lock-mode t))
+
+;; enable visual feedback on selections
+;(setq transient-mark-mode t)
+
+;; default to better frame titles
+;;(setq frame-title-format
+;;      (concat  "%b - emacs@" system-name))
+;; stop at the end of the file, not just add lines
+(setq next-line-add-newlines nil)
+
+
+(cond ((not running-xemacs)
+       (global-font-lock-mode t)
+))
+
+
+(when window-system
+  ;; enable wheelmouse support by default
+  (mwheel-install))
+
+(global-set-key "%" 'match-paren)
+
+      (defun match-paren (arg)
+        "Go to the matching parenthesis if on parenthesis otherwise insert %."
+        (interactive "p")
+        (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
+              ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
+              (t (self-insert-command (or arg 1)))))
+
+
+(c-set-offset 'case-label 4)
+(setq c-basic-offset 4)
+
+(custom-set-variables
+ '(paren-mode (quote sexp) nil (paren))
+ '(column-number-mode t)
+ '(line-number-mode t)
+ '(font-lock-mode t nil (font-lock))
+)
+(custom-set-faces)
+
+
+
+(set-face-background 'default   "Black")
+(set-face-foreground 'default   "green")
+;;(set-face-foreground 'highlight                    "LightSeaGreen")
+;;(set-face-background 'highlight                    "blue")
+
+(set-face-foreground 'font-lock-function-name-face      "White")
+(set-face-foreground 'font-lock-keyword-face    "Red")
+(set-face-background 'font-lock-keyword-face    "black")
+(set-face-foreground 'font-lock-string-face     "LightGoldenRod")
+(set-face-foreground 'font-lock-comment-face    "Grey")
+
+
+(set-face-background 'modeline  "CadetBlue")
+(set-face-foreground 'modeline  "black");
+