From e8de41f6811f549abc41362dff310ec25909ec7d Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 22 Dec 2024 13:12:32 +0100 Subject: [PATCH] update outline-minor-faces Signed-off-by: Andreas Gerler --- .../outline-minor-faces-autoloads.el | 47 ------------------- .../outline-minor-faces-pkg.el | 15 ------ .../outline-minor-faces-autoloads.el | 46 ++++++++++++++++++ .../outline-minor-faces-pkg.el | 11 +++++ .../outline-minor-faces.el | 32 +++++++------ 5 files changed, 74 insertions(+), 77 deletions(-) delete mode 100644 elpa/outline-minor-faces-20230514.1801/outline-minor-faces-autoloads.el delete mode 100644 elpa/outline-minor-faces-20230514.1801/outline-minor-faces-pkg.el create mode 100644 elpa/outline-minor-faces-20241202.1859/outline-minor-faces-autoloads.el create mode 100644 elpa/outline-minor-faces-20241202.1859/outline-minor-faces-pkg.el rename elpa/{outline-minor-faces-20230514.1801 => outline-minor-faces-20241202.1859}/outline-minor-faces.el (92%) diff --git a/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-autoloads.el b/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-autoloads.el deleted file mode 100644 index 8a41e637..00000000 --- a/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-autoloads.el +++ /dev/null @@ -1,47 +0,0 @@ -;;; outline-minor-faces-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- -;; -;;; Code: - -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) - - -;;;### (autoloads nil "outline-minor-faces" "outline-minor-faces.el" -;;;;;; (0 0 0 0)) -;;; 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 `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 nil) - -(register-definition-prefixes "outline-minor-faces" '("outline-minor-faces")) - -;;;*** - -;;;### (autoloads nil nil ("outline-minor-faces-pkg.el") (0 0 0 0)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; coding: utf-8 -;; End: -;;; outline-minor-faces-autoloads.el ends here diff --git a/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-pkg.el b/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-pkg.el deleted file mode 100644 index a6a1852d..00000000 --- a/elpa/outline-minor-faces-20230514.1801/outline-minor-faces-pkg.el +++ /dev/null @@ -1,15 +0,0 @@ -(define-package "outline-minor-faces" "20230514.1801" "Highlight only section headings" - '((emacs "25.1") - (compat "29.1.4.1")) - :commit "57c4a0fac36a26cfa8d1296e76afbcf7a5b87a57" :authors - '(("Jonas Bernoulli" . "jonas@bernoul.li")) - :maintainers - '(("Jonas Bernoulli" . "jonas@bernoul.li")) - :maintainer - '("Jonas Bernoulli" . "jonas@bernoul.li") - :keywords - '("faces" "outlines") - :url "https://github.com/tarsius/outline-minor-faces") -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/outline-minor-faces-20241202.1859/outline-minor-faces-autoloads.el b/elpa/outline-minor-faces-20241202.1859/outline-minor-faces-autoloads.el new file mode 100644 index 00000000..b1b8d7f0 --- /dev/null +++ b/elpa/outline-minor-faces-20241202.1859/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-20241202.1859/outline-minor-faces-pkg.el new file mode 100644 index 00000000..462dacfc --- /dev/null +++ b/elpa/outline-minor-faces-20241202.1859/outline-minor-faces-pkg.el @@ -0,0 +1,11 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "outline-minor-faces" "20241202.1859" + "Highlight only section headings." + '((emacs "26.1") + (compat "30.0.0.0")) + :url "https://github.com/tarsius/outline-minor-faces" + :commit "41de0cd1633c610d5097ce3bf7d9dd18ca8371bf" + :revdesc "41de0cd1633c" + :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-20230514.1801/outline-minor-faces.el b/elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el similarity index 92% rename from elpa/outline-minor-faces-20230514.1801/outline-minor-faces.el rename to elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el index b122dec4..9ac28b97 100644 --- a/elpa/outline-minor-faces-20230514.1801/outline-minor-faces.el +++ b/elpa/outline-minor-faces-20241202.1859/outline-minor-faces.el @@ -1,12 +1,14 @@ ;;; outline-minor-faces.el --- Highlight only section headings -*- lexical-binding:t -*- -;; Copyright (C) 2018-2023 Jonas Bernoulli +;; Copyright (C) 2018-2024 Jonas Bernoulli -;; Author: Jonas Bernoulli +;; Author: Jonas Bernoulli ;; Homepage: https://github.com/tarsius/outline-minor-faces ;; Keywords: faces outlines -;; Package-Requires: ((emacs "25.1") (compat "29.1.4.1")) +;; Package-Version: 20241202.1859 +;; Package-Revision: 41de0cd1633c +;; Package-Requires: ((emacs "26.1") (compat "30.0.0.0")) ;; SPDX-License-Identifier: GPL-3.0-or-later @@ -39,7 +41,7 @@ ;; #'outline-minor-faces-mode)) ;; For non-lisp major modes the highlighting provided by this package -;; and by the built-in support is essentiall the same, i.e., the first +;; and by the built-in support is essentially the same, i.e., the first ;; lines of top-level expressions *are* highlighted. ;; This package also defines separate faces for use in the minor mode. @@ -117,7 +119,9 @@ outline-minor-5 outline-minor-6 outline-minor-7 outline-minor-8]) (defvar outline-minor-faces--lisp-modes - '(lisp-data-mode lisp-mode emacs-lisp-mode + '(lisp-data-mode + lisp-mode + emacs-lisp-mode clojure-mode scheme-mode)) @@ -181,14 +185,10 @@ string." (font-lock-add-keywords nil outline-minor-faces--font-lock-keywords t) (font-lock-remove-keywords nil outline-minor-faces--font-lock-keywords)) (when font-lock-mode - (if (and (fboundp 'font-lock-flush) - (fboundp 'font-lock-ensure)) - (save-restriction - (widen) - (font-lock-flush) - (font-lock-ensure)) - (with-no-warnings - (font-lock-fontify-buffer))))) + (save-restriction + (widen) + (font-lock-flush) + (font-lock-ensure)))) (defun outline-minor-faces--get-face () (save-excursion @@ -203,8 +203,10 @@ string." (defun outline-minor-faces--level () (save-excursion - (beginning-of-line) - (and (looking-at outline-regexp) + (and (if (bound-and-true-p outline-search-function) + (funcall outline-search-function nil nil nil t) + (beginning-of-line) + (looking-at outline-regexp)) (funcall outline-level)))) (defun outline-minor-faces--top-level () -- 2.47.3