From 9321d8d7f90c215a691f7768873561f31b7bf429 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 25 Oct 2012 02:26:22 +0800 Subject: [PATCH] * time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only. --- lisp/ChangeLog | 2 ++ lisp/time.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1ca082a52ad..a911832a8fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * time.el (display-time-world-mode): Derive from special-mode. (display-time-world): Use display-buffer (Bug#12708). (display-time-world-mode-map): Variable deleted. + (display-time-world-display): Wrap the final delete-char inside + inhibit-read-only. 2012-10-24 Chong Yidong diff --git a/lisp/time.el b/lisp/time.el index c08fadd4b4e..7473994ffa5 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -543,8 +543,8 @@ See `display-time-world'." (setenv "TZ" old-tz)) (setq fmt (concat "%-" (int-to-string max-width) "s %s\n")) (dolist (timedata (nreverse result)) - (insert (format fmt (car timedata) (cdr timedata))))) - (delete-char -1)) + (insert (format fmt (car timedata) (cdr timedata)))) + (delete-char -1))) ;;;###autoload (defun display-time-world () -- 2.39.2