]> gitweb @ CieloNegro.org - sugar.git/blobdiff - dot-files/_emacs_el
Auto commit by The Sugar System.
[sugar.git] / dot-files / _emacs_el
index 10da40ee12c45eed916102355d003ae8543caa9e..927424c236e613fef9798b84616f585da4faa85a 100644 (file)
 (global-font-lock-mode t)
 
 (auto-compression-mode t)
+(which-function-mode t)
 (setq visible-bell t)
 (setq ring-bell-function (lambda ()))
-(windmove-default-keybindings)
 
 (require 'server)
 (if (server-running-p)
     (message "Warning: server %S is already running." server-name)
   (server-start))
 
+;; windmove
+(windmove-default-keybindings)
+
 ;; Host specific configuration ------------------------------------------------
 (let ((host (system-name)))
   (cond ((equal host "aria.cielonegro.org")
  (add-hook 'haskell-mode-hook
    (lambda () (set-input-method "haskell-unicode")))
 
-
 ;; Hoogle
 (autoload 'hoogle-lookup "hoogle" "Hoogle" t)
 (global-set-key (kbd "C-c h") 'hoogle-lookup)
  '(newsticker-url-list-defaults (quote (("slashdot" "http://slashdot.org/index.rss" nil 3600))))
  '(nxml-auto-insert-xml-declaration-flag t)
  '(nxml-slash-auto-complete-flag t)
+ '(org-replace-disputed-keys t)
  '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil))))
  '(riece-layout "default")
  '(riece-layout-alist (quote (("middle-right" riece-configure-windows right middle) ("middle-left" riece-configure-windows left middle) ("top-right" riece-configure-windows right top) ("top-left" riece-configure-windows left top) ("bottom-right" riece-configure-windows right bottom) ("bottom-left" riece-configure-windows left bottom) ("top" riece-configure-windows-top) ("spiral" riece-configure-windows-spiral) ("default" . "middle-right"))))
  '(w3m-output-coding-system (quote utf-8))
  '(w3m-terminal-coding-system (quote utf-8))
  '(w3m-use-cookies t)
+ '(windmove-wrap-around t)
  '(x-select-enable-clipboard t))
 (custom-set-faces
   ;; custom-set-faces was added by Custom.