Commit 33b4a308 authored by Christopher Zaborsky's avatar Christopher Zaborsky
Browse files

Dox fix.

parent 2de735de
......@@ -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
......
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment