+(blink-cursor-mode nil)
+(setq c-basic-offset 4)
+(setq indent-tabs-mode 4)
+;
+(require 'tramp)
+(setq tramp-default-proxies-alist
+ (append '(("names\\.colo\\.xensource\\.com"
+ "root" "/ssh:names.colo.xensource.com:")
+ ("colo-dns1\\.colo\\.xensource\\.com" "root"
+ "/ssh:ianj@colo-dns1.colo.xensource.com:"))
+ tramp-default-proxies-alist))
+; /sudo:root@names.colo.xensource.com:/etc/bind/xen.org.zone
+; /sudo:root@colo-dns1.colo.xensource.com:/etc/bind/xensource.com.zone
+
+
+
+(defun hack-dir-local-variables ()
+ "Read per-directory local variables for the current buffer.
+Store the directory-local variables in `dir-local-variables-alist'
+and `file-local-variables-alist', without applying them."
+ (when (and enable-local-variables
+ (buffer-file-name))
+ ;; Find the variables file.
+ (let ((variables-file (dir-locals-find-file (buffer-file-name)))
+ (class nil)
+ (dir-name nil))
+ (cond
+ ((stringp variables-file)
+ (setq dir-name (file-name-directory (buffer-file-name)))
+ (setq class (dir-locals-read-from-file variables-file)))
+ ((consp variables-file)
+ (setq dir-name (nth 0 variables-file))
+ (setq class (nth 1 variables-file))))
+ (when class
+ (let ((variables
+ (dir-locals-collect-variables
+ (dir-locals-get-class-variables class) dir-name nil)))
+ (when variables
+ (dolist (elt variables)
+ (unless (memq (car elt) '(eval mode))
+ (setq dir-local-variables-alist
+ (assq-delete-all (car elt) dir-local-variables-alist)))
+ (push elt dir-local-variables-alist))
+ (hack-local-variables-filter variables dir-name)))))))
+
+(delete ".git/" completion-ignored-extensions)
+