diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-17 16:08:20 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-17 16:09:39 -0700 |
| commit | 284c470ef752967fcd8bae6a450dc138462b1e49 (patch) | |
| tree | 83e8bcfe4c756e741ee9d4ecdf80f6b8d0e73c91 /lisp/woman.el | |
| parent | d149ff5233805c0a09b6067e0cf27549291cc83a (diff) | |
| download | emacs-284c470ef752967fcd8bae6a450dc138462b1e49.tar.gz | |
Backslash cleanup in Elisp source files
This patch should not change behavior. It typically omits backslashes
where they are redundant (e.g., in the string literal "^\$").
In a few places, insert backslashes where they make regular
expressions clearer: e.g., replace "^\*" (equivalent to "^*") with
"^\\*", which has the same effect as a regular expression.
Also, use ‘\ %’ instead of ‘\%’ when avoiding confusion with SCCS IDs,
and similarly use ‘\ $’ instead of ‘\$’ when avoiding confusion with
RCS IDs, as that makes it clearer that the backslash is intended.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index b4f4669de92..8fe1bfa0446 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -3549,7 +3549,7 @@ The expression may be an argument in quotes." (if (> (woman-parse-numeric-value) 0) 1 0)) ))) )) -; (if (looking-at "[ \t\nRC\)\"]") ; R, C are tab types +; (if (looking-at "[ \t\nRC)\"]") ; R, C are tab types ; () ; (WoMan-warn "Unimplemented numerical operator `%c' in %s" ; (following-char) @@ -3583,7 +3583,7 @@ expression in parentheses. Leaves point after the value." ;; string-to-number returns 0 if number not parsed. (string-to-number (match-string 0))) ((looking-at "\\\\n\\([-+]\\)?\\(?:\ -\\[\\([^]]+\\)\\]\\|\(\\(..\\)\\|\\(.\\)\\)") +\\[\\([^]]+\\)\\]\\|(\\(..\\)\\|\\(.\\)\\)") ;; interpolate number register, maybe auto-incremented (let* ((pm (match-string-no-properties 1)) (name (or (match-string-no-properties 2) @@ -3761,7 +3761,7 @@ Round to whole lines, default 1 line. Format paragraphs upto TO. (defun woman2-TH (to) ".TH n c x v m -- Begin a man page. Format paragraphs upto TO. -n is the name of the page in chapter c\; x is extra commentary\; +n is the name of the page in chapter c; x is extra commentary; v alters page foot left; m alters page head center. \(Should set prevailing indent and tabs to 5.)" (woman-forward-arg 'unquote 'concat) @@ -4349,7 +4349,7 @@ Format paragraphs upto TO." (defun woman2-ta (to) ".ta Nt ... -- Set tabs, left type, unless t=R(right), C(centered). -\(Breaks, but should not.) The tab stops are separated by spaces\; +\(Breaks, but should not.) The tab stops are separated by spaces; a value preceded by + represents an increment to the previous stop value. Format paragraphs upto TO." (setq tab-stop-list nil) |