summaryrefslogtreecommitdiff
path: root/lisp/calendar
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/calendar')
-rw-r--r--lisp/calendar/appt.el2
-rw-r--r--lisp/calendar/diary-lib.el8
-rw-r--r--lisp/calendar/icalendar.el14
-rw-r--r--lisp/calendar/time-date.el4
-rw-r--r--lisp/calendar/timeclock.el10
-rw-r--r--lisp/calendar/todo-mode.el22
6 files changed, 31 insertions, 29 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 426bb286ebb..d5d8a400218 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -239,7 +239,7 @@ also calls `beep' for an audible reminder."
(wrong-type-argument
(if (not (listp mins))
(signal (car err) (cdr err))
- (message "Argtype error in ‘appt-disp-window-function’ - \
+ (message "Argtype error in `appt-disp-window-function' - \
update it for multiple appts?")
;; Fallback to just displaying the first appt, as we used to.
(funcall appt-disp-window-function
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index be542d6a155..a1370bbc5e3 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)
@@ -1199,7 +1199,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
@@ -2529,7 +2529,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)
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index b75e4423080..4b71530febb 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -482,7 +482,7 @@ children."
result))
(defun icalendar--split-value (value-string)
- "Split VALUE-STRING at ‘;=’."
+ "Split VALUE-STRING at `;='."
(let ((result '())
param-name param-value)
(when value-string
@@ -1118,7 +1118,7 @@ FExport diary data into iCalendar file: ")
(setq found-error t)
(save-current-buffer
(set-buffer (get-buffer-create "*icalendar-errors*"))
- (insert (format-message "Error in line %d -- %s: ‘%s’\n"
+ (insert (format-message "Error in line %d -- %s: `%s'\n"
(count-lines (point-min) (point))
error-val
entry-main))))))
@@ -1741,7 +1741,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
(when day
(progn
(icalendar--dmsg "diary-float %s" entry-main)
- (error "Don't know if or how to implement day in ‘diary-float’")))
+ (error "Don't know if or how to implement day in `diary-float'")))
(cons (concat
;;Start today (yes this is an arbitrary choice):
@@ -1788,7 +1788,7 @@ entries. ENTRY-MAIN is the first line of the diary entry."
entry-main)
(progn
(icalendar--dmsg "diary-date %s" entry-main)
- (error "‘diary-date’ is not supported yet"))
+ (error "`diary-date' is not supported yet"))
;; no match
nil))
@@ -2104,7 +2104,7 @@ written into the buffer `*icalendar-errors*'."
(rrule (icalendar--get-event-property e 'RRULE))
(rdate (icalendar--get-event-property e 'RDATE))
(duration (icalendar--get-event-property e 'DURATION)))
- (icalendar--dmsg "%s: ‘%s’" start-d summary)
+ (icalendar--dmsg "%s: `%s'" start-d summary)
;; check whether start-time is missing
(if (and dtstart
(string=
@@ -2282,7 +2282,7 @@ END-T is the event's end time in diary format."
interval))))
)
(t
- (message "Cannot handle COUNT attribute for ‘%s’ events."
+ (message "Cannot handle COUNT attribute for `%s' events."
frequency)))
(setq until-conv (icalendar--datetime-to-diary-date until))
(setq until-1-conv (icalendar--datetime-to-diary-date until-1))
@@ -2473,7 +2473,7 @@ SUMMARY is not nil it must be a string that gives the summary of the
entry. In this case the user will be asked whether he wants to insert
the entry."
(when (or (not summary)
- (y-or-n-p (format-message "Add appointment for ‘%s’ to diary? "
+ (y-or-n-p (format-message "Add appointment for `%s' to diary? "
summary)))
(when summary
(setq non-marking
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index c13ef97c6b9..bb7e97ea7f3 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
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 797f2173e52..67fc4c546ff 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -305,8 +305,8 @@ display (non-nil means on)."
;; on calling this function.
(if display-time-mode
(timeclock-update-mode-line)
- (message "Activate ‘display-time-mode’ or turn off \
-‘timeclock-use-display-time’ to see timeclock information"))
+ (message "Activate `display-time-mode' or turn off \
+`timeclock-use-display-time' to see timeclock information"))
(add-hook 'display-time-hook 'timeclock-update-mode-line))
(setq timeclock-update-timer
(run-at-time nil 60 'timeclock-update-mode-line))))
@@ -575,7 +575,7 @@ relative only to the time worked today, and not to past time."
OLD-DEFAULT hours are set for every day that has no number indicated."
(interactive "P")
(if old-default (setq old-default (prefix-numeric-value old-default))
- (error "‘timelog-make-hours-explicit’ requires an explicit argument"))
+ (error "`timelog-make-hours-explicit' requires an explicit argument"))
(let ((extant-timelog (find-buffer-visiting timeclock-file))
current-date)
(with-current-buffer (find-file-noselect timeclock-file t)
@@ -589,7 +589,7 @@ OLD-DEFAULT hours are set for every day that has no number indicated."
(unless (looking-at
(concat "^\\([bhioO]\\) \\([0-9]+/[0-9]+/[0-9]+\\) "
"\\([0-9]+:[0-9]+:[0-9]+\\)"))
- (error "Can't parse ‘%s’" timeclock-file))
+ (error "Can't parse `%s'" timeclock-file))
(let ((this-date (match-string 2)))
(unless (or (and current-date
(string= this-date current-date))
@@ -919,7 +919,7 @@ following format:
(DEBT ENTRIES-BY-DAY ENTRIES-BY-PROJECT)
DEBT is a floating point number representing the number of seconds
-“owed” before any work was done. For a new file (one without a ‘b’
+“owed” before any work was done. For a new file (one without a `b'
entry), this is always zero.
The two entries lists have similar formats. They are both alists,
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 83f2fedf25b..a04bf8237d9 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -238,7 +238,7 @@ The final element is \"*\", indicating an unspecified month.")
(widget-put
widget :error
(format-message
- "Invalid value: must be distinct from ‘todo-item-mark’"))
+ "Invalid value: must be distinct from `todo-item-mark'"))
widget)))
:initialize 'custom-initialize-default
:set 'todo-reset-prefix
@@ -1343,12 +1343,13 @@ todo or done items."
"deleting it will also delete the file.\n"
"Do you want to proceed? ")))
((> archived 0)
- (todo-y-or-n-p (concat "This category has archived items; "
+ (todo-y-or-n-p (format-message
+ (concat "This category has archived items; "
"the archived category will remain\n"
"after deleting the todo category. "
"Do you still want to delete it\n"
- "(see ‘todo-skip-archived-categories’ "
- "for another option)? ")))
+ "(see `todo-skip-archived-categories' "
+ "for another option)? "))))
(t
(todo-y-or-n-p (concat "Permanently remove category \"" cat
"\"" (and arg " and all its entries")
@@ -1696,7 +1697,7 @@ only when no items are marked."
(widget-put
widget :error
(format-message
- "Invalid value: must be distinct from ‘todo-prefix’"))
+ "Invalid value: must be distinct from `todo-prefix'"))
widget)))
:set (lambda (symbol value)
(custom-set-default symbol (propertize value 'face 'todo-mark)))
@@ -5036,7 +5037,7 @@ but the categories sexp differs from the current value of
;; Warn user if categories sexp has changed.
(unless (string= ssexp cats)
(message (concat "The sexp at the beginning of the file differs "
- "from the value of ‘todo-categories’.\n"
+ "from the value of `todo-categories'.\n"
"If the sexp is wrong, you can fix it with "
"M-x todo-repair-categories-sexp,\n"
"but note this reverts any changes you have "
@@ -5533,7 +5534,7 @@ already entered and those still available."
(todo-insert-item--this-key)
todo-insert-item--argsleft)))))))))
(setq todo-insert-item--argsleft todo-insert-item--newargsleft))
- (when prompt (message "Press a key (so far ‘%s’): %s"
+ (when prompt (message "Press a key (so far `%s'): %s"
todo-insert-item--keys-so-far prompt))
(set-transient-map map)
(setq todo-insert-item--argsleft argsleft)))
@@ -5576,7 +5577,8 @@ already entered and those still available."
'(add/edit delete))
" comment"))))
params " "))
- (this-key (let ((key (read-key (concat todo-edit-item--prompt p->k))))
+ (key-prompt (substitute-command-keys todo-edit-item--prompt))
+ (this-key (let ((key (read-key (concat key-prompt p->k))))
(and (characterp key) (char-to-string key))))
(this-param (car (rassoc this-key params))))
(pcase this-param
@@ -5587,7 +5589,7 @@ already entered and those still available."
(`delete (todo-edit-item--text 'comment-delete))
(`diary (todo-edit-item--diary-inclusion))
(`nonmarking (todo-edit-item--diary-inclusion 'nonmarking))
- (`date (let ((todo-edit-item--prompt "Press a key (so far ‘e d’): "))
+ (`date (let ((todo-edit-item--prompt "Press a key (so far `e d'): "))
(todo-edit-item--next-key
todo-edit-item--date-param-key-alist arg)))
(`full (progn (todo-edit-item--header 'date)
@@ -6602,7 +6604,7 @@ Added to `window-configuration-change-hook' in Todo mode."
(if (called-interactively-p 'any)
(message "%s"
(substitute-command-keys
- "Type ‘\\[todo-show]’ to enter Todo mode"))
+ "Type `\\[todo-show]' to enter Todo mode"))
(todo-modes-set-1)
(todo-modes-set-2)
(todo-modes-set-3)
generated by cgit v1.2.3 (git 2.39.1) at 2025-04-17 15:07:44 +0000