Sometimes I would like to tab complete on company name. This patch adds that ability. =================================================================== RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v retrieving revision 1.107 diff -c -C0 -r1.107 bbdb-com.el *** bbdb-com.el 2001/04/16 11:33:08 1.107 --- bbdb-com.el 2001/05/10 18:41:15 *************** *** 2122 **** --- 2123,2129 ---- + + ;; now look the company fields + (if (not matched) + (let ((company (bbdb-record-company (car recs)))) + (if (string= pattern (downcase company)) + (setq match-recs (append match-recs (list (car recs))) + matched t)))) _______________________________________________ [EMAIL PROTECTED] http://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/
