[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Emacs as a translator's tool

From: Emanuel Berg
Subject: Re: Emacs as a translator's tool
Date: Sun, 07 Jun 2020 23:15:55 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux)

Marcin Borkowski wrote:

> If you find a good way to refactor it so that it is
> more DRY, I'd love to see it.

;;; -*- lexical-binding: t -*-
;;; this file:

(defvar sentence-overlay nil)

(defun remove-highlight ()
  (when (overlayp sentence-overlay)
    (delete-overlay sentence-overlay) ))

(defun highlight-sentence ()
  (let ((overlay (make-overlay (progn (forward-sentence)  (point))
                               (progn (backward-sentence) (point)) )))
    (overlay-put overlay 'face 'font-lock-function-name-face)
    (setq sentence-overlay overlay) ))

(defun highlight-sentence-next ()
  (highlight-sentence) )

(defun highlight-sentence-prev ()
  (highlight-sentence) )

underground experts united

reply via email to

[Prev in Thread] Current Thread [Next in Thread]