diff options
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 6 | ||||
| -rw-r--r-- | lisp/calendar/todo-mode.el | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index ec02900f495..b21fc687144 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -910,10 +910,12 @@ This is recursive; that is, included files may include other files." (diary-list-entries original-date number t))))) (display-warning :error - (format "Can't read included diary file %s\n" diary-file))) + (format-message "Can't read included diary file %s\n" + diary-file))) (display-warning :error - (format "Can't find included diary file %s\n" diary-file))))) + (format-message "Can't find included diary file %s\n" + diary-file))))) (goto-char (point-min))) (defun diary-include-other-diary-files () diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 925d00866d1..83f2fedf25b 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -237,7 +237,8 @@ The final element is \"*\", indicating an unspecified month.") (when (string= (widget-value widget) todo-item-mark) (widget-put widget :error - "Invalid value: must be distinct from ‘todo-item-mark’") + (format-message + "Invalid value: must be distinct from ‘todo-item-mark’")) widget))) :initialize 'custom-initialize-default :set 'todo-reset-prefix @@ -1694,7 +1695,8 @@ only when no items are marked." (when (string= (widget-value widget) todo-prefix) (widget-put widget :error - "Invalid value: must be distinct from ‘todo-prefix’") + (format-message + "Invalid value: must be distinct from ‘todo-prefix’")) widget))) :set (lambda (symbol value) (custom-set-default symbol (propertize value 'face 'todo-mark))) |