Function: mhtml--submode-lighter

mhtml--submode-lighter is a byte-compiled function defined in mhtml-mode.el.gz.

Signature

(mhtml--submode-lighter)

Documentation

Mode-line lighter indicating the current submode.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/mhtml-mode.el.gz
(defun mhtml--submode-lighter ()
  "Mode-line lighter indicating the current 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)
      "")))