changeset 9675:5186676f806f

*** empty log message ***
author Francesco Potortì <pot@gnu.org>
date Mon, 24 Oct 1994 12:37:01 +0000
parents e5a897cf215d
children 03324d1a8d7f
files lisp/man.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Mon Oct 24 04:41:21 1994 +0000
+++ b/lisp/man.el	Mon Oct 24 12:37:01 1994 +0000
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author:		Barry A. Warsaw <bwarsaw@cen.com>
-;; Last-Modified:	$Date: 1994/10/06 10:28:26 $
-;; Version:		$Revision: 1.52 $
+;; Last-Modified:	$Date: 1994/10/20 10:04:17 $
+;; Version:		$Revision: 1.53 $
 ;; Keywords:		help
 ;; Adapted-By:		ESR, pot
 
@@ -647,7 +647,7 @@
   (interactive)
   (message "Please wait: cleaning up the %s man page..."
 	   Man-arguments)
-  (or Man-sed-script
+  (if (or (interactive-p) (not Man-sed-script))
       (progn
 	(goto-char (point-min))
 	(while (search-forward "_\b" nil t) (backward-delete-char 2))