diff options
author | Tom Willemsen | 2011-07-28 00:25:27 +0200 |
---|---|---|
committer | Tom Willemsen | 2011-07-28 00:25:27 +0200 |
commit | 0b0e95e88c1dbd6a9f16300ae03f725e37b6369b (patch) | |
tree | c373b1c5a5c49dc72c23ee708fc478d807d00768 /emacs.d/elisp/functions.el | |
parent | af0eeb3f5251367970b15ef4e614bca56c59ee43 (diff) | |
download | dotfiles-0b0e95e88c1dbd6a9f16300ae03f725e37b6369b.tar.gz dotfiles-0b0e95e88c1dbd6a9f16300ae03f725e37b6369b.zip |
Preparing placing home-directory in repo
Diffstat (limited to 'emacs.d/elisp/functions.el')
-rw-r--r-- | emacs.d/elisp/functions.el | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/emacs.d/elisp/functions.el b/emacs.d/elisp/functions.el deleted file mode 100644 index 6472c82..0000000 --- a/emacs.d/elisp/functions.el +++ /dev/null @@ -1,45 +0,0 @@ -(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 bu) - (message "NO COMPILATION ERRORS!"))) - -(defun bh/hide-other () - (interactive) - (save-excursion - (org-back-to-heading) - (org-shifttab) - (org-reveal) - (org-cycle))) - -(defun bh/go-to-scratch () - (interactive) - (switch-to-buffer "*scratch*") - (delete-other-windows)) - -(defun bh/untabify () - (interactive) - (untabify (point-min) (point-max))) - -(defun bh/killframe () - (interactive) - (unless (buffer-modified-p) - (kill-buffer (current-buffer))) - (delete-frame)) - -(defun show-whitespace () - (whitespace-mode t)) - -(provide 'functions) |