Mercurial > emacs
annotate lisp/textmodes/underline.el @ 96849:d049ef97c446
* print.c (print_object): Check print_depth before searching for
circularities.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 21 Jul 2008 05:02:31 +0000 |
parents | f4a69fedbd46 |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
24970
diff
changeset
|
1 ;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs |
657
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
258
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
79719 | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
841 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
657
diff
changeset
|
6 ;; Maintainer: FSF |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: wp |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
657
diff
changeset
|
8 |
36 | 9 ;; This file is part of GNU Emacs. |
10 | |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
36 | 12 ;; 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
|
13 ;; 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
|
14 ;; (at your option) any later version. |
36 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; 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
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
36 | 23 |
2319
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
24 ;;; Commentary: |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
25 |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
26 ;; This package deals with the primitive form of underlining |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
27 ;; consisting of prefixing each character with "_\^h". The entry |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
28 ;; point `underline-region' performs such underlining on a region. |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
29 ;; The entry point `ununderline-region' removes it. |
d98c49df2acd
Added or corrected Commentary section
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
841
diff
changeset
|
30 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
657
diff
changeset
|
31 ;;; Code: |
36 | 32 |
258 | 33 ;;;###autoload |
36 | 34 (defun underline-region (start end) |
35 "Underline all nonblank characters in the region. | |
36 Works by overstriking underscores. | |
37 Called from program, takes two arguments START and END | |
38 which specify the range to operate on." | |
24970
3796fd32e28d
(underline-region, ununderline-region): Add * to interactive spec.
Dave Love <fx@gnu.org>
parents:
18383
diff
changeset
|
39 (interactive "*r") |
36 | 40 (save-excursion |
41 (let ((end1 (make-marker))) | |
42 (move-marker end1 (max start end)) | |
43 (goto-char (min start end)) | |
44 (while (< (point) end1) | |
45 (or (looking-at "[_\^@- ]") | |
6340
e9c46ef0a877
(underline-region, ununderline-region): Use printable escapes instead of
Karl Heuer <kwzh@gnu.org>
parents:
2319
diff
changeset
|
46 (insert "_\b")) |
36 | 47 (forward-char 1))))) |
48 | |
258 | 49 ;;;###autoload |
36 | 50 (defun ununderline-region (start end) |
51 "Remove all underlining (overstruck underscores) in the region. | |
52 Called from program, takes two arguments START and END | |
53 which specify the range to operate on." | |
24970
3796fd32e28d
(underline-region, ununderline-region): Add * to interactive spec.
Dave Love <fx@gnu.org>
parents:
18383
diff
changeset
|
54 (interactive "*r") |
36 | 55 (save-excursion |
56 (let ((end1 (make-marker))) | |
57 (move-marker end1 (max start end)) | |
58 (goto-char (min start end)) | |
6340
e9c46ef0a877
(underline-region, ununderline-region): Use printable escapes instead of
Karl Heuer <kwzh@gnu.org>
parents:
2319
diff
changeset
|
59 (while (re-search-forward "_\b\\|\b_" end1 t) |
36 | 60 (delete-char -2))))) |
657
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
258
diff
changeset
|
61 |
18383 | 62 (provide 'underline) |
63 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
64 ;; arch-tag: e7b48582-c3ea-4386-987a-87415f3c372a |
657
fec3f9a1e3e5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
258
diff
changeset
|
65 ;;; underline.el ends here |