mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Minor backslash fixes in manuals and scripts

Browse Source 
* Makefile.in (install-arch-indep):
* admin/charsets/compact.awk:
* admin/charsets/gb180302.awk (gb_to_index):
* admin/charsets/gb180304.awk (gb_to_index):
Avoid undefined behavior in Awk regular expression backslashes.
* doc/misc/efaq.texi (Matching parentheses):
Omit unnecessary backslashes.
* doc/misc/gnus-faq.texi (FAQ 5-8):
Avoid undefined behavior in suggested sed backslash usage.
This commit is contained in:
Paul Eggert 2015-09-16 15:52:09 -07:00
parent 8865587c55
commit dc436dd77f
6 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile.in
View File

@ -593,8 +593,8 @@ install-arch-indep: lisp install-info install-man ${INSTALL_ARCH_INDEP_EXTRA}
rm -f $${subdir}/.gitignore ; \
rm -f $${subdir}/.arch-inventory ; \
rm -f $${subdir}/.DS_Store ; \
rm -f $${subdir}/\#* ; \
rm -f $${subdir}/.\#* ; \
rm -f $${subdir}/#* ; \
rm -f $${subdir}/.#* ; \
rm -f $${subdir}/*~ ; \
rm -f $${subdir}/*.orig ; \
rm -f $${subdir}/ChangeLog* ; \

3
admin/charsets/compact.awk
View File

@ -69,7 +69,7 @@ function decode_hex(str, idx) {
return n;
}
/^\#/ {
/^#/ {
print;
next;
}
@ -119,4 +119,3 @@ END {
printf "0x%04X-0x%04X 0x%04X\n", from_code, to_code, from_unicode;
}
}

5
admin/charsets/gb180302.awk
View File

@ -53,7 +53,7 @@ function decode_hex(str) {
function gb_to_index(gb) {
b0 = int(gb / 256);
b1 = gb % 256;
idx = (((b0 - 129)) * 191 + b1 - 64);
idx = (((b0 - 129)) * 191 + b1 - 64);
# if (b1 >= 128)
# idx--;
return idx
@ -67,7 +67,7 @@ function index_to_gb(idx) {
return (b0 * 256 + b1);
}
/^\#/ {
/^#/ {
print;
next;
}
@ -108,4 +108,3 @@ END {
printf "0x%04X-0x%04X 0x%04X\n",
index_to_gb(from_gb), index_to_gb(to_gb), from_unicode;
}

5
admin/charsets/gb180304.awk
View File

@ -49,7 +49,7 @@ function decode_hex(str) {
function gb_to_index(gb) {
b0 = int(gb / 256);
b1 = gb % 256;
idx = (((b0 - 129)) * 191 + b1 - 64);
idx = (((b0 - 129)) * 191 + b1 - 64);
# if (b1 >= 127)
# idx--;
return idx
@ -65,7 +65,7 @@ function index_to_gb(idx) {
return sprintf("%02X%02X%02X%02X", b0, b1, b2, b3);
}
/^\#/ {
/^#/ {
print;
next;
}
@ -119,4 +119,3 @@ END {
}
}
}

4
doc/misc/efaq.texi
View File

@ -2089,8 +2089,8 @@ parenthesis, it simply inserts a % like normal.
(defun match-paren (arg)
"Go to the matching paren if on a paren; otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(cond ((looking-at "\\s(") (forward-list 1) (backward-char 1))
((looking-at "\\s)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
@end lisp

2
doc/misc/gnus-faq.texi
View File

@ -1528,7 +1528,7 @@ and create the actual X-face by saying
@example
cat file.xbm | xbm2ikon | compface > file.face
cat file.face | sed 's/\\/\\\\/g;s/\"/\\\"/g;' > file.face.quoted
cat file.face | sed 's/["\\]/\\&/g' > file.face.quoted
@end example
@noindent