From b03d9869aaca3ced351d5f8a3bc65dad96038946 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Wed, 21 May 2025 14:53:49 +0200 Subject: [PATCH] update outliner-minor-faces --- .../outline-minor-faces-autoloads.el | 46 +++++++++++++++++++ .../outline-minor-faces-pkg.el | 8 ++-- .../outline-minor-faces.el | 30 ++++++++---- 3 files changed, 70 insertions(+), 14 deletions(-) create mode 100644 elpa/outline-minor-faces-20250514.1243/outline-minor-faces-autoloads.el rename elpa/{outline-minor-faces-20241202.1859 => outline-minor-faces-20250514.1243}/outline-minor-faces-pkg.el (70%) rename elpa/{outline-minor-faces-20241202.1859 => outline-minor-faces-20250514.1243}/outline-minor-faces.el (89%) diff --git a/elpa/outline-minor-faces-20250514.1243/outline-minor-faces-autoloads.el b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces-autoloads.el new file mode 100644 index 00000000..b1b8d7f0 --- /dev/null +++ b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces-autoloads.el @@ -0,0 +1,46 @@ +;;; outline-minor-faces-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from outline-minor-faces.el + +(autoload 'outline-minor-faces-mode "outline-minor-faces" "\ +Minor mode that adds heading faces for `outline-minor-mode'. + +This is a minor mode. If called interactively, toggle the `Outline +minor-Faces mode' mode. If the prefix argument is positive, enable the +mode, and if it is zero or negative, disable the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable the +mode if ARG is nil, omitted, or is a positive number. Disable the mode +if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate the variable `outline-minor-faces-mode'. + +The mode's hook is called both when the mode is enabled and when it is +disabled. + +(fn &optional ARG)" t) +(register-definition-prefixes "outline-minor-faces" '("outline-minor-faces")) + +;;; End of scraped data + +(provide 'outline-minor-faces-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; outline-minor-faces-autoloads.el ends here diff --git a/elpa/outline-minor-faces-20241202.1859/outline-minor-faces-pkg.el b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces-pkg.el similarity index 70% rename from elpa/outline-minor-faces-20241202.1859/outline-minor-faces-pkg.el rename to elpa/outline-minor-faces-20250514.1243/outline-minor-faces-pkg.el index 462dacfc..e1793253 100644 --- a/elpa/outline-minor-faces-20241202.1859/outline-minor-faces-pkg.el +++ b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces-pkg.el @@ -1,11 +1,11 @@ ;; -*- no-byte-compile: t; lexical-binding: nil -*- -(define-package "outline-minor-faces" "20241202.1859" +(define-package "outline-minor-faces" "20250514.1243" "Highlight only section headings." '((emacs "26.1") - (compat "30.0.0.0")) + (compat "30.0.1.0")) :url "https://github.com/tarsius/outline-minor-faces" - :commit "41de0cd1633c610d5097ce3bf7d9dd18ca8371bf" - :revdesc "41de0cd1633c" + :commit "a1ef3834f9f643cf1f65c5424691514169f8bf31" + :revdesc "a1ef3834f9f6" :keywords '("faces" "outlines") :authors '(("Jonas Bernoulli" . "emacs.outline-minor-faces@jonas.bernoulli.dev")) :maintainers '(("Jonas Bernoulli" . "emacs.outline-minor-faces@jonas.bernoulli.dev"))) diff --git a/elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces.el similarity index 89% rename from elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el rename to elpa/outline-minor-faces-20250514.1243/outline-minor-faces.el index 9ac28b97..c4280bda 100644 --- a/elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el +++ b/elpa/outline-minor-faces-20250514.1243/outline-minor-faces.el @@ -1,14 +1,14 @@ ;;; outline-minor-faces.el --- Highlight only section headings -*- lexical-binding:t -*- -;; Copyright (C) 2018-2024 Jonas Bernoulli +;; Copyright (C) 2018-2025 Jonas Bernoulli ;; Author: Jonas Bernoulli ;; Homepage: https://github.com/tarsius/outline-minor-faces ;; Keywords: faces outlines -;; Package-Version: 20241202.1859 -;; Package-Revision: 41de0cd1633c -;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0")) +;; Package-Version: 20250514.1243 +;; Package-Revision: a1ef3834f9f6 +;; Package-Requires: ((emacs "26.1") (compat "30.0.1.0")) ;; SPDX-License-Identifier: GPL-3.0-or-later @@ -141,11 +141,19 @@ Returns REGEXP directly for modes where `font-lock-keywords-only' is non-nil because Font Lock does not mark strings and comments for those modes, and the matcher will not know what is/is not a string." - (if font-lock-keywords-only - regexp - (lambda (limit) + (cond + ;; Assume that if a mode defines such a function, it likely is + ;; benefitial to use it. We know that `elisp-outline-search' + ;; (added in Emacs 31) is unnecessary here though. It's purpose + ;; is to avoid matching parens at the bol inside strings, but we + ;; don't even try to match parens at all, so that's not relevant. + ((and outline-search-function + (not (eq outline-search-function 'elisp-outline-search))) + #'ignore) + (font-lock-keywords-only regexp) + ((lambda (limit) (and (re-search-forward regexp limit t) - (not (nth 3 (syntax-ppss (match-beginning 0)))))))) + (not (nth 3 (syntax-ppss (match-beginning 0))))))))) (defvar outline-minor-faces--font-lock-keywords '((eval . (list (outline-minor-faces--syntactic-matcher @@ -203,8 +211,10 @@ string." (defun outline-minor-faces--level () (save-excursion - (and (if (bound-and-true-p outline-search-function) - (funcall outline-search-function nil nil nil t) + (and (if-let ((fn (bound-and-true-p outline-search-function)) + ;; See `outline-minor-faces--syntactic-matcher'. + ((not (eq fn 'elisp-outline-search)))) + (funcall fn nil nil nil t) (beginning-of-line) (looking-at outline-regexp)) (funcall outline-level)))) -- 2.47.3