Update Emacs configuration

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 039b8943d653ca7e05514ce9ed83d0674293eca4..bd140aafdd75422058491044ce868e7ac483e144 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -877,12 +877,6 @@ Interactively, POINT is point and KILL is the prefix argument."
 
 (add-hook 'text-mode-hook #'flyspell-mode)
 (add-hook 'text-mode-hook #'completion-preview-mode)
-;; (add-hook 'text-mode-hook
-;;           (lambda ()
-;;             (add-hook 'completion-at-point-functions
-;;                       #'ispell-completion-at-point nil t)))
-;; (keymap-unset text-mode-map "C-M-i" t)
-
 
 ;;; Bind some keys
 
@@ -1164,22 +1158,6 @@ as the initial input for completion, and return that directory."
 
 (add-hook 'completion-at-point-functions #'file-capf)
 
-;; (defun ispell-completion-at-point ()
-;;   "Word completion function for use in `completion-at-point-functions'."
-;;   (pcase (bounds-of-thing-at-point 'word)
-;;     (`(,beg . ,end)
-;;      (when (and (< beg (point)) (<= (point) end))
-;;        (let ((word (buffer-substring-no-properties beg end)))
-;;          (require 'ispell)
-;;          (list beg end
-;;                (completion-table-subvert
-;;                 (seq-remove
-;;                  (apply-partially #'string-equal-ignore-case word)
-;;                  (let ((inhibit-message t)) (ispell-lookup-words word)))
-;;                 word (downcase word))
-;;                :annotation-function (lambda (_) " Dictionary word")
-;;                :exclusive 'no))))))
-
 ;;; Configure highlighting of the current line via `lin'
 
 (with-eval-after-load 'lin