Dox fix.

2 files changed, 10 insertions, 9 deletions

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e589913b9bd..a99cdb4c898 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -42,7 +42,7 @@ Delete these headers from old message when it's inserted in a reply.")
 ;;;###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 @@ C-c C-v  mail-sent-via (add a sent-via field for each To or CC)."
   (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 @@ the user from the mailer."
   (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
diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el
index 891c67ea314..423de634308 100644
--- a/lisp/textmodes/scribe.el
+++ b/lisp/textmodes/scribe.el
@@ -42,8 +42,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)))
@@ -149,9 +149,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)
@@ -253,7 +253,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")