[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:21:44

Modified files:
        .              : ChangeLog addressbook.el 

Log message:
        Several fixes.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/womb/addressbook/ChangeLog,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- ChangeLog   8 May 2007 08:36:08 -0000       1.14
+++ ChangeLog   8 May 2007 09:21:44 -0000       1.15
@@ -4,6 +4,10 @@
        (addrbook-summary-show-contact): Make the contact buffer read only.
        (addrbook-summary-goto-contact): Make the contact buffer writable
        before card displaying.
+       (addrbook-contact-delete-attribute): renamed from
+       `addrbook-contact-delete-attribute-type'
+       (addrbook-contact-mode): Use `addrbook-contact-delete-attribute'.
+       (addressbook): Show summary when the buffer exists.
 
 2007-05-07  Jose E. Marchesi  <address@hidden>
 

Index: addressbook.el
===================================================================
RCS file: /cvsroot/womb/addressbook/addressbook.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- addressbook.el      8 May 2007 08:36:08 -0000       1.17
+++ addressbook.el      8 May 2007 09:21:44 -0000       1.18
@@ -5,7 +5,7 @@
 ;; Maintainer: Jose E. Marchesi
 ;; Keywords: contacts, applications
 
-;; $Id: addressbook.el,v 1.17 2007/05/08 08:36:08 jemarch Exp $
+;; $Id: addressbook.el,v 1.18 2007/05/08 09:21:44 jemarch Exp $
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -1145,7 +1145,7 @@
                     (add-to-list 'addrbook-modified-cards 
addrbook-current-card)))))))
     (goto-char point-backup)))
 
-(defun addrbook-contact-delete-attribute-type ()
+(defun addrbook-contact-delete-attribute ()
   "Delete the attribute under point"
   (interactive)
   (let ((buffer-read-only nil)
@@ -1394,7 +1394,7 @@
       (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)
       (define-key addrbook-contact-mode-map (kbd "TAB") 
'addrbook-contact-cycle-groups)
-      (define-key addrbook-contact-mode-map "d" 
'addrbook-contact-delete-attribute-type)
+      (define-key addrbook-contact-mode-map "d" 
'addrbook-contact-delete-attribute)
       (define-key addrbook-contact-mode-map "a" 
'addrbook-contact-add-attribute)
       (define-key addrbook-contact-mode-map "t" 
'addrbook-contact-add-attribute-type)
       (define-key addrbook-contact-mode-map "r" 
'addrbook-contact-remove-attribute-type)
@@ -2070,7 +2070,7 @@
       (with-temp-file addrbook-file))
   (catch 'exit
     (let ((buffer (get-buffer addrbook-contact-buffer-name)))
-      (when (not buffer)
+      (if (not buffer)
         (let ((show-card-index 0)
               (user-input (when addrbook-ask-for-search
                             (read-from-minibuffer "Search for contact [RET 
goes to the summary]: "))))
@@ -2091,7 +2091,8 @@
                 (setq buffer-read-only t)
                 (setq addrbook-buffer buffer))
             ;; Goto the summary
-            (addrbook-summary)))))))
+            (addrbook-summary))))
+      (addrbook-show-summary))))
 
 
 ;;;###autoload