;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;; LCD Archive Entry
;; supercite|Barry A. Warsaw|supercite-help@anthem.nlm.nih.gov
(defvar sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+"
"*Regexp describing the variable root part of a nested citation.
This should NOT have a leading `^' character. This variable is
-related to `sc-citation-root-regexp' but where as that varariable
+related to `sc-citation-root-regexp' but whereas that variable
describes both nested and non-nested citation roots, this variable
describes only nested citation roots.")
(defvar sc-citation-delimiter-regexp "[>]+"
nesting)))
(defun sc-add-citation-level ()
- "Add a citation level for nested citation style w/ coersion."
+ "Add a citation level for nested citation style w/ coercion."
(let* ((nesting (sc-guess-nesting))
(citation (make-string (1+ (length nesting))
(string-to-char sc-citation-delimiter)))
())
(defun sc-no-blank-line-or-header()
- "Similar to `sc-no-header' except it removes the preceeding blank line."
+ "Similar to `sc-no-header' except it removes the preceding blank line."
(if (not (bobp))
(if (and (eolp)
(progn (forward-line -1)