diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-10-25 02:26:22 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-25 02:26:22 +0800 |
| commit | 9321d8d7f90c215a691f7768873561f31b7bf429 (patch) | |
| tree | a4e4a17f64cb0f7bba16601bf8941452d451c9c4 /lisp/time.el | |
| parent | 576978b40060f089567e5f1db7274d5aabf2c088 (diff) | |
| download | emacs-9321d8d7f90c215a691f7768873561f31b7bf429.tar.gz | |
* time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |