Function: type-break-file-keystroke-count

type-break-file-keystroke-count is a byte-compiled function defined in type-break.el.gz.

Signature

(type-break-file-keystroke-count)

Documentation

File keystroke count in type-break-file-name, unless the file is locked.

Source Code

;; Defined in /usr/src/emacs/lisp/type-break.el.gz
(defun type-break-file-keystroke-count ()
  "File keystroke count in `type-break-file-name', unless the file is locked."
  (if (and type-break-file-name
           (not (stringp (file-locked-p type-break-file-name))))
      ;; Prevent deactivation of the mark in some other buffer.
      (let (deactivate-mark)
	(with-current-buffer (find-file-noselect type-break-file-name
						 'nowarn)
	  (save-excursion
	    (let ((inhibit-read-only t))
	      (goto-char (point-min))
	      (forward-line)
	      (delete-region (point) (line-end-position))
	      (insert (format "%s" type-break-keystroke-count))
	      ;; file saving is left to auto-save
	      ))))))