[Commit-womb] addressbook ChangeLog addressbook.el

[Jose E. Marchesi]

CVSROOT:        /cvsroot/womb
Module name:    addressbook
Changes by:     Jose E. Marchesi <jemarch>      07/05/08 11:04:37

Modified files:
        .              : ChangeLog addressbook.el 

Log message:
        

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/womb/addressbook/ChangeLog,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- ChangeLog   8 May 2007 10:58:42 -0000       1.21
+++ ChangeLog   8 May 2007 11:04:37 -0000       1.22
@@ -1,6 +1,11 @@
 2007-05-08  Jose E. Marchesi  <address@hidden>
 
        * addressbook.el (addrbook-summary-display): expand line to frame-width
+       (addrbook-summary-display): Do not fill with blanks. Append a
+       extra newline to the buffer in order to let the line highlight
+       overlay trick to work in the last entry.
+       (addrbook-summary-goto-contact): Trick to expand the overlay to
+       the entire line without filling with blanks.
 
 2007-05-08  Xavier Maillard  <address@hidden>
 

Index: addressbook.el
===================================================================
RCS file: /cvsroot/womb/addressbook/addressbook.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- addressbook.el      8 May 2007 10:58:42 -0000       1.22
+++ addressbook.el      8 May 2007 11:04:37 -0000       1.23
@@ -5,7 +5,7 @@
 ;; Maintainer: Jose E. Marchesi
 ;; Keywords: contacts, applications
 
-;; $Id: addressbook.el,v 1.22 2007/05/08 10:58:42 jemarch Exp $
+;; $Id: addressbook.el,v 1.23 2007/05/08 11:04:37 jemarch Exp $
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -1495,13 +1495,11 @@
       (setq name (vcard-get-named-attribute card "n"))
       (insert (propertize (addrbook-get-card-fn t card-index)
                           'face 'addrbook-attribute-value))
-      (insert (make-string (- (frame-width) (- (point) 
(line-beginning-position))) ?\ ))
       (add-text-properties (line-beginning-position)
                            (line-end-position)
                            (list 'card-index card-index))
-      (if (not (equal card-index (- (length addrbook-cards) 1)))
           (insert (propertize "\n"
-                              'card-index card-index))))))
+                          'card-index card-index)))))
 
 (defun addrbook-summary-goto-contact (numcard update-contact-buffer)
   (let (new-pos temp-new-pos found) 
@@ -1518,7 +1516,7 @@
       (goto-char new-pos)
       (beginning-of-line)
       (let ((highlight-overlay (make-overlay (line-beginning-position)
-                                             (line-end-position))))
+                                             (line-beginning-position 2))))
         (overlay-put highlight-overlay 'face 'addrbook-summary-selected-card))
       (addrbook-summary-set-mode-line (+ numcard 1) (length addrbook-cards))
       (when (and update-contact-buffer