Variable: majutsu-annotate-mode

majutsu-annotate-mode is a buffer-local variable defined in majutsu-annotate.el.

Documentation

Non-nil if Majutsu-Annotate mode is enabled.

Use the command majutsu-annotate-mode(var)/majutsu-annotate-mode(fun) to change this variable.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-annotate.el
;;; Modes

(define-minor-mode majutsu-annotate-mode
  "Display annotation information inline."
  :lighter majutsu-annotate-mode-lighter
  :interactive nil
  (cond (majutsu-annotate-mode
         (add-hook 'post-command-hook #'majutsu-annotate-goto-chunk-hook nil t)
         (add-hook 'read-only-mode-hook #'majutsu-annotate-toggle-read-only t t)
         (setq majutsu-annotate-buffer-read-only buffer-read-only)
         (when (or majutsu-annotate-read-only
                   (bound-and-true-p majutsu-buffer-blob-path))
           (read-only-mode 1))
         ;; Disable incompatible modes
         (dolist (mode majutsu-annotate-disable-modes)
           (when (and (boundp mode) (symbol-value mode))
             (funcall mode -1)
             (push mode majutsu-annotate-disabled-modes)))
         ;; Initialize style
         (setq majutsu-annotate-separator (majutsu-annotate--format-separator))
         (unless majutsu-annotate--style
           (setq majutsu-annotate--style (car majutsu-annotate-styles))))
        (t
         (remove-hook 'post-command-hook #'majutsu-annotate-goto-chunk-hook t)
         (remove-hook 'read-only-mode-hook #'majutsu-annotate-toggle-read-only t)
         (unless majutsu-annotate-buffer-read-only
           (read-only-mode -1))
         (majutsu-annotate-read-only-mode -1)
         ;; Re-enable disabled modes
         (dolist (mode majutsu-annotate-disabled-modes)
           (funcall mode 1))
         (kill-local-variable 'majutsu-annotate-disabled-modes)
         (kill-local-variable 'majutsu-annotate--style)
         (kill-local-variable 'majutsu-annotate-cache)
         (majutsu-annotate--remove-overlays))))