Skip to content

Commit

Permalink
Use outline headings in buttercup-compat.el as well
Browse files Browse the repository at this point in the history
  • Loading branch information
tarsius committed Dec 3, 2023
1 parent abfc973 commit dc71f78
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions buttercup-compat.el
Original file line number Diff line number Diff line change
Expand Up @@ -29,8 +29,8 @@

;;; Code:

;;;;;;;;;;;;;;;;;;;;;
;; Introduced in 24.4
;;;;;;;;;;;;;;;;;;;;;;
;;; Introduced in 24.4

(when (not (fboundp 'define-error))
(defun define-error (name message &optional parent)
Expand All @@ -53,8 +53,8 @@ Defaults to `error'."
(delete-dups (copy-sequence (cons name conditions))))
(when message (put name 'error-message message)))))

;;;;;;;;;;;;;;;;;;;;;
;; Introduced in 25.1
;;;;;;;;;;;;;;;;;;;;;;
;;; Introduced in 25.1

(when (not (fboundp 'directory-files-recursively))
(defun directory-files-recursively (dir match &optional include-directories)
Expand Down Expand Up @@ -109,8 +109,8 @@ If INCLUDE-DIRECTORIES, also include directories that have matching names."
(<= (car here) delay)))
(concat (format "%.2f" (/ delay (car (cddr here)))) (cadr here)))))))

;;;;;;;;;;;;;;;;;;;;;
;; Introduced in 26.1
;;;;;;;;;;;;;;;;;;;;;;
;;; Introduced in 26.1

(unless (fboundp 'file-attribute-modification-time)
(defsubst file-attribute-modification-time (attributes)
Expand All @@ -119,8 +119,8 @@ This is the time of the last change to the file's contents, and
is a Lisp timestamp in the style of `current-time'."
(nth 5 attributes)))

;;;;;;;;;;;;;;;;;;;;;
;; Introduced in 29.1
;;;;;;;;;;;;;;;;;;;;;;
;;; Introduced in 29.1

(unless (boundp 'backtrace-on-error-noninteractive)
(defvar backtrace-on-error-noninteractive nil
Expand Down

0 comments on commit dc71f78

Please sign in to comment.