From 26bd978d87dfbf9baa115cd961a67d42b416c4bf Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 3 Sep 2015 15:31:12 -0700 Subject: Fix some more docstring etc. quoting problems MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Mostly these fixes prevent the transliteration of apostrophes that should stay apostrophes. Also, prefer curved quotes in Bahá’í proper names, as that’s the preferred Bahá’í style and these names are chock-full of non-ASCII characters anyway. * lisp/emacs-lisp/eieio-core.el (eieio-defclass-autoload) (eieio-defclass-internal): * lisp/emacs-lisp/eieio.el (defclass): * lisp/hi-lock.el (hi-lock-mode): Don’t transliterate Lisp apostrophes when generating a doc string or diagnostic. * lisp/international/mule-diag.el (list-coding-systems-1): * lisp/international/ogonek.el (ogonek-jak, ogonek-how): * lisp/mail/sendmail.el (sendmail-query-user-about-smtp): * lisp/vc/ediff-mult.el (ediff-redraw-registry-buffer): * lisp/vc/ediff-ptch.el (ediff-fixup-patch-map): Substitute quotes before putting them in the help buffer. --- lisp/calendar/diary-lib.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/calendar/diary-lib.el') diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index b21fc687144..be542d6a155 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -300,7 +300,7 @@ expressions that can involve the keywords `days' (a number), `date' (defcustom diary-abbreviated-year-flag t "Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. -This applies to the Gregorian, Hebrew, Islamic, and Bahá'í calendars. +This applies to the Gregorian, Hebrew, Islamic, and Bahá’í calendars. When the current century is added to a two-digit year, if the result is more than 50 years in the future, the previous century is assumed. If the result is more than 50 years in the past, the next century is assumed. @@ -1531,7 +1531,7 @@ passed to `calendar-mark-visible-date' as MARK." (calendar-mark-month m y month day year color) (calendar-increment-month m y 1))))) -;; Bahai, Hebrew, Islamic. +;; Bahá’í, Hebrew, Islamic. (defun calendar-mark-complex (month day year fromabs &optional color) "Mark dates in the calendar conforming to MONTH DAY YEAR of some system. The function FROMABS converts absolute dates to the appropriate date system. @@ -1561,7 +1561,7 @@ Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK." (calendar-mark-visible-date (calendar-gregorian-from-absolute date) color))))) -;; Bahai, Islamic. +;; Bahá’í, Islamic. (defun calendar-mark-1 (month day year fromabs toabs &optional color) "Mark dates in the calendar conforming to MONTH DAY YEAR of some system. The function FROMABS converts absolute dates to the appropriate date system. @@ -1659,8 +1659,8 @@ on a weekend: &%%(let ((dayname (calendar-day-of-week date)) (day (calendar-extract-day date))) (or - (and (= day 21) (memq dayname '(1 2 3 4 5))) - (and (memq day '(19 20)) (= dayname 5))) + (and (= day 21) (memq dayname \\='(1 2 3 4 5))) + (and (memq day \\='(19 20)) (= dayname 5))) ) UIUC pay checks deposited A number of built-in functions are available for this type of -- cgit v1.2.1