Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
216 "*Warn if mail headers don't conform to RFC822.") 216 "*Warn if mail headers don't conform to RFC822.")
217 (defvar sc-mumble "" 217 (defvar sc-mumble ""
218 "*Value returned by `sc-mail-field' if field isn't in mail headers.") 218 "*Value returned by `sc-mail-field' if field isn't in mail headers.")
219 219
220 (defvar sc-name-filter-alist 220 (defvar sc-name-filter-alist
221 '( 221 '(("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
222 ;; This first item removes any [bracketed] multi-word items in names.
223 ;; Each word is already split into a separate string when this filter is
224 ;; applied, hence the complexity of the expression.
225 ("\\[.*\\]\\|\\[[^\]]*\\|[^\[]*\\]" . any)
226 ("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
227 ("^\\(Jr\\|Sr\\)[.]?$" . last) 222 ("^\\(Jr\\|Sr\\)[.]?$" . last)
228 ("^ASTS$" . 0) 223 ("^ASTS$" . 0)
229 ("^[I]+$" . last)) 224 ("^[I]+$" . last))
230 "*Name list components which are filtered out as noise. 225 "*Name list components which are filtered out as noise.
231 This variable contains an association list where each element is of 226 This variable contains an association list where each element is of
370 "Alist of attributions for use when citing.") 365 "Alist of attributions for use when citing.")
371 366
372 (defconst sc-emacs-features 367 (defconst sc-emacs-features
373 (let ((version 'v18) 368 (let ((version 'v18)
374 (flavor 'GNU)) 369 (flavor 'GNU))
375 (if (string= (substring emacs-version 0 2) "19") 370 (if (or
371 (string= (substring emacs-version 0 2) "19")
372 (string= (substring emacs-version 0 2) "20"))
376 (setq version 'v19)) 373 (setq version 'v19))
377 (if (string-match "XEmacs" emacs-version) 374 (if (string-match "XEmacs" emacs-version)
378 (setq flavor 'Lucid)) 375 (setq flavor 'Lucid))
379 ;; cobble up list 376 ;; cobble up list
380 (list version flavor)) 377 (list version flavor))