diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 6 | ||||
| -rw-r--r-- | lisp/textmodes/scribe.el | 13 |
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") |