* Added a keybinding C-x O to cyvle backwards through buffers in a frame (opposite of C-x o)

* Added for lispy like buffers converting lambda to the greek character of the same name
* Modified some mc settings..its still the best for fs mgmt

.emacs

@@ -11,6 +11,25 @@
 ;; bind M-g to M-x goto-line
 (global-set-key "\M-g" 'goto-line)
 
+;; Make C-x O cycle backwards a pane (oposite to C-x o)
+(global-set-key "\C-xO" #'(lambda ()
+			    (interactive)
+			    (other-window -1)))
+
+;; Thanks to lauren michelle for this one
+(defun pretty-lambdas ()
+  (font-lock-add-keywords
+   nil `(("(\\(lambda\\>\\)"
+	  (0 (progn (compose-region (match-beginning 1) (match-end 1)
+				    ,(make-char 'greek-iso8859-7 107))
+		    nil))))))
+
+;; Make lambda appear as the greek character
+(add-hook 'scheme-mode-hook 'pretty-lambdas)
+(add-hook 'lisp-mode-hook 'pretty-lambdas)
+(add-hook 'lisp-interaction-mode-hook 'pretty-lambdas)
+(add-hook 'geiser-repl-mode-hook 'pretty-lambdas)
+
 ;; adds the given function mode to each element of the given-hooks
 (defun activate-mode-with-hooks (mode given-hooks)
   (while given-hooks
@@ -136,6 +155,14 @@
 ;; Set default lisp program
 (setq inferior-lisp-program "/usr/bin/sbcl")
 
+;; Since there is no support for the kawa implementation of scheme
+(defun run-kawa ()
+  "Run Kawa Scheme in an Emacs buffer."
+  (interactive)
+  (require 'cmuscheme)
+  (let ((scheme-program-name "/usr/bin/kawa"))
+    (run-scheme scheme-program-name)))
+
 ;; Set usable lisp implementations
 (setq slime-lisp-implementations
       '((sbcl ("/usr/bin/sbcl" ""))

.mc/ini

@@ -14,7 +14,7 @@ confirm_execute=0
 confirm_history_cleanup=1
 confirm_exit=1
 confirm_directory_hotlist_delete=1
-safe_delete=0
+safe_delete=1
 mouse_repeat_rate=100
 double_click_speed=250
 use_8th_bit_as_meta=0
@@ -24,7 +24,7 @@ mouse_close_dialog=0
 fast_refresh=0
 drop_menus=0
 wrap_mode=1
-old_esc_mode=0
+old_esc_mode=1
 old_esc_mode_timeout=1000000
 cd_symlinks=1
 show_all_if_ambiguous=0