annotate lisp/textmodes/tildify.el @ 106175:d4ca58110155

* PROBLEMS: Remove fixed rebasing problem.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 20 Nov 2009 21:46:28 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; tildify.el --- adding hard spaces into texts
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
74509
f7702c5f335d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68648
diff changeset
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94670
diff changeset
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
38690
ebcceabda1b5 Milan Zamazal has new address.
Pavel Janík <Pavel@Janik.cz>
parents: 37895
diff changeset
6 ;; Author: Milan Zamazal <pdm@zamazal.org>
43636
30dfcb85b1ca (tildify-string-alist): Entry for xml-mode added.
Pavel Janík <Pavel@Janik.cz>
parents: 38690
diff changeset
7 ;; Version: 4.5
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
8 ;; Keywords: text, TeX, SGML, wp
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
15 ;; (at your option) any later version.
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94670
f4a69fedbd46 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 ;; This package can be typically used for adding forgotten tildes in TeX
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 ;; sources or adding `&nbsp;' sequences in SGML (e.g. HTML) texts.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;;
68068
cac26a791725 Fix typos (misspellings) in the commentary.
Eli Zaretskii <eliz@gnu.org>
parents: 65583
diff changeset
30 ;; For example, the Czech orthography requires avoiding one letter
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
31 ;; prepositions at line endings. So they should be connected with the
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
32 ;; following words by a tilde. Some users forget to do this all the
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
33 ;; time. The purpose of this program is to check the text and suggest
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
34 ;; adding of missing tildes on some places. It works in a similar
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
35 ;; manner to `query-replace-regexp'.
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 ;;
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
37 ;; The functionality of this program is actually performing query
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
38 ;; replace on certain regions, but for historical reasons explained
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
39 ;; above it is called `tildify'.
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 ;;
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 ;; The default variable settings are suited for Czech, so do not try to
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 ;; understand them if you are not familiar with Czech grammar and spelling.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ;;
68068
cac26a791725 Fix typos (misspellings) in the commentary.
Eli Zaretskii <eliz@gnu.org>
parents: 65583
diff changeset
44 ;; The algorithm was inspired by Petr Ol¹įk's program `vlna'. Abilities of
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 ;; `tildify.el' are a little limited; if you have improvement suggestions, let
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 ;; me know.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 ;;; Code:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 ;;; *** User configuration variables ***
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 (defgroup tildify nil
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 "Adding missing hard spaces or other text fragments into texts."
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
56 :version "21.1"
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 :group 'wp)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 (defcustom tildify-pattern-alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 '((t "\\([,:;(][ \t]*[a]\\|\\<[AIKOSUVZikosuvz]\\)\\([ \t]+\\|[ \t]*\n[ \t]*\\)\\(\\w\\|[([{\\]\\|<[a-zA-Z]\\)" 2))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 "Alist specifying where to insert hard spaces.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 Each alist item is of the form (MAJOR-MODE REGEXP NUMBER) or
37894
504c274ec49b (tildify-ignored-environments-alist):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33949
diff changeset
64 \(MAJOR-MODE . SYMBOL).
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 MAJOR-MODE defines major mode, for which the item applies. It can be either:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 - a symbol equal to the major mode of the buffer to be fixed
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 - t for default item, this applies to all major modes not defined in another
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 alist item
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 REGEXP is a regular expression matching the part of a text, where a hard space
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 is missing. The regexp is always case sensitive, regardless of the current
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 `case-fold-search' setting.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 NUMBER defines the number of the REGEXP subexpression which should be replaced
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 by the hard space character.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
79 mode, the item for the mode SYMBOL is looked up in the alist instead."
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 :group 'tildify
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 :type '(repeat (choice (list symbol regexp integer) (cons symbol symbol))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 (defcustom tildify-string-alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 '((latex-mode . "~")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 (tex-mode . latex-mode)
33949
7012133c553b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 31529
diff changeset
86 (plain-tex-mode . latex-mode)
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 (sgml-mode . "&nbsp;")
43636
30dfcb85b1ca (tildify-string-alist): Entry for xml-mode added.
Pavel Janík <Pavel@Janik.cz>
parents: 38690
diff changeset
88 (xml-mode . sgml-mode)
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 (html-mode . sgml-mode)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 (t . " "))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 "Alist specifying what is a hard space in the current major mode.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 Each alist item is of the form (MAJOR-MODE . STRING) or
37894
504c274ec49b (tildify-ignored-environments-alist):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33949
diff changeset
94 \(MAJOR-MODE . SYMBOL).
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 MAJOR-MODE defines major mode, for which the item applies. It can be either:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 - a symbol equal to the major mode of the buffer to be fixed
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 - t for default item, this applies to all major modes not defined in another
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 alist item
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 STRING defines the hard space, which is inserted at places defined by
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 `tildify-pattern-alist'. For example it can be \"~\" for TeX or \"&nbsp;\"
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 for SGML.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 The form (MAJOR-MODE . SYMBOL) defines alias item for MAJOR-MODE. For this
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
106 mode, the item for the mode SYMBOL is looked up in the alist instead."
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 :group 'tildify
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 :type '(repeat (cons symbol (choice string symbol))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43636
diff changeset
109
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110 (defcustom tildify-ignored-environments-alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
111 '((latex-mode
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112 ("\\\\\\\\" . "") ; do not remove this
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 ("\\\\begin{verbatim}" . "\\\\end{verbatim}")
37895
41ca5705b623 (tildify-ignored-environments-alist): Recognize \verb* right.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37894
diff changeset
114 ("\\\\verb\\*?\\(.\\)" . (1))
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 ("\\$\\$" . "\\$\\$")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116 ("\\$" . "\\$")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
117 ("\\\\(" . "\\\\)")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
118 ("\\\\[[]" . "\\\\[]]")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119 ("\\\\begin{math}" . "\\\\end{math}")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 ("\\\\begin{displaymath}" . "\\\\end{displaymath}")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 ("\\\\begin{equation}" . "\\\\end{equation}")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 ("\\\\begin{eqnarray\\*?}" . "\\\\end{eqnarray\\*?}")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123 ("\\\\[a-zA-Z]+\\( +\\|{}\\)[a-zA-Z]*" . "")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 ("%" . "$"))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125 (plain-tex-mode . latex-mode)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 (html-mode
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
127 ("<pre[^>]*>" . "</pre>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
128 ("<dfn>" . "</dfn>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
129 ("<code>" . "</code>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
130 ("<samp>" . "</samp>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
131 ("<kbd>" . "</kbd>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
132 ("<var>" . "</var>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
133 ("<PRE[^>]*>" . "</PRE>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
134 ("<DFN>" . "</DFN>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
135 ("<CODE>" . "</CODE>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
136 ("<SAMP>" . "</SAMP>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
137 ("<KBD>" . "</KBD>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
138 ("<VAR>" . "</VAR>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
139 ("<! *--" . "-- *>")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
140 ("<" . ">"))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
141 (sgml-mode . html-mode)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
142 (t nil))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
143 "Alist specifying ignored structured text environments.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
144 Parts of text defined in this alist are skipped without performing hard space
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
145 insertion on them. These setting allow skipping text parts like verbatim or
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
146 math environments in TeX or preformatted text in SGML.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
147
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
148 Each list element is of the form
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149 (MAJOR-MODE (BEG-REGEX . END-REGEX) (BEG-REGEX . END-REGEX) ... )
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
150
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
151 MAJOR-MODE defines major mode, for which the item applies. It can be either:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
152 - a symbol equal to the major mode of the buffer to be fixed
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
153 - t for default item, this applies to all major modes not defined in another
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
154 alist item
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
155
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
156 BEG-REGEX is a regexp matching beginning of a text part to be skipped.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
157 END-REGEX defines end of the corresponding text part and can be either:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158 - a regexp matching the end of the skipped text part
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159 - a list of regexps and numbers, which will compose the ending regexp by
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
160 concatenating themselves, while replacing the numbers with corresponding
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
161 subexpressions of BEG-REGEX (this is used to solve cases like
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
162 \\\\verb<character> in TeX)."
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
163 :group 'tildify
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
164 :type '(repeat (cons symbol (choice symbol (repeat sexp)))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
165
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
166
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
167 ;;; *** Internal variables ***
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
168
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
169 (defvar tildify-count nil
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
170 "Counter for replacements.")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
171
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
172
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 ;;; *** Interactive functions ***
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
175 ;;;###autoload
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
176 (defun tildify-region (beg end)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
177 "Add hard spaces in the region between BEG and END.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
178 See variables `tildify-pattern-alist', `tildify-string-alist', and
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
179 `tildify-ignored-environments-alist' for information about configuration
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
180 parameters.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
181 This function performs no refilling of the changed text."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182 (interactive "*r")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
183 (setq tildify-count 0)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
184 (let (a
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
185 z
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
186 (marker-end (copy-marker end))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
187 end-env
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
188 finish
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
189 (ask t)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
190 (case-fold-search nil)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
191 (regexp (tildify-build-regexp)) ; beginnings of environments
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
192 aux)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
193 (if regexp
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
194 ;; Yes, ignored environments exist for the current major mode,
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
195 ;; tildify just texts outside them
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
196 (save-excursion
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
197 (save-restriction
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
198 (widen)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
199 (goto-char (point-min))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
200 (while (not finish)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
201 (setq a (point))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
202 (setq end-env (tildify-find-env regexp))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
203 (setq z (copy-marker (if end-env (1- (point)) (point-max))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
204 (if (>= (marker-position z) beg)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
205 (progn
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
206 (or (>= a beg) (setq a beg))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
207 (or (<= (marker-position z) (marker-position marker-end))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
208 (setq z marker-end))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
209 (setq aux (tildify-tildify a (marker-position z) ask))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
210 (if (eq aux 'force)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
211 (setq ask nil)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
212 (if (eq aux nil)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
213 (setq finish t)))))
31529
7f307e299d03 Minor doc/commentary fixes.
Dave Love <fx@gnu.org>
parents: 26187
diff changeset
214 (if (>= (marker-position z) (marker-position marker-end))
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
215 (setq finish t))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
216 (or (>= (point) (marker-position z))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
217 (goto-char (marker-position z)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
218 (if (not finish)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
219 (if (re-search-forward end-env nil t)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
220 (if (> (point) (marker-position marker-end))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
221 (setq finish t))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
222 (message
65583
703495630901 Message format spec fixes (2)
Deepak Goel <deego@gnufans.org>
parents: 64751
diff changeset
223 "End of environment not found: %s" end-env)
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
224 (setq finish t))))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
225 ;; No ignored environments, tildify directly
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
226 (tildify-tildify beg end ask)))
65583
703495630901 Message format spec fixes (2)
Deepak Goel <deego@gnufans.org>
parents: 64751
diff changeset
227 (message "%d spaces replaced." tildify-count))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43636
diff changeset
228
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
229 ;;;###autoload
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
230 (defun tildify-buffer ()
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
231 "Add hard spaces in the current buffer.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
232 See variables `tildify-pattern-alist', `tildify-string-alist', and
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
233 `tildify-ignored-environments-alist' for information about configuration
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
234 parameters.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
235 This function performs no refilling of the changed text."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
236 (interactive "*")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
237 (tildify-region (point-min) (point-max)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
238
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
239
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
240 ;;; *** Auxiliary functions ***
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
241
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
242 (defun tildify-build-regexp ()
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
243 "Build start of environment regexp."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
244 (let ((alist (tildify-mode-alist tildify-ignored-environments-alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
245 regexp)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
246 (when alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
247 (setq regexp (caar alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
248 (setq alist (cdr alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
249 (while alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
250 (setq regexp (concat regexp "\\|" (caar alist)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
251 (setq alist (cdr alist)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
252 regexp)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
253
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
254 (defun tildify-mode-alist (mode-alist &optional mode)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
255 "Return alist item for the MODE-ALIST in the current major MODE."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
256 (if (null mode)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
257 (setq mode major-mode))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258 (let ((alist (cdr (or (assoc mode mode-alist)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 (assoc t mode-alist)))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
260 (if (and alist
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
261 (symbolp alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
262 (tildify-mode-alist mode-alist alist)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
263 alist)))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 43636
diff changeset
264
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
265 (defun tildify-find-env (regexp)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
266 "Find environment using REGEXP.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
267 Return regexp for the end of the environment or nil if no environment was
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
268 found."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269 ;; Find environment
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270 (if (re-search-forward regexp nil t)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271 ;; Build end-env regexp
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272 (let ((match (match-string 0))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 (alist (tildify-mode-alist tildify-ignored-environments-alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
274 expression)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275 (save-match-data
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
276 (while (not (eq (string-match (caar alist) match) 0))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
277 (setq alist (cdr alist))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
278 (if (stringp (setq expression (cdar alist)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
279 expression
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
280 (let ((result "")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
281 aux)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
282 (while expression
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 (setq result (concat result
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
284 (if (stringp (setq aux (car expression)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
285 expression
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
286 (regexp-quote (match-string aux)))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287 (setq expression (cdr expression)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288 result)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 ;; Return nil if not found
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290 nil))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
291
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
292 (defun tildify-tildify (beg end ask)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
293 "Add tilde characters in the region between BEG and END.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
294 This function does not do any further checking except of for comments and
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 macros.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297 If ASK is nil, perform replace without asking user for confirmation.
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299 Returns one of symbols: t (all right), nil (quit), force (replace without
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300 further questions)."
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301 (save-excursion
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302 (goto-char beg)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
303 (let* ((alist (tildify-mode-alist tildify-pattern-alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
304 (regexp (car alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
305 (match-number (cadr alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
306 (tilde (tildify-mode-alist tildify-string-alist))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
307 (end-marker (copy-marker end))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
308 answer
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
309 bad-answer
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310 replace
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311 quit
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
312 (message-log-max nil))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
313 (while (and (not quit)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 (re-search-forward regexp (marker-position end-marker) t))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315 (when (or (not ask)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 (progn
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 (goto-char (match-beginning match-number))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318 (setq bad-answer t)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319 (while bad-answer
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 (setq bad-answer nil)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 (message "Replace? (yn!q) ")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
322 (setq answer (read-event)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323 (cond
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324 ((or (eq answer ?y) (eq answer ? ) (eq answer 'space))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325 (setq replace t))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326 ((eq answer ?n)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327 (setq replace nil))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328 ((eq answer ?!)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 (setq replace t
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330 ask nil))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 ((eq answer ?q)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 (setq replace nil
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 quit t))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 (t
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335 (message "Press y, n, !, or q.")
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
336 (setq bad-answer t)))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
337 replace))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
338 (replace-match tilde t t nil match-number)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
339 (setq tildify-count (1+ tildify-count))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 ;; Return value
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341 (cond
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 (quit nil)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 ((not ask) 'force)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 (t t)))))
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
346
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
347 ;;; *** Announce ***
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349 (provide 'tildify)
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
350
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 ;; Local variables:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 ;; coding: iso-latin-2
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354 ;; End:
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 79719
diff changeset
356 ;; arch-tag: fc9b05a6-7355-4639-8170-dcf57853ba22
26187
eca255a79645 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357 ;;; tildify.el ends here