My GNU/Emacs configuration

Red Hat style: /usr/share/emacs/site-lisp/site-start.d/fte.el

Debian style: /etc/emcas/site-start.d/60fte.el

;; @file  fte.el
;; @brief make emcas feel more like fte

;;; configure alt+left and alt+right to lower or raise buffers
(defun raise-buffer ()
  (interactive)
  (let ((blist (nreverse (buffer-list))))
    (while (string-match "\` " (buffer-name (car blist)))
      (setq blist (cdr blist)))
    (if blist
        (switch-to-buffer (car blist)))))

(define-key global-map [(meta left)] `bury-buffer)
(define-key global-map [(meta right)] `raise-buffer)

;;; alt+m for buffer menu
(define-key global-map [(meta m)] `buffer-menu)

;;; alt+up and alt+down to move between windows (splited vertically)
(define-key global-map [(meta up)] `windmove-up)
(define-key global-map [(meta down)] `windmove-down)

;;; fte style compile
(define-key global-map [(f9)] `compile)
(setq compilation-scroll-output t)

;;; scroll one line at a time
(setq scroll-step 1)