The patch below (against the head of the sf.net CVS trunk) fixes
a namespace-pollution bug (`digit' should have been `bbdb-digit'
at least, although the patch fixes it in a different way) and a bug
in the migration query which appears if your `display-buffer' chooses
to display the query in a separate (typically dedicated) frame.
The patch also fixes the docstring to follow the convention that
the first line should be a complete sentence.
Stefan
cvs server: Diffing lisp
Index: lisp/bbdb-migrate.el
===
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-migrate.el,v
retrieving revision 1.19
diff -u -r1.19 bbdb-migrate.el
--- lisp/bbdb-migrate.el19 Aug 2002 22:49:12 - 1.19
+++ lisp/bbdb-migrate.el26 Sep 2003 20:36:58 -
@@ -101,9 +101,9 @@
;;;###autoload
(defun bbdb-migration-query (ondisk)
- Ask if the database is to be migrated. ONDISK is the version
-number of the database as currently stored on disk. Returns the
-version for the saved database.
+ Ask if the database is to be migrated.
+ONDISK is the version number of the database as currently stored on disk.
+Returns the version for the saved database.
(save-excursion
(let ((wc (current-window-configuration))
(buf (get-buffer-create *BBDB Migration Info*))
@@ -135,7 +135,11 @@
(y-or-n-p (concat Upgrade BBDB to version
(format %d bbdb-file-format)
? )))
- (delete-window win)
+ (condition-case nil
+ (delete-window win)
+ ;; The window might be the only one on its frame. Hopefully, it's
+ ;; a dedicated window and the kill-buffer below will DTRT.
+ (error nil))
(kill-buffer buf)
(set-window-configuration wc)
(if update bbdb-file-format ondisk
Index: lisp/bbdb-snarf.el
===
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-snarf.el,v
retrieving revision 1.38
diff -u -r1.38 bbdb-snarf.el
--- lisp/bbdb-snarf.el 7 Mar 2003 22:12:41 - 1.38
+++ lisp/bbdb-snarf.el 26 Sep 2003 20:36:58 -
@@ -37,7 +37,6 @@
(require 'rfc822)
(require 'mail-extr)
-(defconst digit [0-9])
(defvar bbdb-snarf-phone-regexp
(concat
\\(([2-9][0-9][0-9])[-. ]?\\|[2-9][0-9][0-9][-. ]\\)?
@@ -46,11 +45,12 @@
)
regexp to match phones.)
(defvar bbdb-snarf-zip-regexp
- (concat
- \\
- digit digit digit digit digit
- \\(- digit digit digit digit \\)?
- \\$)
+ (let ((digit [0-9]))
+(concat
+ \\
+ digit digit digit digit digit
+ \\(- digit digit digit digit \\)?
+ \\$))
regexp matching zip.)
(defcustom bbdb-snarf-web-prop 'www
---
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
___
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/