From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 14 Sep 2023 16:23:48 +0000 (+0200)
Subject: Provide basic 'prettify-symbols-alist' in Sweep Prolog mode
X-Git-Tag: V9.1.15-sweep-0.25.0~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fe5830e96e5c5cefce206cfad8b120b0e1c893c;p=sweep.git

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.
---

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)