From da3357de4c0cf49657fc6374213e934d3ca1b1bb Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 2 Apr 2011 12:41:14 +0200
Subject: Added functions and supercharged my fontlocking for C and PHP

---
 emacs.d/00-functions.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 emacs.d/00-functions.el

(limited to 'emacs.d/00-functions.el')

diff --git a/emacs.d/00-functions.el b/emacs.d/00-functions.el
new file mode 100644
index 0000000..3e429ec
--- /dev/null
+++ b/emacs.d/00-functions.el
@@ -0,0 +1,21 @@
+(defun what-face (pos)
+  "Find out which face the current position uses"
+  (interactive "d")
+  (let ((face (or (get-char-property (point) 'read-face-name)
+                  (get-char-property (point) 'face))))
+    (if face
+        (message "Face: %s" face)
+      (message "No face at %d" pos))))
+
+(defun my-comp-finish-function (buf str)
+  "Don't show compilation window if everything went ok"
+  (if (string-match "exited abnormally" str)
+      ;; there were errors
+      (message "compilation errors, press C-x ` to visit")
+    ;; no errors, make the compilation window go away in 0.5 seconds
+    (run-at-time 0.5 nil 'delete-windows-on buf)
+    (message "NO COMPILATION ERRORS!")))
+
+(defun show-whitespace ()
+  (interactive)
+  (whitespace-mode t))
-- 
cgit v1.2.3-54-g00ecf