From 39b7470b3f996b7ef710290f0153dc75ac61b6d8 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Thu, 28 May 2020 08:46:20 +0200 Subject: added function to kill cal buffers --- .emacs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/.emacs b/.emacs index 835d8e3..1f7724a 100644 --- a/.emacs +++ b/.emacs @@ -734,9 +734,13 @@ be useless, in which case you should restart it using (add-to-list 'auto-mode-alist '("\\.sr.*\\'" . powerbuilder-mode)) ;; kill all cal-* buffers -(defun kill-dired-buffers () +(defun kill-cal-buffers () (interactive) (mapc (lambda (buffer) - (when (string-match "cal-.*" (buffer-name buffer)) - (kill-buffer buffer))) + (let ((buf (buffer-name buffer))) + (when (string-match "cal-.*" buf) + (kill-buffer buffer) + (message "Killed buffer %s" buf)))) (buffer-list))) + +(global-set-key (kbd "C-x C-C") 'kill-cal-buffers) -- cgit v1.2.3