From 966ad3d559a10e92458f46a44c28897147560f88 Mon Sep 17 00:00:00 2001 From: nick Date: Thu, 27 Oct 2016 12:05:51 -0500 Subject: [PATCH] undo commit-msg, add prefix to killall buffers --- monky.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/monky.el b/monky.el index 0096160..bb83d7a 100644 --- a/monky.el +++ b/monky.el @@ -281,9 +281,6 @@ Many Monky faces inherit from this one by default." ;;; User facing configuration -(defvar monky-default-commit-msg "" - "Default text inserted by monky on new commit") - (put 'monky-mode 'mode-class 'special) ;;; Compatibilities @@ -2916,10 +2913,6 @@ With a non numeric prefix ARG, show all entries" (pop-to-buffer buf) (setq default-directory dir) (monky-log-edit-mode) - ;; don't insert if not a new commit - (if (and (eq operation 'commit) - (= (point-min) (point-max))) - (insert monky-default-commit-msg)) (message "Type C-c C-c to %s (C-c C-k to cancel)." monky-log-edit-operation))) (defun monky-log-edit () @@ -2945,7 +2938,7 @@ Brings up a buffer to allow editing of commit message." (interactive "sBookmark name: ") (monky-run-hg-async "bookmark" bookmark-name)) -(defun killall-monky-buffers () +(defun monky-killall-monky-buffers () (interactive) (cl-flet ((monky-buffer-p (b) (string-match "\*monky\\(:\\|-\\).*" (buffer-name b)))) (let ((monky-buffers (cl-remove-if-not #'monky-buffer-p (buffer-list)))) @@ -2953,7 +2946,6 @@ Brings up a buffer to allow editing of commit message." do (kill-buffer mb))))) - (provide 'monky) ;; Local Variables: