aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2021-09-29 06:54:52 +0200
committerStefan Kangas2021-09-29 06:57:28 +0200
commitfcfcb35791495ea842d30efc3d87a088ecd57977 (patch)
tree8efe27ccd118131d72ef1e26f208cdb84ecea429
parentcbb0b5d8d5c823357951689ea4f14994e0399992 (diff)
downloademacs-fcfcb35791495ea842d30efc3d87a088ecd57977.tar.gz
emacs-fcfcb35791495ea842d30efc3d87a088ecd57977.zip
* lisp/mpc.el (mpc-format): Fix printing after last format spec.
-rw-r--r--lisp/mpc.el3
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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;