Exit prompt attempt

emacs/.emacs

@@ -166,7 +166,6 @@
   (evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter)
   (evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide))
 
-
 ;; Cursor centered
 (use-package centered-cursor-mode
   :ensure t
@@ -257,6 +256,22 @@
 
 (global-set-key (kbd "<C-tab>") 'cycle-window)
 
+;; Exit prompt
+(defun foreach (alist func)
+  (while alist
+	(progn
+	  (funcall func (car alist))
+	  (setq alist (cdr alist)))))
+
+;(defun emacs-exit-prompt ()
+;  (foreach
+;   (buffer-list)
+;   (lambda (buffer)
+;	 (cond
+;	  ((string-match "^\\*.*\\*$" (buffer-name buffer)) nil)
+;	  ((null (buffer-modified-p buffer)) nil)
+;	  (t nil)))))
+  
 ;; Latex german
 (quail-define-package "latex-german" "UTF-8" "LaGe" t
 					  "Transforms umlauts to the better latex notation.