Refactor initfiles

This commit is contained in:
Henrik Lissner 2014-09-05 17:08:40 -04:00
parent 6b094920bd
commit f2e2f05742
34 changed files with 1161 additions and 860 deletions

6
init/defuns/utility.el Normal file
View file

@ -0,0 +1,6 @@
(defun what-face (pos)
"Tells you the name of the face (point) is on."
(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))))