update packages
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
;;; diff-hl-margin.el --- Highlight buffer changes on margins -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2012-2017 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2012-2025 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
@@ -147,7 +147,15 @@ You probably shouldn't use this function directly."
|
||||
,(propertize char 'face
|
||||
(intern (format "diff-hl-margin-%s" type)))))))))
|
||||
|
||||
(defun diff-hl-margin-ensure-visible ()
|
||||
(let ((width-var (intern (format "%s-margin-width" diff-hl-side))))
|
||||
(when (zerop (symbol-value width-var))
|
||||
(set width-var 1)
|
||||
(dolist (win (get-buffer-window-list))
|
||||
(set-window-buffer win (current-buffer))))))
|
||||
|
||||
(defun diff-hl-highlight-on-margin (ovl type _shape)
|
||||
(diff-hl-margin-ensure-visible)
|
||||
(let ((spec (cdr (assoc (cons type diff-hl-side)
|
||||
(diff-hl-margin-spec-cache)))))
|
||||
(overlay-put ovl 'before-string spec)))
|
||||
|
||||
Reference in New Issue
Block a user