diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-04 21:30:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-04 21:30:40 +0000 |
| commit | f9636fb2c4b8c05f2a9cab70440f30c7cca07fbd (patch) | |
| tree | 2bfe30a995fd3796d1eed00a904a08c9336d77e7 /lisp/emacs-lisp | |
| parent | 8ba83f4b87a73dc6cca6a831d472204013c678cc (diff) | |
| download | emacs-f9636fb2c4b8c05f2a9cab70440f30c7cca07fbd.tar.gz emacs-f9636fb2c4b8c05f2a9cab70440f30c7cca07fbd.tar.bz2 emacs-f9636fb2c4b8c05f2a9cab70440f30c7cca07fbd.zip | |
(lm-insert-at-column): Renamed from insert-at-column.
All callers changed.
(lm-synopsis): Add interactive spec.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 5bc159f4c8d..05e7f58d321 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -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 @@ a temporary buffer." (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 @@ a temporary buffer." 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 @@ which do not include a recognizable synopsis." (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 |