# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823469440 0
# Node ID 0ebde55bb21df195d7ff601336a44645638d5a87
# Parent  ce77caa93022c7510ad0c53099748d04d9f747cd
(lm-insert-at-column): Renamed from insert-at-column.
All callers changed.
(lm-synopsis): Add interactive spec.

diff -r ce77caa93022 -r 0ebde55bb21d lisp/emacs-lisp/lisp-mnt.el
--- a/lisp/emacs-lisp/lisp-mnt.el	Sun Feb 04 21:11:50 1996 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Sun Feb 04 21:30:40 1996 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Created: 14 Jul 1992
-;; Version: $Id: lisp-mnt.el,v 1.12 1996/01/14 07:34:30 erik Exp kwzh $
+;; Version: $Id: lisp-mnt.el,v 1.13 1996/01/25 00:55:13 kwzh Exp rms $
 ;; Keywords: docs
 ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
 
@@ -335,7 +335,7 @@
 
 ;;; Verification and synopses
 
-(defun insert-at-column (col &rest pieces)
+(defun lm-insert-at-column (col &rest pieces)
    (if (> (current-column) col) (insert "\n"))
    (move-to-column-force col)
    (apply 'insert pieces))
@@ -357,11 +357,11 @@
 		  (if status
 		      (progn
 			(insert f ":")
-			(insert-at-column lm-comment-column status "\n"))
+			(lm-insert-at-column lm-comment-column status "\n"))
 		    (and showok
 			 (progn
 			   (insert f ":")
-			   (insert-at-column lm-comment-column "OK\n")))))))
+			   (lm-insert-at-column lm-comment-column "OK\n")))))))
 	(directory-files file))
     )
   (save-excursion
@@ -388,6 +388,7 @@
 If FILE is a directory, recurse on its files and generate a report into
 a temporary buffer.  If SHOWALL is on, also generate a line for files
 which do not include a recognizable synopsis."
+  (interactive "fSynopsis for (file or dir): ")
   (if (and file (file-directory-p file))
       (progn
 	(switch-to-buffer (get-buffer-create "*lm-verify*"))
@@ -399,11 +400,11 @@
 		  (if syn
 		      (progn
 			(insert f ":")
-			(insert-at-column lm-comment-column syn "\n"))
+			(lm-insert-at-column lm-comment-column syn "\n"))
 		    (and showall
 			 (progn
 			   (insert f ":")
-			   (insert-at-column lm-comment-column "NA\n")))))))
+			   (lm-insert-at-column lm-comment-column "NA\n")))))))
 	 (directory-files file))
 	)
     (save-excursion