
;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (= emacs-major-version 19)
       (>= emacs-minor-version 12))
  (setq-default overwrite-mode nil)
  (setq-default teach-extended-commands-p t)
  (setq-default bar-cursor nil)
  (setq-default debug-on-error nil)
  (setq-default debug-on-quit nil)
  (setq-default get-frame-for-buffer-default-instance-limit nil)
  (setq-default complex-buffers-menu-p nil)
  (setq-default font-menu-ignore-scaled-fonts t)
  (setq-default font-menu-this-frame-only-p t)
  (setq-default buffers-menu-max-size nil)
  (setq-default case-fold-search t)
  (setq-default case-replace t)
  (setq-default zmacs-regions t)
  (setq-default truncate-lines nil)
  (setq-default mouse-yank-at-point nil)
  (set-default-toolbar-position 'top)
  (add-spec-list-to-specifier top-toolbar-height 'nil)
  (add-spec-list-to-specifier bottom-toolbar-height 'nil)
  (add-spec-list-to-specifier left-toolbar-width 'nil)
  (add-spec-list-to-specifier right-toolbar-width 'nil)
  (add-spec-list-to-specifier scrollbar-width 'nil)
  (add-spec-list-to-specifier scrollbar-height 'nil)
  (add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
  (require 'paren)
  (paren-set-mode 'blink-paren)
    (setq-default font-lock-auto-fontify t)
  (setq-default font-lock-use-fonts t)
  (setq-default font-lock-use-colors nil)
  (setq-default font-lock-use-maximal-decoration nil)
  (setq-default font-lock-mode-enable-list nil)
  (setq-default font-lock-mode-disable-list nil)
      (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
  (make-face 'message-header-contents)
  (add-spec-list-to-specifier (face-property 'message-header-contents 'font) '((global (nil . "-*-courier-medium-o-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'message-header-contents 'underline) '((global ((tty) . t))))
  (make-face 'message-headers)
  (add-spec-list-to-specifier (face-property 'message-headers 'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'message-headers 'highlight) '((global ((tty) . t))))
  (make-face 'bold)
  (add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty) . t))))
  (make-face 'italic)
  (add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil . "-*-courier-medium-o-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'italic 'underline) '((global ((tty) . t))))
  (make-face 'x-face)
  (add-spec-list-to-specifier (face-property 'x-face 'foreground) '((global (nil . "black"))))
  (add-spec-list-to-specifier (face-property 'x-face 'background) '((global (nil . "white"))))
  (add-spec-list-to-specifier (face-property 'x-face 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'x-face 'underline) '((global ((tty)))))
  (add-spec-list-to-specifier (face-property 'x-face 'highlight) '((global ((tty)))))
  (make-face 'highlight)
  (add-spec-list-to-specifier (face-property 'highlight 'background) '((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray1"))))
  (add-spec-list-to-specifier (face-property 'highlight 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"]))))
  (add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global ((tty) . t))))
  (make-face 'gnus-underline)
  (add-spec-list-to-specifier (face-property 'gnus-underline 'underline) '((global (nil . t))))
  (make-face 'bold-italic)
  (add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil . "-*-courier-bold-o-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global ((tty) . t))))
  (make-face 'modeline)
  (add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global (nil . "Black"))))
  (add-spec-list-to-specifier (face-property 'modeline 'background) '((global (nil . "Gray75"))))
  (add-spec-list-to-specifier (face-property 'modeline 'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing]))))
  (add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global ((tty) . t))))
  (make-face 'paren-mismatch)
  (add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline foreground]))))
  (add-spec-list-to-specifier (face-property 'paren-mismatch 'background) '((global ((grayscale x) . [modeline background]) ((mono x) . [modeline background]) ((color x) . "DeepPink"))))
  (add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse) '((global ((tty) . t))))
  (make-face 'zmacs-region)
  (add-spec-list-to-specifier (face-property 'zmacs-region 'background) '((global ((grayscale) . "gray3") ((color) . "gray"))))
  (add-spec-list-to-specifier (face-property 'zmacs-region 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]))))
  (add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global ((tty) . t))))
  (make-face 'left-margin)
  (make-face 'paren-match)
  (add-spec-list-to-specifier (face-property 'paren-match 'background) '((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray1"))))
  (add-spec-list-to-specifier (face-property 'paren-match 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"]))))
  (add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global ((tty) . t))))
  (make-face 'primary-selection)
  (add-spec-list-to-specifier (face-property 'primary-selection 'background) '((global ((grayscale) . "gray3") ((color) . "gray"))))
  (add-spec-list-to-specifier (face-property 'primary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"]))))
  (make-face 'paren-blink-off)
  (add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground) '((global (nil . "WhiteSmoke"))))
  (make-face 'isearch)
  (add-spec-list-to-specifier (face-property 'isearch 'background) '((global ((color) . "paleturquoise") ((color) . "green"))))
  (add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global ((tty) . t))))
  (make-face 'default)
  (add-spec-list-to-specifier (face-property 'default 'foreground) '((global (nil . "Black"))))
  (add-spec-list-to-specifier (face-property 'default 'background) '((global (nil . "WhiteSmoke"))))
  (add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
  (make-face 'secondary-selection)
  (add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray1") ((color) . "paleturquoise") ((color) . "green"))))
  (add-spec-list-to-specifier (face-property 'secondary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"]))))
  (make-face 'right-margin)
  (make-face 'message-highlighted-header-contents)
  (add-spec-list-to-specifier (face-property 'message-highlighted-header-contents 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'message-highlighted-header-contents 'underline) '((global ((tty)))))
  (add-spec-list-to-specifier (face-property 'message-highlighted-header-contents 'highlight) '((global ((tty)))))
  (make-face 'message-cited-text)
  (add-spec-list-to-specifier (face-property 'message-cited-text 'font) '((global (nil . "-*-courier-medium-o-*-*-*-120-*-*-*-*-iso8859-*"))))
  (add-spec-list-to-specifier (face-property 'message-cited-text 'underline) '((global ((tty) . t))))
  ))
;; ============================
;; End of Options Menu Settings


(defun myRollerUp ()
  (interactive)
  (scroll-up 1)
)

(defun myRollerDown ()
  (interactive)
  (scroll-down 1)
)

(defun jumpToMark  (arg )
  (interactive arg)
  (set-mark-command arg )
)


(global-set-key "\M-r" 'replace-regexp)
;(global-set-key "\M-C-a" 'apropos)
(global-set-key [f35] 'forward-page)

(global-set-key [f14] 'advertised-undo)

(global-set-key [f29] 'backward-page)
(global-set-key [(alt f1) ] 'apropos)
(global-set-key [(alt f2)] 'describe-key)
(global-set-key "\M-g" 'what-line)
(global-set-key "\M-G" 'goto-line)

(global-set-key [f10] 'enlarge-window)
(global-set-key [f9] 'shrink-window)
(global-set-key [f17] 'other-window)

;(global-set-key "\C-M-\"   'indent-region)


(set-time-zone-rule nil)
;(set-variable 'display-time-day-and-date 1 )
(set-variable 'gnus-default-nntp-server "news_host" )
;(display-time)



(put 'eval-expression 'disabled nil)
(global-set-key "\M-n" 'myRollerUp )
(global-set-key "\M-p" 'myRollerDown)
(global-set-key [(alt b)] 'insert-buffer)



; for c-indent
(setq myindent 4)
(set-variable 'c-indent-level 4)
(set-variable 'c-continued-brace-offset -4 )
(set-variable 'c-continued-statement-offset 4 )
(set-variable 'c-label-offset -2 )
(set-variable 'c-auto-newline t)

;(setq-default c-hanging-braces-alist nil)
;
;(setq-default c-offsets-alist  '((string . -1000)
;   (c . c-lineup-C-comments)
;   (defun-open . 0)
;   (defun-close . 0)
;   (defun-block-intro . 0)
;   (class-open . 0)
;   (class-close . 0)
;   (inline-open . +)
;   (inline-close . 0)
;   (ansi-funcdecl-cont . -)
;   (knr-argdecl-intro . 5)
;   (knr-argdecl . 0)
;   (topmost-intro . 0)
;   (topmost-intro-cont . 0)
;   (member-init-intro . +)
;   (member-init-cont . 0)
;   (inher-intro . +)
;   (inher-cont . c-lineup-multi-inher)
;   (block-open . 0)
;   (block-close . 0)
;   (brace-list-open . 0)
;   (brace-list-close . 0)
;   (brace-list-intro . +)
;   (brace-list-entry . 0)
;   (statement . 0)
;   (statement-cont . +)
;   (statement-block-intro . +)
;   (statement-case-intro . +)
;   (statement-case-open . +)
;   (substatement . +)
;   (substatement-open . 0)
;   (case-label . 0)
;   (access-label . -)
;   (label . 0)
;   (do-while-closure . 0)
;   (else-clause . 0)
;   (comment-intro . c-lineup-comment)
;   (arglist-intro . c-lineup-arglist-intro-after-paren)
;   (arglist-cont . 0)
;   (arglist-cont-nonempty . c-lineup-arglist)
;   (arglist-close . c-lineup-arglist)
;   (stream-op . c-lineup-streamop)
;   (inclass . +)
;   (cpp-macro . -1000)
;   (friend . 0)
;   (objc-method-intro . -1000)
;   (objc-method-args-cont . c-lineup-ObjC-method-args)
;   (objc-method-call-cont . c-lineup-ObjC-method-call)))
;
;   