diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:37:52 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:39:23 +0200 |
| commit | 2aace68a0084f99d6ff2df005069b68b6d8e9899 (patch) | |
| tree | eb148f5d716371b541b1ef8c185f22f54eb55255 /lisp/type-break.el | |
| parent | a53ee9928dd26f5745af8446cdfbedc229ca1e9a (diff) | |
| download | emacs-2aace68a0084f99d6ff2df005069b68b6d8e9899.tar.gz emacs-2aace68a0084f99d6ff2df005069b68b6d8e9899.tar.bz2 emacs-2aace68a0084f99d6ff2df005069b68b6d8e9899.zip | |
Rename timep to type-break-timep
* lisp/type-break.el (type-break-timep): Rename from 'timep'.
Retain old name as an obsolete alias.
Diffstat (limited to 'lisp/type-break.el')
| -rw-r--r-- | lisp/type-break.el | 6 |
1 files 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) |