From 2aace68a0084f99d6ff2df005069b68b6d8e9899 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 4 Aug 2022 11:37:52 +0200 Subject: [PATCH] Rename timep to type-break-timep * lisp/type-break.el (type-break-timep): Rename from 'timep'. Retain old name as an obsolete alias. --- lisp/type-break.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/type-break.el b/lisp/type-break.el index 320ccaf94af..bb6382cfe9e 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el @@ -451,7 +451,7 @@ the variable of the same name." ;; file saving is left to auto-save )))))) -(defun timep (time) +(defun type-break-timep (time) "If TIME is a Lisp time value then return TIME, else return nil." (condition-case nil (and (float-time time) time) @@ -475,7 +475,7 @@ the variable of the same name." Return nil if the file is missing or if the time is not a Lisp time value." (let ((file (type-break-choose-file))) (if file - (timep ;; returns expected format, else nil + (type-break-timep ;; returns expected format, else nil (with-current-buffer (find-file-noselect file 'nowarn) (condition-case nil (save-excursion @@ -1143,6 +1143,8 @@ With optional non-nil ALL, force redisplay of all mode-lines." (and (get-buffer buffer-name) (kill-buffer buffer-name)))))) +(define-obsolete-function-alias 'timep 'type-break-timep "29.1") + (provide 'type-break) -- 2.39.2