(set-cursor-color "orchid")
(set-background-color "snow2")
;;Set the printer command
;(set-variable 'tex-dvi-print-command "lp -dkam_e4
-o postscript -o double ")
;(set-variable 'lpr-command "lp")
;(set-variable 'lpr-add-options "-dkam_e4 -o
postscript -o double1")
;(set-variable 'exec-path (cons "/usr/atria/bin"
exec-path))
;; Displays the name of the file being edited
in the title bar.
(setq frame-title-format "%b")
;; Turn on global font-locking
(global-font-lock-mode t)
;; set options to be used with grep command used
in find-grep-dired
(set-variable 'find-grep-options "-i")
;; set options to be used with ls -l command
(if (string= (getenv "CPU") "HP-UX")
(set-variable 'find-ls-option "-exec ls -l {} \\;")
(set-variable 'find-ls-option (cons "-exec ls -l {} \\;" "-l")))
;;Automatically resize the minibuffer as needed:
(resize-minibuffer-mode 1)
(setq resize-minibuffer-mode t)
;;Turn on highlighting for search strings:
(setq search-highlight t)
;;Color setting for background of region selected
( set-face-background 'region "yellow")
( setq transient-mark-mode 't)
;; To mark selected region face green
( setq region-face 15 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Key definitions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key "\M-g " 'goto-line)
; to goto a specified line no.
(global-set-key "\C-xw" 'append-to-buffer)
; append to the buffer
(global-set-key "\C-xa" 'beginning-of-buffer) ;
goto the top of the file
(global-set-key "\C-xe" 'end-of-buffer)
; goto the end of the file
(global-set-key "\C-m" 'newline-and-indent)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; csnirkhe's elisps files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load "~/elisp/keybind.elc")
; required for custom key binding
(load "~/elisp/clearcase.elc")
; required for clearcase
;;(load "~/elisp/xemacs-setup.el")
; xemacs setting
(load "~/elisp/resent.elc")
; required for showing history of
; resently open files
(load "~/elisp/cwarn.elc")
; warning for if( a = b) condition in
; C mode
(load "~/elisp/c-mode.elc")
; C,C++ and java hook
;;(get-buffer-create "clearcase")
(put 'eval-expression 'disabled nil)
(custom-set-variables
'(font-lock-mode t nil (font-lock)))
(custom-set-faces
'(default ((t (:size "14pt"))) t))