branch: externals/plz
commit 2534262975f8ba731001f7283e0a6229c45b1969
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: Alias generate-new-buffer for Emacs <28.1
---
plz.el | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/plz.el b/plz.el
index 7ff57f216d..d60ede4bcb 100644
--- a/plz.el
+++ b/plz.el
@@ -314,6 +314,16 @@ keywords are supported:
nil)
`(ignore ,@args))))
+;;;; Compatibility
+
+(defalias 'plz--generate-new-buffer
+ (if (version< emacs-version "28.1")
+ (lambda (name &optional _inhibit-buffer-hooks)
+ "Call `generate-new-buffer' with NAME.
+Compatibility function for Emacs versions <28.1."
+ (generate-new-buffer name))
+ #'generate-new-buffer))
+
;;;; Functions
;;;;; Public
@@ -467,9 +477,9 @@ into the process buffer.
;; default-directory has since been removed). It's unclear what the
best
;; directory is, but this seems to make sense, and it should still
exist.
temporary-file-directory)
- (process-buffer (generate-new-buffer " *plz-request-curl*" t))
+ (process-buffer (plz--generate-new-buffer " *plz-request-curl*" t))
(stderr-process (make-pipe-process :name "plz-request-curl-stderr"
- :buffer (generate-new-buffer "
*plz-request-curl-stderr*" t)
+ :buffer (plz--generate-new-buffer
" *plz-request-curl-stderr*" t)
:noquery t
:sentinel #'plz--stderr-sentinel))
(process (make-process :name "plz-request-curl"
