From: Artur Malabarba Date: Wed, 30 Sep 2015 10:10:47 +0000 (+0100) Subject: Fix a bytecomp warning X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/bde4f6fafc49de2feceb6d9f50c6ff3cf2efdcb9 Fix a bytecomp warning --- diff --git a/rich-minority.el b/rich-minority.el index 4475c9563..70224ccfd 100644 --- a/rich-minority.el +++ b/rich-minority.el @@ -176,19 +176,19 @@ These properties take priority over those defined in (defconst rm--help-echo-bottom "Mouse-1: Mode Menu.\nMouse-2: Mode Help.\nMouse-3: Toggle Minor Modes.") +(defvar-local rm--help-echo nil + "Used to set the help-echo string dynamically.") + ;;;###autoload (defun rm--mode-list-as-string-list () "Return `minor-mode-list' as a simple list of strings." (let ((full-list (delete "" (mapcar #'format-mode-line minor-mode-alist)))) (setq rm--help-echo (format "Full list:\n %s\n\n%s" - (mapconcat 'identity full-list "\n ") - rm--help-echo-bottom)) + (mapconcat 'identity full-list "\n ") + rm--help-echo-bottom)) (mapcar #'rm--propertize - (rm--remove-hidden-modes full-list)))) - -(defvar-local rm--help-echo nil - "Used to set the help-echo string dynamically.") + (rm--remove-hidden-modes full-list)))) (defcustom rm-base-text-properties '('help-echo 'rm--help-echo