Mercurial > hg > xemacs-beta

diff lisp/packages/supercite.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
line wrap: on
line diff
--- a/lisp/packages/supercite.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/packages/supercite.el	Mon Aug 13 09:02:59 2007 +0200
@@ -218,12 +218,7 @@
   "*Value returned by `sc-mail-field' if field isn't in mail headers.")
 
 (defvar sc-name-filter-alist
-  '(
-    ;; 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)
+  '(("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
     ("^\\(Jr\\|Sr\\)[.]?$" . last)
     ("^ASTS$" . 0)
     ("^[I]+$" . last))
@@ -372,7 +367,9 @@
 (defconst sc-emacs-features
   (let ((version 'v18)
 	(flavor  'GNU))
-    (if (string= (substring emacs-version 0 2) "19")
+    (if (or
+	 (string= (substring emacs-version 0 2) "19")
+	 (string= (substring emacs-version 0 2) "20"))
 	(setq version 'v19))
     (if (string-match "XEmacs" emacs-version)
 	(setq flavor 'Lucid))