;; If there is any invisible text, add it as a tooltip to the
;; visible text.
(when (not (string= invisible-string ""))
(setq visible-string
(propertize visible-string
'help-echo (concat "..." invisible-string))))
;; If there is any invisible text, add it as a tooltip to the
;; visible text.
(when (not (string= invisible-string ""))
(setq visible-string
(propertize visible-string
'help-echo (concat "..." invisible-string))))