[Emacs-diffs] emacs-26 4c4ad80 2/3: Fix mthml submode lighting at end of buffer

[Tom Tromey]

branch: emacs-26
commit 4c4ad8084872937776783bc1e59908114ec8f44c
Author: Tom Tromey <address@hidden>
Commit: Tom Tromey <address@hidden>

    Fix mthml submode lighting at end of buffer
    
    * lisp/textmodes/mhtml-mode.el (mhtml--submode-lighter): Handle end of
    buffer correctly.
---
 lisp/textmodes/mhtml-mode.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/textmodes/mhtml-mode.el b/lisp/textmodes/mhtml-mode.el
index 05d5e52..2c1b26d 100644
--- a/lisp/textmodes/mhtml-mode.el
+++ b/lisp/textmodes/mhtml-mode.el
@@ -149,7 +149,12 @@ code();
 
 (defun mhtml--submode-lighter ()
   "Mode-line lighter indicating the current submode."
-  (let ((submode (get-text-property (point) 'mhtml-submode)))
+  ;; The end of the buffer has no text properties, so in this case
+  ;; back up one character, if possible.
+  (let* ((where (if (and (eobp) (not (bobp)))
+                    (1- (point))
+                  (point)))
+         (submode (get-text-property where 'mhtml-submode)))
     (if submode
         (mhtml--submode-name submode)
       "")))