[Commit-womb] addressbook ChangeLog addressbook.el

[Jose E. Marchesi]

CVSROOT:        /cvsroot/womb
Module name:    addressbook
Changes by:     Jose E. Marchesi <jemarch>      07/05/08 09:27:59

Modified files:
        .              : ChangeLog addressbook.el 

Log message:
        Optional multi-frame behaviour

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/addressbook/ChangeLog?cvsroot=womb&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/addressbook/addressbook.el?cvsroot=womb&r1=1.18&r2=1.19

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/womb/addressbook/ChangeLog,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- ChangeLog   8 May 2007 09:23:45 -0000       1.16
+++ ChangeLog   8 May 2007 09:27:59 -0000       1.17
@@ -8,6 +8,9 @@
        `addrbook-contact-delete-attribute-type'
        (addrbook-contact-mode): Use `addrbook-contact-delete-attribute'.
        (addressbook): Show summary when the buffer exists.
+       (addrbook-multiple-frames-p): New custom variable.
+       (addrbook-show-contact): Take care about `addrbook-multiple-frames-p'.
+       (addrbook-show-summary): idem.
 
 2007-05-07  Xavier Maillard  <address@hidden>
 

Index: addressbook.el
===================================================================
RCS file: /cvsroot/womb/addressbook/addressbook.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- addressbook.el      8 May 2007 09:21:44 -0000       1.18
+++ addressbook.el      8 May 2007 09:27:59 -0000       1.19
@@ -5,7 +5,7 @@
 ;; Maintainer: Jose E. Marchesi
 ;; Keywords: contacts, applications
 
-;; $Id: addressbook.el,v 1.18 2007/05/08 09:21:44 jemarch Exp $
+;; $Id: addressbook.el,v 1.19 2007/05/08 09:27:59 jemarch Exp $
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -142,6 +142,12 @@
   :type 'string
   :group 'addrbook)
 
+(defcustom addrbook-multiple-frames-p
+  nil
+  "If t, open new frames when switching summary<->contact"
+  :type 'boolean
+  :group 'addrbook)
+
 (defface addrbook-summary-card-number
   '((((min-colors 88) (class color) (background light))
      :foreground "red1")
@@ -726,7 +732,10 @@
   (addrbook-contact-mode))
 
 (defun addrbook-show-contact ()
-  (switch-to-buffer (get-buffer addrbook-contact-buffer-name)))
+  (let ((buffer (get-buffer addrbook-contact-buffer-name)))
+    (if addrbook-multiple-frames-p
+        (switch-to-buffer-other-window buffer)
+      (switch-to-buffer buffer))))
 
 ;;; Display functions
 
@@ -1455,8 +1464,11 @@
   (addrbook-show-summary))
 
 (defun addrbook-show-summary ()
-  (switch-to-buffer (get-buffer addrbook-summary-buffer-name))
-  (addrbook-summary-goto-contact addrbook-current-card nil))
+  (let ((buffer (get-buffer addrbook-summary-buffer-name)))
+    (if addrbook-multiple-frames-p
+        (switch-to-buffer-other-window buffer)
+      (switch-to-buffer buffer))
+    (addrbook-summary-goto-contact addrbook-current-card nil)))
 
 (defun addrbook-get-create-summary-buffer ()
   (if (not addrbook-summary-buffer)