(run-scheme): Delete autoload cookie.

[gnu-emacs] / lisp / textmodes / scribe.el

diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el
index d722989ebdf36e3ebf9af22dba3af0ba82547c94..d664292c3d115304c0f140abc3e07735ea6c4991 100644 (file)
--- a/lisp/textmodes/scribe.el
+++ b/lisp/textmodes/scribe.el
@@ -1,10 +1,10 @@
 ;;; scribe.el --- scribe mode, and its idiosyncratic commands.
 
-;; Maintainer: FSF
-;; Last-Modified: 9 May 1991
-
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+;; Keywords: wp
+
 ;; This file might become part of GNU Emacs.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -21,6 +21,12 @@
 ;; It should be in a file named COPYING.  Among other things, the
 ;; copyright notice and this notice must be preserved on all copies.
 
+;;; Commentary:
+
+;; A major mode for editing source in written for the Scribe text formatter.
+;; Knows about Scribe syntax and standard layout rules.  The command to
+;; run Scribe on a buffer is bogus; someone interested should fix it.
+
 ;;; Code:
 
 (defvar scribe-mode-syntax-table nil
@@ -43,8 +49,8 @@ if typed after an @Command form.")
   "Open parenthesis characters for Scribe.")
 
 (defconst scribe-close-parentheses "])}>"
-  "Close parenthesis characters for Scribe.  These should match up with
-scribe-open-parenthesis.")
+  "Close parenthesis characters for Scribe.
+These should match up with `scribe-open-parenthesis'.")
 
 (if (null scribe-mode-syntax-table)
     (let ((st (syntax-table)))
@@ -150,9 +156,9 @@ scribe-electric-parenthesis
   (call-interactively 'compile))
 
 (defun scribe-envelop-word (string count)
-  "Surround current word with Scribe construct @STRING[...].  COUNT
-specifies how many words to surround.  A negative count means to skip 
-backward."
+  "Surround current word with Scribe construct @STRING[...].
+COUNT specifies how many words to surround.  A negative count means
+to skip backward."
   (let ((spos (point)) (epos (point)) (ccoun 0) noparens)
     (if (not (zerop count))
        (progn (if (= (char-syntax (preceding-char)) ?w)
@@ -254,7 +260,8 @@ backward."
   (forward-char -1))
 
 (defun scribe-insert-quote (count)
-  "If scribe-electric-quote is non-NIL, insert ``, '' or \" according
+  "Insert ``, '' or \" according to preceding character.
+If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according
 to preceding character.  With numeric arg N, always insert N \" characters.
 Else just insert \"."
   (interactive "P")