Function: type-break-get-previous-time

type-break-get-previous-time is a byte-compiled function defined in type-break.el.gz.

Signature

(type-break-get-previous-time)

Documentation

Get previous break time from type-break-file-name.

Return nil if the file is missing or if the time is not a Lisp time value.

Source Code

;; Defined in /usr/src/emacs/lisp/type-break.el.gz
(defun type-break-get-previous-time ()
  "Get previous break time from `type-break-file-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
         (with-current-buffer (find-file-noselect file 'nowarn)
	   (condition-case nil
	       (save-excursion
		 (goto-char (point-min))
		 (read (current-buffer)))
	     (end-of-file
	      (warn "End of file in `%s'" file))))))))