From: Chris Hanson Date: Fri, 11 Apr 1997 04:44:07 +0000 (+0000) Subject: Add command M-x clean-manual-entry. X-Git-Tag: 20090517-FFI~5217 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ffa142d91a6baa5705a42299546bdaa2fa25c7d2;p=mit-scheme.git Add command M-x clean-manual-entry. --- diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm index bf108a41c..afe969b81 100644 --- 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 a21902935..5be77a6e0 100644 --- 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)))) (define (nuke-nroff-bs buffer) (nuke-underlining buffer)