Re: Predicate for true lists

[Paul Eggert <eggert@cs.ucla.edu>]

[-- Attachment #1: Type: text/plain, Size: 290 bytes --]

On 07/15/2018 05:55 PM, Wilfred Hughes wrote:
> Did we intentionally remove format-proper-list-p? This broke one of my
> projects.

I did, yes. I thought it obvious that it was intended only for use
within format.el. Evidently not, so I added an obsolete aiias by
installing the attached.


[-- Attachment #2: 0001-lisp-format.el-format-proper-list-p-New-alias.patch --]
[-- Type: text/x-patch, Size: 1229 bytes --]

From f521161c1bc5a9cd10ee25ff5f4b7b8d753db55d Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@Penguin.CS.UCLA.EDU>
Date: Sun, 15 Jul 2018 18:28:35 -0700
Subject: [PATCH] * lisp/format.el (format-proper-list-p): New alias.

---
 etc/NEWS       | 3 ++-
 lisp/format.el | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index c69bbe9d0f..2a93bdf025 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -713,7 +713,8 @@ manual for more details.
 +++
 ** New function 'proper-list-p'.
 Given a proper list as argument, this predicate returns its length;
-otherwise, it returns nil.
+otherwise, it returns nil.  'format-proper-list-p' is now an obsolete
+alias for the new function.
 
 ** define-minor-mode automatically documents the meaning of ARG
 
diff --git a/lisp/format.el b/lisp/format.el
index 5bf1be3947..49d3c718ab 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -539,6 +539,8 @@ Compare using `equal'."
 	(setq tail next)))
     (cons acopy bcopy)))
 
+(define-obsolete-function-alias 'format-proper-list-p 'proper-list-p "27.1")
+
 (defun format-reorder (items order)
   "Arrange ITEMS to follow partial ORDER.
 Elements of ITEMS equal to elements of ORDER will be rearranged
-- 
2.17.1