From 39571eb831cabf044ea137cb280baf1b69550357 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 27 Nov 2023 14:11:36 +0100 Subject: [PATCH] Update Emacs configuration --- .emacs.d/init.el | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 039b894..bd140aa 100644 --- 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 -- 2.39.2