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
124
125
126
127
128
129
130
|
%%
%% 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.06",
%%% date = "2007/10/19",
%%% time = "14:12:53 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.",
%%% copyright = "Copyright 2001 American Mathematical Society.",
%%% license = "Unlimited copying and redistribution of this file
%%% are permitted as long as this file is not
%%% modified. Modifications, and distribution of
%%% modified versions, are permitted, but only if
%%% the resulting file is renamed.",
%%% checksum = "63388 295 1197 10750",
%%% docstring = "The checksum field, produced by Robert Solovay's
%%% checksum utility, gives CRC-16 checksum, lines,
%%% words, and characters.",
%%% }
%%% ====================================================================
\ProvidesPackage{textcmds}[2007/10/19 v1.06]
\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}
\providecommand{\q}[1]{\lq#1\/\rq}
\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'.
|
