diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-21 05:02:51 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-21 05:03:38 -0700 |
| commit | 8c01e88921f00e5b5807541c8d3a8872912e79c5 (patch) | |
| tree | cfab1fb2eef837a747522e0b5e404c3bf0e76081 /lisp/calendar/time-date.el | |
| parent | 21c2b4ac52e2b1eb971e6f1e039db9108949e0eb (diff) | |
| download | emacs-8c01e88921f00e5b5807541c8d3a8872912e79c5.tar.gz | |
Follow user preference in calendar diagnostics
Respect text-quoting-style preference in diagnostic formats by
using curved quotes (which are translated as per text-quoting-style)
instead of grave accent and apostrophe (which are not).
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
Use curved quotes in diagnostic format strings.
* lisp/calendar/icalendar.el (icalendar-import-format-sample):
* test/automated/icalendar-tests.el (icalendar--import-format-sample):
Just use straight quoting for simple test case.
Diffstat (limited to 'lisp/calendar/time-date.el')
| -rw-r--r-- | lisp/calendar/time-date.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index bb7e97ea7f3..c13ef97c6b9 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/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 |