Exit prompt attempt
This commit is contained in:
parent
5fad0abd17
commit
ec8fbec3c4
1 changed files with 16 additions and 1 deletions
17
emacs/.emacs
17
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.
|
||||
|
|
Loading…
Reference in a new issue