mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
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:
parent
a53ee9928d
commit
2aace68a00
1 changed files with 4 additions and 2 deletions
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue