Mercurial > emacs
comparison lisp/textmodes/refbib.el @ 14002:9ba9c92b7987
(r2b-additional-stop-words, capitalize-title-stop-words):
Doc fix.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 04 Jan 1996 23:47:17 +0000 |
parents | 1365bc291f4c |
children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
14001:be4f869af091 | 14002:9ba9c92b7987 |
---|---|
47 ; used "organization" field for proceedings | 47 ; used "organization" field for proceedings |
48 ; modified 2/16/89, updated help messages | 48 ; modified 2/16/89, updated help messages |
49 ; modified 2/23/89, include capitalize stop words in r2b stop words, | 49 ; modified 2/23/89, include capitalize stop words in r2b stop words, |
50 ; fixed problems with contractions (e.g. it's), | 50 ; fixed problems with contractions (e.g. it's), |
51 ; caught multiple stop words in a row | 51 ; caught multiple stop words in a row |
52 ; modified 3/1/89, fixed capitialize-title for first words all caps | 52 ; modified 3/1/89, fixed capitalize-title for first words all caps |
53 ; modified 3/15/89, allow use of " to delimit fields | 53 ; modified 3/15/89, allow use of " to delimit fields |
54 ; modified 4/18/89, properly "quote" special characters on output | 54 ; modified 4/18/89, properly "quote" special characters on output |
55 | 55 |
56 ;;; Code: | 56 ;;; Code: |
57 | 57 |
107 on Artificial Intelligence\", then you would NOT need to include Ijcai81 | 107 on Artificial Intelligence\", then you would NOT need to include Ijcai81 |
108 in `r2b-proceedings-list' (although it wouldn't cause an error).") | 108 in `r2b-proceedings-list' (although it wouldn't cause an error).") |
109 | 109 |
110 (defvar r2b-additional-stop-words | 110 (defvar r2b-additional-stop-words |
111 "Some\\|What" | 111 "Some\\|What" |
112 "Words other than the `capitialize-title-stop-words' | 112 "Words other than the `capitalize-title-stop-words' |
113 which are not to be used to build the citation key") | 113 which are not to be used to build the citation key") |
114 | 114 |
115 | 115 |
116 (defvar r2b-delimit-with-quote | 116 (defvar r2b-delimit-with-quote |
117 t | 117 t |
122 | 122 |
123 (defvar capitalize-title-stop-words | 123 (defvar capitalize-title-stop-words |
124 (concat | 124 (concat |
125 "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" | 125 "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" |
126 "by\\|with\\|that\\|its") | 126 "by\\|with\\|that\\|its") |
127 "Words not to be capitialized in a title (unless they are the first | 127 "Words not to be capitalized in a title (unless they are the first |
128 word in the title)") | 128 word in the title)") |
129 | 129 |
130 (defvar capitalize-title-stop-regexp | 130 (defvar capitalize-title-stop-regexp |
131 (concat "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)")) | 131 (concat "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)")) |
132 | 132 |