Mercurial > hg > xemacs-beta

diff lisp/packages/supercite.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/packages/supercite.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/packages/supercite.el	Mon Aug 13 08:52:29 2007 +0200
@@ -218,7 +218,12 @@
   "*Value returned by `sc-mail-field' if field isn't in mail headers.")
 
 (defvar sc-name-filter-alist
-  '(("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
+  '(
+    ;; This first item removes any [bracketed] multi-word items in names.
+    ;; Each word is already split into a separate string when this filter is
+    ;; applied, hence the complexity of the expression.
+    ("\\[.*\\]\\|\\[[^\]]*\\|[^\[]*\\]" . any)
+    ("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
     ("^\\(Jr\\|Sr\\)[.]?$" . last)
     ("^ASTS$" . 0)
     ("^[I]+$" . last))