new functions
[emacs.git] / elisp / local / ganneff.el
index 9bd1f66..e925d48 100644 (file)
@@ -880,11 +880,13 @@ buffer is not visiting a file."
 (defun lisp-coding-defaults ()
   (paredit-mode +1)
   (rainbow-delimiters-mode +1))
+
 ;;;###autoload
 (defun interactive-lisp-coding-defaults ()
   (paredit-mode +1)
   (rainbow-delimiters-mode +1)
   (whitespace-mode -1))
+
 ;;;###autoload
 (defun prelude-remove-elc-on-save ()
   "If you're saving an elisp file, likely the .elc is no longer valid."
@@ -915,6 +917,22 @@ buffer is not visiting a file."
              (when (eq mode major-mode)
                (setq mode-name mode-str)))))
 
+;;;###autoload
+(defun force-backup-of-buffer ()
+  (let ((buffer-backed-up nil))
+    (backup-buffer)))
+
+;;;###autoload
+(defun prelude-kill-other-buffers ()
+  "Kill all buffers but the current one.
+Doesn't mess with special buffers."
+  (interactive)
+  (-each
+   (->> (buffer-list)
+     (-filter #'buffer-file-name)
+     (--remove (eql (current-buffer) it)))
+   #'kill-buffer))
+
 (provide 'ganneff)
 
 ;(setq org-icalendar-verify-function 'org-mycal-export-limit)