This commit is contained in:
Valentin Gehrke 2017-10-05 09:31:11 +02:00
parent 5cc194af98
commit 4ff372160e

View file

@ -328,11 +328,11 @@
(global-set-key (kbd "<C-tab>") 'cycle-window) (global-set-key (kbd "<C-tab>") 'cycle-window)
;; Exit prompt ;; Exit prompt
(defun foreach (alist func) ;; (defun foreach (alist func)
(while alist ;; (while alist
(progn ;; (progn
(funcall func (car alist)) ;; (funcall func (car alist))
(setq alist (cdr alist))))) ;; (setq alist (cdr alist)))))
;(defun emacs-exit-prompt () ;(defun emacs-exit-prompt ()
; (foreach ; (foreach