[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Commit-womb] addressbook addressbook.el
From: |
Xavier Maillard |
Subject: |
[Commit-womb] addressbook addressbook.el |
Date: |
Tue, 08 May 2007 12:18:23 +0000 |
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 ()
- [Commit-womb] addressbook addressbook.el, Jose E. Marchesi, 2007/05/07
- [Commit-womb] addressbook addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook addressbook.el,
Xavier Maillard <=
- [commit-womb] addressbook addressbook.el, Xavier Maillard, 2007/05/08
- [commit-womb] addressbook addressbook.el, Xavier Maillard, 2007/05/27
- [commit-womb] addressbook addressbook.el, Xavier Maillard, 2007/05/27