Rename timep to type-break-timep

* lisp/type-break.el (type-break-timep): Rename from 'timep'.
Retain old name as an obsolete alias.
This commit is contained in:
Stefan Kangas 2022-08-04 11:37:52 +02:00
parent a53ee9928d
commit 2aace68a00

View file

@ -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)