[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/type-break.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/type-break.el |
Date: |
Mon, 27 Dec 2004 12:05:24 -0500 |
Index: emacs/lisp/type-break.el
diff -c emacs/lisp/type-break.el:1.33 emacs/lisp/type-break.el:1.34
*** emacs/lisp/type-break.el:1.33 Wed Oct 27 15:04:26 2004
--- emacs/lisp/type-break.el Mon Dec 27 16:37:36 2004
***************
*** 399,408 ****
(type-break-keystroke-reset)
(type-break-mode-line-countdown-or-break nil)
- (if (boundp 'save-some-buffers-always)
- (add-to-list 'save-some-buffers-always
- (expand-file-name type-break-file-name)))
-
(setq type-break-time-last-break (type-break-get-previous-time))
;; schedule according to break time from session file
--- 399,404 ----
***************
*** 437,449 ****
(do-auto-save)
(with-current-buffer (find-file-noselect type-break-file-name
'nowarn)
! (set-buffer-modified-p nil)
(unlock-buffer)
(kill-this-buffer))
- (if (boundp 'save-some-buffers-always)
- (setq save-some-buffers-always
- (remove (expand-file-name type-break-file-name)
- save-some-buffers-always)))
(and (interactive-p)
(message "Type Break mode is disabled")))))
type-break-mode)
--- 433,442 ----
(do-auto-save)
(with-current-buffer (find-file-noselect type-break-file-name
'nowarn)
! (setq buffer-save-without-query t)
! (set-buffer-modified-p nil)
(unlock-buffer)
(kill-this-buffer))
(and (interactive-p)
(message "Type Break mode is disabled")))))
type-break-mode)
***************
*** 515,530 ****
(defun type-break-file-keystroke-count ()
"File keystroke count in `type-break-file-name', unless the file is locked."
(if (not (stringp (file-locked-p type-break-file-name)))
! (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) (save-excursion (end-of-line) (point)))
! (insert (format "%s" type-break-keystroke-count))
! ;; file saving is left to auto-save
! )))))
(defun timep (time)
"If TIME is in the format returned by `current-time' then
--- 508,525 ----
(defun type-break-file-keystroke-count ()
"File keystroke count in `type-break-file-name', unless the file is locked."
(if (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) (save-excursion (end-of-line) (point)))
! (insert (format "%s" type-break-keystroke-count))
! ;; file saving is left to auto-save
! ))))))
(defun timep (time)
"If TIME is in the format returned by `current-time' then
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/type-break.el,
Richard M . Stallman <=