.emacs

;; ;; Set default foreground and background colors
(set-foreground-color "White")
(set-background-color "Black")
(set-cursor-color "Gold")
(set-mouse-color "Black")
(set-border-color "Black")

;; Disable tool-bar-mode at startup
 (tool-bar-mode nil)

;; Sets pretty-print result of a sexp evaluation in a separate buffer, *Pp Eval Output*’
(global-set-key [remap eval-last-sexp] 'pp-eval-last-sexp)
`````````
;; Forward sentence
(setq next-line-add-newlines nil)

;; Visual feedback on selections
(setq-default transient-mark-mode t)
;; Show line and column numbers in the mode line
(line-number-mode t)
(column-number-mode t)

;; ;; Make sure emacs isn't accidentally killed
;; (defun paranoid-exit-from-emacs()
;;   (interactive)
;;   (if (yes-or-no-p "Do you want to exit? ")
;;       (save-buffers-kill-emacs)))
;; (global-set-key "\C-x\C-c" 'paranoid-exit-from-emacs)

`
;; Shhhh!
(setq visible-bell t)

;; Autocompilation
(defun autocompile()
  "compile itself if ~/.emacs"
  (interactive))
  (if (string= (buffer-file-name) (concat default-directory ".emacs"))
      (byte-compile-file (buffer-file-name)))



;; enable interactive completion mode in minibuffer
(icomplete-mode)

;; highlight-changes-mode
(global-highlight-changes-mode t)

;; global-hl-line-mode
(global-hl-line-mode t)

 ;;global-font-lock
(global-font-lock-mode t)

;; Turn on global word-wrap
(global-visual-line-mode t)

;; Display the name of the file being edited in the title bar.
(setq frame-title-format "%b")


(global-set-key "\C-x\C-m" 'execute-extended-command)
(global-set-key "\C-c\C-m" 'execute-extended-command)

;; Deletes the last word
(global-set-key "\C-w" 'backward-kill-word)
(global-set-key "\C-x\C-k" 'kill-region)
(global-set-key "\C-c\C-k" 'kill-region)


(global-set-key [f5] 'call-last-kbd-macro)


;; Show line-number in the mode line
(line-number-mode 1)

;; Show column-number in the mode line
(column-number-mode 1)

;; setting default fill-column
(setq-default fill-column 72)

;; auto-fill in all modes
(setq auto-fill-mode 1)

(global-hi-lock-mode t)
;;===== Set standard indent to 2 rather that 4 ====
(setq standard-indent 2)

;; hl-line-mode all modes
(global-hl-line-mode t)

;; highlight-changes for all modes
(global-highlight-changes-mode t)


(defvar hl-line-face)                   ; Quiet the byte-compiler.
(defvar global-hl-line-mode)            ; Quiet the byte-compiler.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;