changeset 1539:5677f906bf78

Dox fix.

--- a/lisp/mail/sendmail.el	Tue Nov 03 09:25:26 1992 +0000
+++ b/lisp/mail/sendmail.el	Tue Nov 03 19:47:32 1992 +0000
@@ -42,7 +42,7 @@
 ;;;###autoload
 (defconst send-mail-function 'sendmail-send-it "\
 Function to call to send the current buffer as mail.
-The headers are be delimited by a line which is mail-header-separator.")
+The headers are be delimited by a line which is `mail-header-separator'.")
 
 ;;;###autoload
 (defvar mail-header-separator "--text follows this line--" "\
@@ -211,7 +211,7 @@
   (define-key mail-mode-map "\C-c\C-s" 'mail-send))
 
 (defun mail-send-and-exit (arg)
-  "Send message like mail-send, then, if no errors, exit from mail buffer.
+  "Send message like `mail-send', then, if no errors, exit from mail buffer.
 Prefix arg means don't delete this window."
   (interactive "P")
   (mail-send)
@@ -518,7 +518,7 @@
   (search-forward (concat "\n" mail-header-separator "\n")))
 
 (defun mail-signature (atpoint)
-  "Sign letter with contents of mail-signature-file."
+  "Sign letter with contents of `mail-signature-file'."
   (interactive "P")
   (save-excursion
     (or atpoint

--- a/lisp/textmodes/scribe.el	Tue Nov 03 09:25:26 1992 +0000
+++ b/lisp/textmodes/scribe.el	Tue Nov 03 19:47:32 1992 +0000
@@ -42,8 +42,8 @@
   "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)))
@@ -149,9 +149,9 @@
   (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)
@@ -253,7 +253,8 @@
   (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")