diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-20 13:37:15 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-21 05:23:11 +0100 |
commit | 18ce031f9b21942586255fca86a5acf364742600 (patch) | |
tree | 005c5bf259a8072984baca2f312285870f77bdca | |
parent | c9636727363a0f0ecd8b2dd2cc6eebf9470e71f2 (diff) | |
download | emacs-18ce031f9b21942586255fca86a5acf364742600.tar.gz |
Remove the `mode-line-percent-position' min width hack
* lisp/bindings.el (mode-line-position): Remove hack to get
min-width to work on the `mode-line-percent-position' bit.
* src/xdisp.c (display_string): Respect min-width in the non-Lisp
string case (bug#52332).
-rw-r--r-- | lisp/bindings.el | 2 | ||||
-rw-r--r-- | src/xdisp.c | 15 |
2 files changed, 16 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index ba3bf81b3e3..98a12a252ad 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -501,7 +501,7 @@ mouse-1: Display Line and Column Mode Menu")) (defvar mode-line-position `((:propertize - (" " mode-line-percent-position) + ("" mode-line-percent-position) local-map ,mode-line-column-line-number-mode-map display (min-width (5.0)) mouse-face mode-line-highlight diff --git a/src/xdisp.c b/src/xdisp.c index 0c35d24c262..35675a6a36e 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -27640,6 +27640,21 @@ display_string (const char *string, Lisp_Object lisp_string, Lisp_Object face_st 0, &endptr, it->base_face_id, false, 0); face = FACE_FROM_ID (it->f, it->face_id); it->face_box_p = face->box != FACE_NO_BOX; + + /* If we have a display spec, but there's no Lisp being + displayed, then check whether we've got one from the + :propertize being passed in and use that. */ + if (NILP (lisp_string)) + { + Lisp_Object display = Fget_text_property (make_fixnum (0), Qdisplay, + face_string); + if (!NILP (display)) + { + Lisp_Object min_width = Fplist_get (display, Qmin_width); + if (!NILP (min_width)) + display_min_width (it, 0, face_string, min_width); + } + } } /* Set max_x to the maximum allowed X position. Don't let it go |