[Commit-womb] addressbook addressbook.el

[Xavier Maillard]

CVSROOT:        /sources/womb
Module name:    addressbook
Changes by:     Xavier Maillard <zeDek> 07/05/08 12:18:23

Modified files:
        .              : addressbook.el 

Log message:
        Bind b key onto summary/contact mode to addrbook-bury

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/addressbook/addressbook.el?cvsroot=womb&r1=1.23&r2=1.24

Patches:
Index: addressbook.el
===================================================================
RCS file: /sources/womb/addressbook/addressbook.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- addressbook.el      8 May 2007 11:04:37 -0000       1.23
+++ addressbook.el      8 May 2007 12:18:23 -0000       1.24
@@ -5,7 +5,7 @@
 ;; Maintainer: Jose E. Marchesi
 ;; Keywords: contacts, applications
 
-;; $Id: addressbook.el,v 1.23 2007/05/08 11:04:37 jemarch Exp $
+;; $Id: addressbook.el,v 1.24 2007/05/08 12:18:23 zeDek Exp $
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -1399,6 +1399,7 @@
       (define-key addrbook-contact-mode-map "p" 'addrbook-previous-contact)
       (define-key addrbook-contact-mode-map "s" 'addrbook-save-cards)
       (define-key addrbook-contact-mode-map "x" 'addrbook-export-card)
+      (define-key addrbook-contact-mode-map "b" 'addrbook-bury)
       (define-key addrbook-contact-mode-map "q" 'addrbook-quit)
       (define-key addrbook-contact-mode-map "e" 
'addrbook-contact-edit-attribute)
       (define-key addrbook-contact-mode-map (kbd "SPC") 
'addrbook-contact-toggle-hide-show-group)
@@ -1588,6 +1589,7 @@
   (define-key addrbook-summary-mode-map "n" 'addrbook-summary-next-contact)
   (define-key addrbook-summary-mode-map "p" 'addrbook-summary-previous-contact)
   (define-key addrbook-summary-mode-map (kbd "RET") 
'addrbook-summary-show-contact)
+  (define-key addrbook-summary-mode-map "b" 'addrbook-bury)
   (define-key addrbook-summary-mode-map "q" 'addrbook-quit)
   (define-key addrbook-summary-mode-map "m" 'addrbook-send-email)
   (use-local-map addrbook-summary-mode-map)
@@ -1690,7 +1692,7 @@
               (addrbook-summary-goto-contact addrbook-current-card nil))))))))
 
 (defun addrbook-quit ()
-  "Exit the addressbook"
+  "Exit the addressbook."
   (interactive)
   (if (and (not (equal (length addrbook-modified-cards) 0))
            (yes-or-no-p "Save addressbook? "))
@@ -1707,6 +1709,13 @@
       (delete-windows-on contact-buffer)
       (kill-buffer contact-buffer))))
 
+(defun addrbook-bury ()
+  "Bury the addressbook buffer(s)."
+  (interactive)
+  (when (or (eq major-mode 'addrbook-summary-mode)
+           (eq major-mode 'addrbook-contact-mode ))
+    (bury-buffer)))
+
 ;;;; Backend management
 
 (defun addrbook-read-cards ()