Add command M-x clean-manual-entry.

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index bf108a41c339b95a9615cb17869b13939a0c0684..afe969b81de7f316d5b7164c952484ace39eb0e3 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: loadef.scm,v 1.30 1997/03/07 23:34:51 cph Exp $
+;;;    $Id: loadef.scm,v 1.31 1997/04/11 04:44:07 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -137,6 +137,10 @@ commands to save keystrokes.")
 (define-autoload-command 'manual-entry 'MANUAL
   "Display UNIX man page.")
 
+(define-autoload-command 'clean-manual-entry 'MANUAL
+  "Clean the unix manual entry in the current buffer.
+The current buffer should contain a formatted manual entry.")
+
 (define-variable manual-entry-reuse-buffer?
   "If true, MANUAL-ENTRY uses buffer *Manual-Entry* for all entries.
 Otherwise, a new buffer is created for each topic."

diff --git a/v7/src/edwin/manual.scm b/v7/src/edwin/manual.scm
index a21902935b2f5f3f16bfac1bd60b702740e458ea..5be77a6e0e7ce03cbb80315dfc2a79ab430e24e5 100644 (file)
--- a/v7/src/edwin/manual.scm
+++ b/v7/src/edwin/manual.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: manual.scm,v 1.13 1997/03/04 06:43:19 cph Exp $
+;;;    $Id: manual.scm,v 1.14 1997/04/11 04:43:25 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-97 Massachusetts Institute of Technology
 ;;;
@@ -97,6 +97,12 @@ where SECTION is the desired section of the manual, as in `tty(4)'."
        (set-buffer-point! buffer (buffer-start buffer))
        (pop-up-buffer buffer false)
        (message "Manual page ready")))))
+
+(define-command clean-manual-entry
+  "Clean the unix manual entry in the current buffer.
+The current buffer should contain a formatted manual entry."
+  ()
+  (lambda () (nuke-nroff-bs (current-buffer))))
 \f
 (define (nuke-nroff-bs buffer)
   (nuke-underlining buffer)