diff options
| author | Stefan Kangas | 2021-09-29 06:54:52 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2021-09-29 06:57:28 +0200 |
| commit | fcfcb35791495ea842d30efc3d87a088ecd57977 (patch) | |
| tree | 8efe27ccd118131d72ef1e26f208cdb84ecea429 | |
| parent | cbb0b5d8d5c823357951689ea4f14994e0399992 (diff) | |
| download | emacs-fcfcb35791495ea842d30efc3d87a088ecd57977.tar.gz emacs-fcfcb35791495ea842d30efc3d87a088ecd57977.zip | |
* lisp/mpc.el (mpc-format): Fix printing after last format spec.
| -rw-r--r-- | lisp/mpc.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/mpc.el b/lisp/mpc.el index 1f4cb4fe9cd..494a4b9d888 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el | |||
| @@ -1111,6 +1111,9 @@ If PLAYLIST is t or nil or missing, use the main playlist." | |||
| 1111 | (if (null size) (setq col (+ col textwidth postwidth)) | 1111 | (if (null size) (setq col (+ col textwidth postwidth)) |
| 1112 | (insert space) | 1112 | (insert space) |
| 1113 | (setq col (+ col size)))))) | 1113 | (setq col (+ col size)))))) |
| 1114 | ;; Print the rest of format-spec, in case there is text after the | ||
| 1115 | ;; last actual format specifier. | ||
| 1116 | (insert (substring format-spec pos)) | ||
| 1114 | (put-text-property start (point) 'mpc--uptodate-p pred))) | 1117 | (put-text-property start (point) 'mpc--uptodate-p pred))) |
| 1115 | 1118 | ||
| 1116 | ;;; The actual UI code ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1119 | ;;; The actual UI code ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |