 
 (defun radian--mode-line-recompute-and-reschedule ()
   "Compute mode line data and re-set timers.
-The delay is `radian--mode-line-update-delay'. The timers are
+The delay is `radian-mode-line-update-delay'. The timers are
 `radian--mode-line-idle-timer' and
 `radian--mode-line-repeat-timer'."
 

;; The following code customizes the mode line to something like:
;; [*] radian.el   18% (18,0)     [radian:develop*]  (Emacs-Lisp)

(defun radian--mode-line-buffer-modified-status ()
  "Return a mode line construct indicating buffer modification status.
This is [*] if the buffer has been modified and whitespace
otherwise. (Non-file-visiting buffers are never considered to be


;; Don't clear the cache when switching major modes (or using M-x
;; normal-mode).
(put 'radian-mode-line-project-and-branch 'permanent-local t)

(defun radian--mode-line-recompute-project-and-branch ()
  "Recalculate and set `radian-mode-line-project-and-branch'.
Force a redisplay of the mode line if necessary. This is
buffer-local."
  (condition-case-unless-debug err
      (let ((old radian-mode-line-project-and-branch)
            (new
             (let* (;; Don't insist on having Projectile loaded.
                    (project-name (when (featurep 'projectile)
