From: Stefan Kangas Date: Thu, 4 Aug 2022 09:37:52 +0000 (+0200) Subject: Rename timep to type-break-timep X-Git-Tag: emacs-29.0.90~1447^2~466 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2aace68a0084f99d6ff2df005069b68b6d8e9899;p=emacs.git Rename timep to type-break-timep * lisp/type-break.el (type-break-timep): Rename from 'timep'. Retain old name as an obsolete alias. --- 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)