Mercurial > emacs

changeset 102437:3c25891e2a47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-init-defvars) [windows-nt]: Use a special command list. Don't invoke Awk.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 07 Mar 2009 13:30:47 +0000
parents 0f0eef145055
children c9e4d48261ce
files lisp/man.el
diffstat 1 files changed, 45 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Sat Mar 07 03:47:46 2009 +0000
+++ b/lisp/man.el	Sat Mar 07 13:30:47 2009 +0000
@@ -486,36 +486,51 @@
 	(apply 'list
 	 (cons
 	  Man-sed-command
-	  (list
-	   (if Man-sed-script
-	       (concat "-e '" Man-sed-script "'")
-	     "")
-	   "-e '/^[\001-\032][\001-\032]*$/d'"
-	   "-e '/\e[789]/s///g'"
-	   "-e '/Reformatting page.  Wait/d'"
-	   "-e '/Reformatting entry.  Wait/d'"
-	   "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
-	   "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
-	   "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"
-	   "-e '/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d'"
-	   "-e '/^Printed[ \t][0-9].*[0-9]$/d'"
-	   "-e '/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d'"
-	   "-e '/^[A-Za-z].*Last[ \t]change:/d'"
-	   "-e '/^Sun[ \t]Release[ \t][0-9].*[0-9]$/d'"
-	   "-e '/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'"
-	   "-e '/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d'"
-	   ))
-	 (cons
-	  Man-awk-command
-	  (list
-	   "'\n"
-	   "BEGIN { blankline=0; anonblank=0; }\n"
-	   "/^$/ { if (anonblank==0) next; }\n"
-	   "{ anonblank=1; }\n"
-	   "/^$/ { blankline++; next; }\n"
-	   "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n"
-	   "'"
-	   ))
+	  (if (eq system-type 'windows-nt)
+	      ;; Windows needs ".." quoting, not '..'.
+	      (list
+	       "-e \"/Reformatting page.  Wait/d\""
+	       "-e \"/Reformatting entry.  Wait/d\""
+	       "-e \"/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d\""
+	       "-e \"/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d\""
+	       "-e \"/^Printed[ \t][0-9].*[0-9]$/d\""
+	       "-e \"/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d\""
+	       "-e \"/^[A-Za-z].*Last[ \t]change:/d\""
+	       "-e \"/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d\""
+	       "-e \"/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d\"")
+	    (list
+	     (if Man-sed-script
+		 (concat "-e '" Man-sed-script "'")
+	       "")
+	     "-e '/^[\001-\032][\001-\032]*$/d'"
+	     "-e '/\e[789]/s///g'"
+	     "-e '/Reformatting page.  Wait/d'"
+	     "-e '/Reformatting entry.  Wait/d'"
+	     "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
+	     "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
+	     "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"
+	     "-e '/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d'"
+	     "-e '/^Printed[ \t][0-9].*[0-9]$/d'"
+	     "-e '/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d'"
+	     "-e '/^[A-Za-z].*Last[ \t]change:/d'"
+	     "-e '/^Sun[ \t]Release[ \t][0-9].*[0-9]$/d'"
+	     "-e '/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'"
+	     "-e '/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d'"
+	     )))
+	 ;; Windows doesn't support multi-line commands, so don't
+	 ;; invoke Awk there.
+	 (unless (eq system-type 'windows-nt)
+	   (cons
+	    Man-awk-command
+	    (list
+	     "'\n"
+	     "BEGIN { blankline=0; anonblank=0; }\n"
+	     "/^$/ { if (anonblank==0) next; }\n"
+	     "{ anonblank=1; }\n"
+	     "/^$/ { blankline++; next; }\n"
+	     "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n"
+	     "'"
+	     )))
 	 (if (not Man-uses-untabify-flag)
 	     ;; The outer list will be stripped off by apply.
 	     (list (cons