summaryrefslogtreecommitdiff
path: root/lisp/mail/supercite.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2015-05-19 19:08:11 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2015-05-19 19:08:52 -0700
commitf743819b57ef519109c1b9d520d358d19a197086 (patch)
treef1f175931ab3b9750ef51cbf92202f8856c94afe /lisp/mail/supercite.el
parent9d35bb8d6518bb913ab08bace2af08963c003177 (diff)
downloademacs-f743819b57ef519109c1b9d520d358d19a197086.tar.gz
Prefer "this" to “this” in doc strings
This mostly just straightens quotes introduced in my previous patch. Suggested by Dmitry Gutov in: http://lists.gnu.org/archive/html/emacs-devel/2015-05/msg00565.html * lisp/faces.el, lisp/gnus/gnus-group.el, lisp/ldefs-boot.el: * lisp/mail/supercite.el, lisp/net/tramp.el, lisp/recentf.el: * lisp/textmodes/artist.el, lisp/textmodes/rst.el: * lisp/textmodes/tildify.el, lisp/vc/ediff-util.el: * lisp/vc/log-edit.el, lisp/xt-mouse.el: Prefer straight double quotes to curved double quotes in doc strings.
Diffstat (limited to 'lisp/mail/supercite.el')
-rw-r--r--lisp/mail/supercite.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index f6b27c24f98..56158cc156c 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -886,10 +886,10 @@ Action can be one of: View, Modify, Add, or Delete."
(defun sc-attribs-%@-addresses (from &optional delim)
"Extract the author's email terminus from email address FROM.
-Match addresses of the style “name%[stuff].” when called with DELIM
-of \"%\" and addresses of the style “[stuff]name@[stuff]” when
+Match addresses of the style \"name%[stuff].\" when called with DELIM
+of \"%\" and addresses of the style \"[stuff]name@[stuff]\" when
called with DELIM \"@\". If DELIM is nil or not provided, matches
-addresses of the style “name”."
+addresses of the style \"name\"."
(and (string-match (concat "[-[:alnum:]_.]+" delim) from 0)
(substring from
(match-beginning 0)
@@ -897,7 +897,7 @@ addresses of the style “name”."
(defun sc-attribs-!-addresses (from)
"Extract the author's email terminus from email address FROM.
-Match addresses of the style “[stuff]![stuff]...!name[stuff].”"
+Match addresses of the style \"[stuff]![stuff]...!name[stuff].\""
(let ((eos (length from))
(mstart (string-match "![-[:alnum:]_.]+\\([^-![:alnum:]_.]\\|$\\)"
from 0))
@@ -907,7 +907,7 @@ Match addresses of the style “[stuff]![stuff]...!name[stuff].”"
(defun sc-attribs-<>-addresses (from)
"Extract the author's email terminus from email address FROM.
-Match addresses of the style “<name[stuff]>.”"
+Match addresses of the style \"<name[stuff]>.\""
(and (string-match "<\\(.*\\)>" from)
(match-string 1 from)))