(put 'upcase-region 'disabled nil)

(global-set-key "\C-xg" 'goto-line)
(global-set-key "\C-cl" 'what-line)
(fset 'unc
   "
	
	")
(fset 'com
   "
/* */	")
(setq c-label-offset 0)
(setq c-indent-level 2)
(setq default-tab-width 2)
(setq c-brace-offset -2)
(require 'cc-mode)
(defconst my-c-style
  '(
    (c-set-style "Ellemtel")
    (c-offsets-alist . ((arglist-intro . +)
			(substatement-open . 0)))
    )
  "My c++ style")

(defun my-c-mode-common-hook ()
  (c-add-style "Personal" my-c-style t)
  (setq c-basic-offset 2)
  )

(cond ((string-match "XEmacs\\|Lucid" emacs-version)
       ;;
       ;; Code for any version of XEmacs/Lucid Emacs goes here
       ;;

       (sc-mode 'CVS)
       (cond ((string-match "XEmacs" emacs-version)
	      (require 'hyperbole)
	      (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
	      ))
       ))

(fset 'b
   "
<b></b>")
(fset 'y
   "<br><img src=\"y.gif\"> ")
(fset 'r
   "<br><img src=\"r.gif\"> ")
(fset 'h1
   "
<h1></h1>
")
(fset 'h3
   "
<h3></h3>
")
(fset 'li
   "<li>")
(global-set-key "\C-h\C-h" 'delete-backward-char)
(setq c-label-offset 0)
(setq c-indent-level 2)
(setq c-brace-offset -2)
(and (fboundp 'energize-configure-font-lock-mode)
     (energize-configure-font-lock-mode t nil t))
;; Perl-mode settings
(setq auto-mode-alist (append (list (cons "\\.p[lm]$" 'perl-mode))
                              auto-mode-alist))
(set-background-color "lightgrey")
(c-set-offset 'substatement-open '0)
(setq auto-mode-alist (cons '("\\.h\\'" . c++-mode) auto-mode-alist))
(put 'downcase-region 'disabled nil)