sieve-manage: add binding to kill the buffer

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96801c1..26db118 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,8 @@
        (sieve-manage-mode): Do not set mode name manually, change mode-name to
        (sieve-refresh-scriptlist): Use substitute-command-keys."Sieve-manage".
        Remove commented code about cvs.
        (sieve-manage-mode): Do not set mode name manually, change mode-name to
        (sieve-refresh-scriptlist): Use substitute-command-keys."Sieve-manage".
        Remove commented code about cvs.

+       (sieve-manage-quit): New function.
+       (sieve-manage-mode-map): Bind 'q' to sieve-manage-quit.

 
 2011-02-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 
 2011-02-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/sieve.el b/lisp/sieve.el
index fde5d8e..2111d34 100644 (file)
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -126,6 +126,7 @@ require \"fileinto\";
     (define-key map "f" 'sieve-edit-script)
     (define-key map "o" 'sieve-edit-script-other-window)
     (define-key map "r" 'sieve-remove)
     (define-key map "f" 'sieve-edit-script)
     (define-key map "o" 'sieve-edit-script-other-window)
     (define-key map "r" 'sieve-remove)

+    (define-key map "q" 'sieve-manage-quit)

     (define-key map [(down-mouse-2)] 'sieve-edit-script)
     (define-key map [(down-mouse-3)] 'sieve-manage-mode-menu)
     map)
     (define-key map [(down-mouse-2)] 'sieve-edit-script)
     (define-key map [(down-mouse-3)] 'sieve-manage-mode-menu)
     map)


@@ -148,6 +149,11 @@ require \"fileinto\";
 
 ;; Commands used in sieve-manage mode:
 
 
 ;; Commands used in sieve-manage mode:
 

+(defun sieve-manage-quit ()
+  "Quit."
+  (interactive)
+  (kill-buffer (current-buffer)))
+

 (defun sieve-activate (&optional pos)
   (interactive "d")
   (let ((name (sieve-script-at-point)) err)
 (defun sieve-activate (&optional pos)
   (interactive "d")
   (let ((name (sieve-script-at-point)) err)