Clean up the previous commit's code
This commit is contained in:
parent
4ccf34d70e
commit
04f3b0c927
7
init.el
7
init.el
@ -944,16 +944,15 @@ argument."
|
|||||||
(use-package fricas
|
(use-package fricas
|
||||||
:ensure nil
|
:ensure nil
|
||||||
:custom
|
:custom
|
||||||
(fricas-run-command "fricas -nosman")
|
(fricas-run-command "fricas -nox")
|
||||||
:init
|
:init
|
||||||
;; Fix `fricas-mode' messing up `completion-at-point-functions'
|
;; Fix `fricas-mode' messing up `completion-at-point-functions'
|
||||||
(advice-add #'fricas-mode :around
|
(advice-add #'fricas-mode :around
|
||||||
#'(lambda (oldfun &rest r)
|
#'(lambda (oldfun &rest r)
|
||||||
(let ((temp-capfs))
|
|
||||||
(let ((completion-at-point-functions '(t)))
|
(let ((completion-at-point-functions '(t)))
|
||||||
(apply oldfun r)
|
(apply oldfun r)
|
||||||
(setq temp-capfs completion-at-point-functions))
|
(setq-local completion-at-point-functions
|
||||||
(setq-local completion-at-point-functions temp-capfs)))
|
completion-at-point-functions)))
|
||||||
'((name . "my/-fricas-fix-capfs")))
|
'((name . "my/-fricas-fix-capfs")))
|
||||||
:config
|
:config
|
||||||
(face-spec-set 'fricas-type-time '((t (:foreground unspecified
|
(face-spec-set 'fricas-type-time '((t (:foreground unspecified
|
||||||
|
Loading…
Reference in New Issue
Block a user