From 4bfee81711b64e10808f8b1846818e29ef16cb94 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 22 Aug 2015 03:47:41 +0000 Subject: [PATCH] * auth-source.el (auth-sources): Prefer (substitute-command-keys "`\\[foo-command]'") to "`M-x foo-command'" in docstring. * time-date.el (format-seconds): Use curved quotes in diagnostic format strings. --- lisp/ChangeLog | 7 +++++++ lisp/auth-source.el | 2 +- lisp/time-date.el | 4 ++-- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e21a7355b..f2279f158 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2015-08-21 Paul Eggert + * auth-source.el (auth-sources): + Prefer (substitute-command-keys "`\\[foo-command]'") + to "`M-x foo-command'" in docstring. + + * time-date.el (format-seconds): + Use curved quotes in diagnostic format strings. + * nnmairix.el (nnmairix-propagate-marks-upon-close): * pop3.el (pop3-authentication-scheme): Don't quote symbols with apostrophes in doc strings. diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 26994d5dc..518e9e51c 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -252,7 +252,7 @@ EPA/EPG set up, the file will be encrypted and decrypted automatically. See Info node `(epa)Encrypting/decrypting gpg files' for details. -It's best to customize this with `M-x customize-variable' because the choices +It's best to customize this with `\\[customize-variable]' because the choices can get pretty complex." :group 'auth-source :version "24.1" ;; No Gnus diff --git a/lisp/time-date.el b/lisp/time-date.el index bb7e97ea7..c13ef97c6 100644 --- a/lisp/time-date.el +++ b/lisp/time-date.el @@ -377,9 +377,9 @@ This function does not work for SECONDS greater than `most-positive-fixnum'." spec (match-string 1 string)) (unless (string-equal spec "%") (or (setq match (assoc (downcase spec) units)) - (error "Bad format specifier: `%s'" spec)) + (error "Bad format specifier: ‘%s’" spec)) (if (assoc (downcase spec) usedunits) - (error "Multiple instances of specifier: `%s'" spec)) + (error "Multiple instances of specifier: ‘%s’" spec)) (if (string-equal (car match) "z") (setq zeroflag t) (unless larger -- 2.25.1