1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
%%
%% This is file `textcmds.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% textcmds.dtx (with options: `pkg')
%%
%%% ====================================================================
%%% @LaTeX-doc-source-file{
%%% filename = "textcmds.dtx",
%%% version = "1.05",
%%% date = "2002/04/16",
%%% time = "08:47:47 EDT",
%%% author = "Michael J Downes",
%%% address = "American Mathematical Society,
%%% Publications Technical Group,
%%% PO Box 6248,
%%% Providence, RI 02940,
%%% USA",
%%% email = "tech-support@ams.org",
%%% URL = "http://www.ams.org/",
%%% abstract = "Short forms for textemdash and the other LaTeX
%%% commands that correspond to ligatures of
%%% convenience.",
%%% checksum = "55773 283 1136 10227",
%%% docstring = "The checksum field, produced by Robert Solovay's
%%% checksum utility, gives CRC-16 checksum, lines,
%%% words, and characters.",
%%% }
%%% ====================================================================
\ProvidesPackage{textcmds}[2002/04/16 v1.05]
\providecommand{\mdash}{\textemdash\penalty\exhyphenpenalty}
\providecommand{\ndash}{\textendash\penalty\exhyphenpenalty}
\newcommand{\qd}{\textquestiondown}
\newcommand{\xd}{\textexclamdown}
\newcommand{\ldq}{\textquotedblleft}
\newcommand{\rdq}{\textquotedblright}
\newcommand{\lsq}{\textquoteleft}
\newcommand{\rsq}{\textquoteright}
\newcommand{\bul}{\textbullet}%
\newcommand{\vsp}{\textvisiblespace}%
\newcommand{\pdc}{\textperiodcentered}%
\newcommand{\vrt}{\textbar}%
\newcommand{\cir}{\textasciicircum}%
\newcommand{\til}{\textasciitilde}%
\newcommand{\bsl}{\textbackslash}%
\newcommand{\cwm}{\textcompwordmark}%
\providecommand{\qq}[1]{\ldq#1\/\rdq}
\newcommand{\supsize}{%
\expandafter\ifx\csname S@\f@size\endcsname\relax
\calculate@math@sizes
\fi
\csname S@\f@size\endcsname
\fontsize\sf@size\z@\selectfont
}
\DeclareRobustCommand{\tsup}[1]{%
\leavevmode\raise.9ex\hbox{\supsize #1}%
}
\DeclareRobustCommand{\tsub}[1]{%
\leavevmode\lower.6ex\hbox{\supsize #1}%
}
\DeclareTextSymbolDefault{\textprimechar}{OMS}
\DeclareTextSymbol{\textprimechar}{OMS}{48}
\DeclareRobustCommand{\tprime}{\tsup{\textprimechar}}
\@ifundefined{textlangle}{%
\DeclareTextSymbolDefault{\textlangle}{OMS}
\DeclareTextSymbolDefault{\textrangle}{OMS}
}{}
\DeclareTextSymbol{\textlangle}{OMS}{"68}
\DeclareTextSymbol{\textrangle}{OMS}{"69}
\DeclareRobustCommand{\lara}[1]{\textlangle#1\/\textrangle}
\csname endinput\endcsname
<*emacs>
(defvar latex-ndash-command "\\ndash"
"*String to insert for an n-dash in LaTeX mode.")
(defvar latex-mdash-command "\\mdash"
"*String to insert for an m-dash in LaTeX mode.")
(defvar latex-quote-command "\\qq"
"*String to insert for quotes in LaTeX mode.")
(defun latex-maybe-start-quotes (arg)
"Insert the beginning of a \\qq{...} structure if the preceding char is
a left quote."
(interactive "*p")
(if (= (preceding-char) ?\`)
(progn
(delete-backward-char 1)
(insert-and-inherit (concat latex-quote-command "\{")))
(self-insert-command arg)))
(defun latex-maybe-end-quotes (arg)
"Insert the end of a \\qq{...} structure if appropriate."
(interactive "*p")
(if (= (preceding-char) ?\')
(progn
(delete-backward-char 1)
(insert-and-inherit "\}"))
(self-insert-command arg)))
(defun latex-maybe-dash (arg)
"Convert two or three hyphens to \\mdash or \\ndash."
(interactive "*p")
(cond
((re-search-backward
(concat (regexp-quote latex-ndash-command) " *\\=") nil t)
(replace-match (concat (regexp-quote latex-mdash-command) " ")))
((= (preceding-char) ?-)
(delete-backward-char 1)
(insert-and-inherit (concat latex-ndash-command " ")))
(t (self-insert-command arg))))
(add-hook 'TeX-mode-hook
'(lambda
(define-key LaTeX-mode-map "\`" 'latex-maybe-start-quotes)
(define-key LaTeX-mode-map "\'" 'latex-maybe-end-quotes)
(define-key LaTeX-mode-map "-" 'latex-maybe-dash)))
</emacs>
\endinput
%%
%% End of file `textcmds.sty'.
|
