[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 4c4ad80 2/3: Fix mthml submode lighting at end of
From: |
Tom Tromey |
Subject: |
[Emacs-diffs] emacs-26 4c4ad80 2/3: Fix mthml submode lighting at end of buffer |
Date: |
Sun, 29 Oct 2017 15:09:22 -0400 (EDT) |
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)
"")))