Function: majutsu-diff--propertize-ref

majutsu-diff--propertize-ref is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--propertize-ref REF FACE)

Documentation

Return REF propertized like a Magit ref label using FACE.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--propertize-ref (ref face)
  "Return REF propertized like a Magit ref label using FACE."
  (let* ((properties (majutsu-diff--presentation-properties ref))
         (display
          (apply #'concat
                 (mapcar
                  (lambda (char)
                    (pcase char
                      (?\\ "\\\\")
                      (?\n "\\n")
                      (?\r "\\r")
                      (?\t "\\t")
                      ((pred (lambda (value)
                               (or (< value 32) (= value 127))))
                       (format "\\x%02X" char))
                      (_ (char-to-string char))))
                  (string-to-list ref)))))
    (when (not (string-empty-p display))
      (add-text-properties
       0 (length display)
       (append (or properties (list 'font-lock-face face))
               (list 'help-echo (substring-no-properties ref)))
       display))
    display))