(forward-line (1- todo-previous-line))
(let ((item (todo-item-string-start)))
(setq todo-previous-answer
- (y-or-n-p (format-message "More important than ā%sā? " item)))))
+ (y-or-n-p (format-message "More important than `%s'? " item)))))
todo-previous-answer)
(defalias 'todo-ask-p 'todo-more-important-p)