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/diary-lib.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/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 1cb13e412b6..dd068196adc 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -484,8 +484,8 @@ If so, return the expanded file name, otherwise signal an error." (if (and diary-file (file-exists-p diary-file)) (if (file-readable-p diary-file) diary-file - (error "Diary file `%s' is not readable" diary-file)) - (error "Diary file `%s' does not exist" diary-file))) + (error "Diary file ‘%s’ is not readable" diary-file)) + (error "Diary file ‘%s’ does not exist" diary-file))) ;;;###autoload (defun diary (&optional arg) @@ -1197,7 +1197,7 @@ ensure that all relevant variables are set. " (interactive "P") (if (string-equal diary-mail-addr "") - (user-error "You must set `diary-mail-addr' to use this command") + (user-error "You must set ‘diary-mail-addr’ to use this command") (let ((diary-display-function 'diary-fancy-display)) (diary-list-entries (calendar-current-date) (or ndays diary-mail-days))) (compose-mail diary-mail-addr @@ -2527,7 +2527,7 @@ entry is found the user is asked to confirm its addition." #'diary-from-outlook-rmail) ((memq major-mode '(gnus-summary-mode gnus-article-mode)) #'diary-from-outlook-gnus) - (t (error "Don't know how to snarf in `%s'" major-mode))))) + (t (error "Don't know how to snarf in ‘%s’" major-mode))))) (funcall func noconfirm))) (provide 'diary-lib) |