17 lines
368 B
EmacsLisp
17 lines
368 B
EmacsLisp
|
;;; ui/fci/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
||
|
(defvar-local +fci-last-state nil)
|
||
|
|
||
|
;;;###autoload
|
||
|
(defun +fci|disable-when-company-activates (&rest ignore)
|
||
|
"TODO"
|
||
|
(setq +fci-last-state fci-mode)
|
||
|
(when fci-mode
|
||
|
(fci-mode -1)))
|
||
|
|
||
|
;;;###autoload
|
||
|
(defun +fci|enable-when-company-deactivates (&rest ignore)
|
||
|
"TODO"
|
||
|
(when +fci-last-state
|
||
|
(fci-mode 1)))
|