From 9fe5830e96e5c5cefce206cfad8b120b0e1c893c Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 14 Sep 2023 18:23:48 +0200 Subject: [PATCH] Provide basic 'prettify-symbols-alist' in Sweep Prolog mode * sweeprolog.el (sweeprolog-mode): set a local value for 'prettify-symbols-alist' that renders the neck operator as a unicode left arrow. --- sweeprolog.el | 1 + 1 file changed, 1 insertion(+) diff --git a/sweeprolog.el b/sweeprolog.el index 266db39..3941d81 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -4688,6 +4688,7 @@ certain contexts to maintain conventional Prolog layout." (setq-local comment-multi-line t) (setq-local add-log-current-defun-function #'sweeprolog-add-log-current-defun) + (setq-local prettify-symbols-alist '((":-" . ?←))) (setq-local mode-line-process '(:eval (when (sweeprolog-buffer-loaded-since-last-modification-p) -- 2.39.5